辛卜生曲線程式4850

1、CASIOfx4850P計算器程序一、文件名：LXQX（主程序）DZG：A“XA”：B“YA”:C“FW”：D“1RA”：Z“1RB”:F“DKA”：G“DKB”LbI1：H：H“DKI”：P=（ZD）AbS（GF）：K=AbS（HF）：S=PK：Q=C（S2D）K90π:V=C(S42D)K452π:N=C(3S42D)K1352π:J=C(S22D)K45π:R=C(S82D)K454π:L=C(3S82D)K1354π:T=C(5

2、S82D)K2254π:W=C(7S82D)K3154π:X=AK24(cosC4(cosRcosLcosTcosW)2(cosVcosJcosN)cosQ):Y=BK24(sinC4(sinRsinLsinTsinW)2(sinVsinJsinN)sinQ)T=0:T:T≠0=＞Prog“HXYJI”⊿“X=”:X◢“Y=”:Y◢（T默認(rèn)為零，輸入不為零的數(shù)則計算線路中心外移點的坐標(biāo)）M=X:U=Y:Prog“XYSN”:Goto1二

3、、文件名:XYSN(坐標(biāo)反算)E“XO”:O“YO”:M“XI”:U“YI”:pol(MEUO):J＜0=＞J=J360⊿“QA=”:J◢“QS=”:I◢三、文件名:HXYJI(線路中線外移點坐標(biāo)計算)切線方向）夾角，詳見圖示；QH？：點偏離前后方向的距離（前正后負(fù)，詳見圖示）；ZY？：點偏離左右方向的距離（右正左負(fù)，詳見圖示）；輸出：Q=：輸出求得的曲線（某一里程的）切線方位角；X=，Y=：輸出求得的某點坐標(biāo)；J：為置鏡點到待測點方位