求卡西欧5800计算器圆曲线坐标正反算,道路中边桩放样程...

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/26 14:37:25
求卡西欧5800计算器圆曲线坐标正反算,道路中边桩放样程...
xV_oE*>J=} A3͵*'ǴXZ$R @n(};XЙ=@,of7Z~G^x?Ē>wovݍ5߆=o뎷FWO^>>“FWJ=”:F ●DMS(显示度分秒)◢
“X=”:X◢
”Y=”:Y◢
2.反算主程序 (GSFS)
K:Prog “DAT-M-DZD”:X:Y:X→Z[2]:Y→Z[3]:( (P-R)÷(2(H-O(字母))PR)) →D:(Abs((Y-S)cos(G-90)-(X-I)sin(G-90)) ) →J:0→L:90→M:Lbl 0:Prog "SUB1":((Z[3]-Y)cos(G-90 QJ(1÷P JD)×180÷π)) →Z[20]:((Z[2]-X)sin(G-90 QJ(1÷P JD) ×180÷π)) →Z[21]:( Z[20]- Z[21]) →L:If Abs(L)10∧(-6):Then Goto1:Else (J L)→J:Goto 0:IfEnd
Lbl 1:0→L:Prog "SUB1":((Z[3]-Y)÷sin(F))→L:(O J)→K:“LC=”:K◢
L→L :“PJ(-Z Y)=”:L◢
3.反算,正算子程序(SUB1)
0.1184634425→A:0.2393143352→B:0.2844444444→Z[4]:0.0469100770→C:0.2307653449→E:0.5→Z[1]:
((P-R)÷(2(H-O(字母))PR))→D :(Acos(G QCJ(1÷P CJD)×180÷π))
→Z[5]:( Bcos(G QEJ(1÷P EJD)×180÷π)) →Z[6]:(Z[4]cos(G QZ[1]J(1÷P Z[1]JD)×180÷π)) →Z[7]:( Bcos(G Q(1-E)J(1÷P (1-E)JD)×180÷π)) →Z[8]:(Acos(G Q (1-C)J(1÷P (1-C)JD) ×180÷π)) →Z[9]:(Z[5] Z[6] Z[7] Z[8] Z[9])→Z[10]:(J×Z[10]) →Z[11]:(I Z[11]) →X:(Asin(G QCJ(1÷P CJD)×180÷π)) →Z[12]:(Bsin(G QEJ(1÷P EJD)×180÷π)) →Z[13]:(Z[4]sin(G QZ[1]J(1÷P Z[1]JD)×180÷π)) →Z[14]:(Bsin(G Q(1-E)J(1÷P (1-E)JD)×180÷π)) →Z[15]:(Asin(G Q (1-C)J(1÷P (1-C)JD) ×180÷π)) →Z[16]:( Z[12] Z[13] Z[14] Z[15] Z[16])→Z[17] :(J×Z[17]) →Z[18]:(S Z[18]) →Y:(G M) →Z[19]:(( Z[19] QJ(1÷P JD) ×180÷π)) →F:(X LcosF)→X:(Y LsinF) →Y
Return
4.线元要素数据库:(DAT-M-DZD )
If K≥(线元起点里程)And K<(线元终点里程):Then (线元起点横坐标x) →I:(线元起.