Casio fx-5800P計算器程序

1、CASIO 卡西歐計算器程序網(wǎng)站：/blog論壇：適用：CASIO fx-5800PQ Q： 若有疑問請至Email：ceo原創(chuàng) CASIO fx-5800P ZXZFS直線坐標正反算程序 V1.5說明：該程序適用于計算器 CASIO fx-5800P直線坐標正算、反算，可連續(xù)計算中樁及邊樁坐標其斜交等，還可以反算線路外一點距線路中心的里程和垂距。主程序名：ZXZFS第1步 Deg：Fix 3第2步 Lbl C：1.DK=XY：2.XY=DK：J？W：Lbl 1：JSDK？E：Prog ZXZFSSJ第3步 If W=1：Then Goto A：Else If W=2：Then Goto B：

2、Else Goto C：IfEnd第4步 Lbl A：PJ？G：PA？H第5步 B+(E-A)cos(F)+Gcos(F+H)X第6步 C+(E-A)sin(F)+Gsin(F+H)Y第7步 Cls：X=：Locate 3,1,X：Y=：Locate 3,2,Y第8步ZJD(X)？S：ZJD(Y)？T第9步 Pol(X-S,Y-T)：IM第10步 If J0：Then J+360N：Else JN：IfEnd第11步 Cls：JL=：Locate 4,1,M：FY=：Locate 4,2,N第12步 Goto 1第13步 Lb1 B：X=？K：Y=？L第14步 Pol(K-B，L-C)：ID：

3、If J0：Then J+360P：Else JP：IfEnd第15步 If FP：Then P-F：Else F-P：IfEnd第16步 Sin()DQ第17步 A+Qtan()R第18步 sin()DQ：If FP：Then 1QQ：Else -1QQ：IfEnd第19步 Cls：DK=：Locate 4,1,R：PJ=：Locate 4,2,Q第20步 Goto 1數(shù)據(jù)庫名：ZXZFSSJ第1步 Goto 1第2步 Lb1 1:If E259105:Then 256100A:2575647.999B:495400.3447C:2214720.24F:Return:IfEnd第n步 數(shù)據(jù)庫

4、說明：第1步 Goto 1第2步 Lb1 1:If E7586.706:Then 7152.5561A:3378672.9776B:453219.8377C:985655.65F:Return:IfEnd第2步 Lb1 1:If EXY2.XY=DKJ?=1（輸入1為坐標正算、輸入2為坐標反算）JSDK=258000（輸入計算里程）PJ？=15（輸入計算偏距，左負右正）PA？=90（輸入偏角，正交為90）X=2574241.346（計算結果坐標X）Y=494123.022（計算結果坐標Y）ZJD（X）？=2574000.237（輸入測站點坐標X）ZJD（Y）？=494100.069（輸入測站點坐標Y）JL=242.199（計算結果測站點到計算點水平距離）FY=52616.88（計算結果測站點到計算點方位角）坐標反算運行主程序ZXZFS1.DK=XY2.XY=DKJ?=2（輸入1為坐標正算、輸入2為坐標反算）JSDK=258100（輸入近似里程）X=？2574241.34