CASIO4800/4850万能计算程序学习（正反算）

一．程序编制原理和功能：
1.原理:利用simpson公式和点至主点垂距逐步迭代趋近单向收敛原理；
2.功能:正算任意角度、偏距点坐标；反算任意角度的中桩里程和偏距。
主程序：ZCX
L“1,2”:A“QD”B“ZD”R“RQ”V“RZ”C“X0”D“Y0”E“F0”：L=1＝＞Goto1: ≠＞Goto2⊿
Lb11:{KIF}：K“DK”：I“JZ”：F“μ”：Prog“SIM2”：X=X▲：Y=Y▲W“FW” ▲Goto1
Lb12：{XY}：O=X：U=Y：K=A+Abs((Y-D)cos(E+F-180)-(X-C)sin(E+F-180)) ▲
Lb13:I=0: Prog“SIM2”：Z=(U-Y) cos(W+F-180)-（O-X）sin(W+F-180)：AbsZ＜E-4＝＞Goto4：≠＞K=K+Z：Goto3⊿
Lb14:I=0: Prog“SIM2”：Z=(U-Y) ÷ sin(W+F)
Lb15：K“DK” ▲Z“DP” ▲Goto2
子程序：SIM2
N=4：T=（1÷V-1÷R）÷（B-A）：H=（K-A）÷N：P=TNH+1÷R：S=90H÷п：W=E+（P+1÷R）NS：G=1：X=C+H÷6×（cosE+cosW+4∑(cos(E+((G+0.5)HT+2÷R)(G+0.5)S),G,0,(N-1))+2∑(cos(E+(THG+2÷R)GS),G,1,(N-1))）+Icos(W+F):Y=D+H÷6×(sinE+sinW+4∑(sin(E+((G+0.5)HT+2÷R)(G+0.5)S,G,0,(N-1))+2∑(sin(E+(THG+2÷R)GS,G,1,(N-1)))+I(sin(W+F)
说明：A、B-线元起终点里程；R、V-起终点半径（左负右正）；C、D-起点x、y坐标；E-起点方位角；K-正算时为计算点里程，反算时为测点对应中桩里程；I-正算时为支距（左负右正），反算时为测点对应于中线某一角度F的支距（若F=90⁰则为垂距，左负右正）；F-为线外左右测点连线与路线前进方向相交形成的右角；W-切线方位角；X、Y-正算是为待求点坐标，反算时为已知点坐标；N-可取3-12，视线型而定，亦可改为变量。

最后编辑：2019-08-01

作者：dawang

这个作者貌似有点懒，什么都没有留下。

站内专栏