卡西欧fx-5800计算器缓和曲线编程.doc

1 fx5800P计算器编程缓和曲线程序14DimZ ： “ZHK”：?K：?R ：? A：?L：? T：? F：“Y1，Z1”：?P：“JDX”：?Q：“JDY”：?W： 180（R）Z：0.5LL3(240R2)Z8：“LZ”： ZL2B： AZLZ13“ZHK=”：K“HYK=”：K+LZ1“YHK=”：K+ Z13 LZ2“HZK=”：K+ Z13Z3“ZHX=”：Q+Tcos(F+180)U“ZHY=”：W+Tsin(F+180)V“HZX=”：Q+ Tcos(F+PA)Z6“HZY=”：W+ Tsin (F+PA)Z7Lb1 0：“CDZH” ：?MIf MK：Then Goto 6：Else If MZ1 ：Then Goto 1：Else If MZ2 ：Then Goto 2：Else If MZ3 ：Then Goto 7：Else If MZ2 ：Then Goto 5：If End：If End：If End：If End：If EndLb1 1： MKG：（GG(5)(40L2R2)G(9)(3456R(4)L(4)2(G(3)(6RL)G(7)(336R(3)L(3) G(11)(42240R(5)L(5)2）DFPZG2(6L)C：FPBG2L2H：Goto 3Lb1 2： MZ1G： R（1cos（BZG）L2（24R）Z9：（Z92（Rsin（BZG）Z8）2）DFPtg-1(Z9(Rsin(BZG)Z8)C：FP(BZG)HLb1 3“X=”:UDcos(C)X “Y=”:VDsin(C)YLb1 B：“ZBJS1，FY1”：?JIf J0：Then Goto 4：Else If J0：Then Goto A：If End：If EndLb1 4：“ZB”：?S“ZBX”:XScos（H90） “ZBY”:YSsin（H90） “YB”：?N “YBX”:XNcos（H90） “YBY”:YNsin（H90）Goto 0Lb1 5：Z3MG：（T GG(5)(40L2R2)G(9)(3456R(4)L(4) sin(A) (G(3)(6RL)G(7)(336R(3)L(3)G(11)(42240R(5)L(5) cos(A)Z4： T（ T GG(5)(40L2R2)）cos(A) (G(3)(6RL)G(7)(336R(3)L(3) sin(A)Z5：（Z42Z52）D ：FPtg-1(Z4Z5)C： FP(ABG2L2) H： Goto 3Lb1 6：KMD： F180C： FH：Goto 3Lb1 7： MZ3D： FPAC：CH：Goto 9Lb1 9：“X=”: Z6Dcos(C)X “Y=”: Z7Dsin(C)YGoto BLb1 A：“N”：?N:“E”：?S：“H”：?I “X=”:（NX）cos(H)(SY)sin(H)MZ10“Y=”:（SY）cos(H)(NX)sin(H) Z11“MS”：1711.15+0.004(Z10-85030) EIf IE+2 ：Then“+R1”：6.57(IE2) 2+ Z11 2O Else If IE+2 ：Then“+R2”：7.47(E+2I) 2+(Abs( Z11 )+0.9) 2O“DB”:(IE+0.5)O Z10 M：If End：If End Goto 01.1 程序说明“DimZ” 内存变量扩充 “ZHK”输入直缓点桩号“R”输入曲半径“L”输入缓和曲线长“A”输入偏角“Y1，Z1”路线右转输1，左转输1“FWJ”输入起算方位角“JDX”输入交点X坐标“JDY”输入交点Y坐标“ZHK=”：得出直缓点桩号“HYK=”：得出缓圆点桩号“YHK=”：得出圆缓点桩号“HZK=”：得出缓直点桩号“ZHX=”：得出直缓点X“ZHY=”：得出直缓点Y“HZX=”：得出缓直点X“HZY=”：得出缓直点Y“CDZH”输入待测点桩号“X=”：得出测点桩号中心桩N“Y=”：得出测点桩号中心桩E “ZBJS1，FY1”（坐标计算）施工坐标转大地坐标输+1， “ZB”输入中桩到左边桩的距离；“ZBX”: 得出待测点左边N值“ZBY”: 得出待测点左边E值“YB”输入中桩到右边桩的距离；“YBX”: 得出待测点右边N值“YBY”: 得出待测点右边E值 （放样）大地坐标转施工坐标输1，“N”输入大地坐标的N坐标；“E”输入大地坐标的E坐标。“I”