CASIO Fx5800p道路程序(wdj)

CASIO Fx-5800p计算器道路坐标计算程序直线程序（ZX）“FWJ=”？Q （“”回车按EXE即可）“QIDZH=”？Z “QIDX=”？A “QIDY=”？B Lb1 0“KP=”？H A+(H-Z)Cos(Q)X B+( H-Z)Sin(Q)Y Lb1 1“XP=”:X“YP=”:YLb1 2“BIAN JU(m)=”?DD=0Goto 0Lb1 3“JIA JIAO L(-),R(+)=”?EX+D*Cos(Q+E) MY+D*Sin(Q+E) NLb1 4“MI=”：M“NI=”：NGoto 2卵形曲线（LXQX）Lb1 0“XA=”？A：“YB=”？B：“CA=”？C：“1/RA=”？D：“1/RB=”？E： “DKA=”？F：“DKB=”？G Lb1 1 “DKI=”？H：“DL=”？O：“DR=”？R：HG Goto 3 （E-D）/Abs（G-F）P：Abs（H-F）Q：PQ I：D+I T C+（I+2D）Q90/J “J=”：JC+（I/4+2D）Q45/（2）M C+（3I/4+2D）Q135/（2）N C+(I/2+2D) Q45/K A+Q/12(Cos（C）+4(Cos（M）+Cos（N）)+2Cos（K）+Cos（J）) XB+Q/12(Sin（C）+4(Sin（M）+Sin（N）)+2Sin（K）+Sin(J) Y“X=”：X“Y=”：YX+OCos(J-90) U Y+OSin(J-90) V X+R Cos(J+90) W Y+RSin(J+90) Z “U=”：U“V=”：V“W=”：W“Z=”：ZGoto 1说明：XA-起点X坐标；XB-起点Y坐标；CA-起点方位角；1/RA-1除以起点半径（左转为负，右转为正）；1/RB-1除以终点半径（左转为负，右转为正）；DKA-起点桩号；DKB-终点桩号；DKI-待求点的桩号；DL-左边距；DR-右边距；J-显示待求点切线方位角；X-显示待求点的中桩X坐标；Y-显示待求点的中桩Y坐标；U-显示待求点的左边桩X坐标；V-显示待求点的左边桩Y坐标；W-显示待求点的右边桩X坐标；Z-显示待求点的右边桩Y坐标。FWJ (计算一个起点至任意一个点的边长与方位角程序)“X，YDIST And BEARING FWJ” Deg：ClrStat：FreqOff：Fix3 “X0（m）=”?A：“Y0（m）=”？B 0K Lb1 0 K+1K：Norm 1：“n=”：KFix3：“Xn（m）=，（0 To END）”？C While C0 “Yn(m)=”? D Pol(C-A，D-B)：Cls IF J0：Then J+360F：Else JF：IFEnd “DIST 0n（m）=”：I“BEAR 0n （DMS）=”：FDMSIList XK：FList YK Goto 0：WhileEnd “FWJEND”HHQX缓和曲线段内任意点坐标计算程序“FWJ=”？Q“ZHUAN XIANG L（-1），R（1）=”？N“R（m）=”?R“LS(m)=”?D“KZH=”?G“XZH=”?U“YZH=”?VLbI 0“KP=”?HAbs(H-G)CC-C5/(40R2D2)+C9/(3456 R4D4) JC3/(6RD)-C7/(336R3D3)+C11/(42240R5D5) KQ+N(C2/(2RD)(180/) FU+JCos(Q)+K Cos(Q+90N) AV+JSin(Q)+K Sin(Q+90N) BLbI 1“XP=”：A “YP=”：B “QIEXIANFWJ=”：F LbI 2“BIAN JU(m)=”?SS=0Goto 0LbI 3“JIA JIAOL(-),R(+) =”?EA+S Cos(F+E) XB+S Sin(F+E) YLbI 4“X1=”：X “Y1=”：Y Goto 2 FWJ=?-输入交点间方位角ZHUAN XIANG L（-1），R（1）=？-输入曲线转向，左输-1，右输1R（m）=?-输入曲线半径LS(m)=?-输入缓和曲线长KZH=?-输入ZH点桩号XZH=? 、YZH=?-输入ZH点坐标KP=?-输入待求点桩号BIAN JU(m)=?-输入边距(斜交时输入斜长),不论左右一律正值,当不计算边桩时输入OJIA JIAOL(-),R(+) =?-输入边桩与中桩法线方向夹角,左边输负值,右边输正值YQX 圆曲线段内任意点坐标计算程序“FWJ=”？Q“ZHUAN XIANG L（-1），R（1）=”？N“R（m）=”?R“LS(m)=”?D“KHY=”?G“XHY=”?A“YHY=”?BLbI 0“KP=”?HAbs(H-G)C2R Sin(90C/(R) JQ+N(90D/(R)+（90C/(R)）) IQ+N(C/R)(180/)+ (90D/(R) FLbI 1A+J Cos(I) XB+J Sin(I) Y“XP=”：X “YP=”：Y “QIEXIANFWJ=”：F LbI 2“BIAN JU(m)=”?SS=0Goto 0LbI 3“JIA JIAOL(-),R(+) =”?EX+S Cos(F+E) KY+S Sin(F+E) LLbI 4“X1=”：K “Y1=”：L Goto 2FWJ=?-输入交点间方位角ZHUAN XIANG L（-1），R（1）=？-输入曲线转向，左输-1，右输1R（m）=?-输入曲线半径LS(m)=?-输入第一缓和曲线长KHY=?-输入HY点桩号XHY=