卡西欧fx-5800_平曲线要数、线元各起点坐标及切线方位角计算程序

《卡西欧fx-5800_平曲线要数、线元各起点坐标及切线方位角计算程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、平曲线要数、线元各起点坐标及切线方位角计算程序LbI0Deg:fix4:clrstat:16→DimZ”JD=”?A:”JDX=”:?B:”JDY=”?C:”FJ=”?F:”ZJ=”?O:”Z(Z-,Y+)=”?Z:”R=”?R:”LS1=”?E:”LS2=”?KE^(2)÷(24R)-E^(4)÷(2688R^(3))+E^(6)÷(506880R^(5))→Z[1]:(E÷2)-E^(3)÷(240R^(2))+E^(5)÷(34560R^(4))→Z[2]:K^(2)÷(24R)-K^(4)÷(2688R^(3))+K^(6)÷(506880R^(5))→Z[5]:(

2、K÷2)-K^(3)÷(240R^(2))+K^(5)÷(34560R^(4))→Z[6]:E-(E^(3)÷(40R^(2)))→Z[7]:(E^(2)÷(6R))-(E^(4)÷(336R^(3)))→Z[8]:K-(K^(3)÷(40R^(2)))→Z[9]:(K^(2)÷(6R))-(K^(4)÷(336R^(3)))→Z[10]:“LY=”:(πRabs(0))÷180-((E+K)÷2)→L◢“QZ=”:L+E+K◢Rsin((E+L)÷2R)+Z[2]→Z[13]:R(1-Cos((E+L)÷(2R)))+Z[1]→Z[14]”T1=”:Z[2]+((R+Z[

3、5]-(R+Z[1]Cos(abs(0)))÷sin(abs(0)))→Z[3]◢”T2=”:Z[6]+((R+Z[1]-(R+Z[5]Cos(abs(0)))÷sin(abs(0)))→Z[4]◢“EO=”：((R+(Z[1]+Z[5])÷2)(1÷Cos(O÷2)))-R◢A-Z[3]→X:X+E→Y:ifE<1:thenGOTO1:elseGOTO2:ifendLbI1”ZY=”:X◢“ZYX=”:B-Z[3]Cos(F)◢“ZYY=”:C-Z[3]sin(F)◢“FWJ=”:F->DMS◢GOTO3LbI2”ZH=”:X◢“ZHX=”:B-Z[3]cos(F)→Z[

4、11]◢“ZHY=”:C-Z[3]sin(F)→Z[12]◢“FWJ=”:F->DMS◢“HY=”:Y◢”HYX=”:Z[11]+(Z[7]cos(F))-(Z*Z[8]sin(F))◢“HYY=”:Z[12]+(Z[7]sin(F))+(Z*Z[8]cos(F))◢F+Z((E)÷(2R))→J：ifJ>360:thenJ-360→J:elseifJ<0:thenJ+360→J:ifend:ifend“FWJ=”:J->DMS◢LbI3”QZ”:X+E+(L÷2)◢“QZX=”:Z[11]+(Z[13]cos(F))-(Z*(Z[14]sin(F)))◢“QZY=”:Z[

5、12]+(Z[13]sin(F))+(Z*(Z[14]cos(F)))◢F+Z((180(L+E))÷(2πR))→J：ifJ>360:thenJ-360→J:elseifJ<0:thenJ+360→J:ifend:ifend“FWJ=”:J>DMS◢LbI4A-X+L+E→M:X+E+L+K→P:ifK<1:thenGOTO5:elseGOTO6:ifendLbI5”YZ=”:P◢“YZX=”:B+Z[4]com(F+ZO)◢“YZY=”:C+Z[4]sin(F+ZO)◢F+ZO→W:ifW<0:thenW+360→W:elseW>360:thenW-360→W:ifen

6、d:ifend”FWJ=”:W->DMS◢G0TO0LbI6“YH=”:M◢”YHX=”:(B+Z[4]cos(F+ZO))-(Z[9]cos(F+ZO))-(Z*Z[10]sin(F+ZO))◢“YHY=”:(C+Z[4]sin(F+ZO))-(Z[9]sin(F+ZO))+(Z*Z[10]cos(F+ZO))◢(F+(ZO))-(Z*((180K)÷(2πR)))→J：ifJ>360:thenJ-360→J:elseifJ<0:thenJ+360→J:ifend:ifend“FWJ=”:J>DMS◢“HZ=”:P◢“HZX=”:B+Z[4]cos(F+ZO)◢“HZY=

7、”:C+Z[4]sin(F+ZO)◢F+ZO→W:ifW<0:thenW+360→W:elseW>360:thenW-360→W:ifend:ifend”FWJ=”:W->DMS◢GOTO0说明：一、请区分数字零和字母O，程序中有些忘记连接符或者双引号不对处“：”请多谅解二、本程序适合CASIO5800计算器使用。，程序有2处是错误的，希望您可以自己找出来，如果不清楚可以加我QQ513275780如需要其他程序也可以加我QQ要哦有需要主测的隧道师傅们可以叫上我我操作完全站仪出师会付学费的！我目前还是两年的隧道测量小