辛卜生曲線程式4850

1、CASIOfx4850P計(jì)算器程序一、文件名：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ù)則計(jì)算線路中心外移點(diǎn)的坐標(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(線路中線外移點(diǎn)坐標(biāo)計(jì)算)切線方向）夾角，詳見(jiàn)圖示；QH？：點(diǎn)偏離前后方向的距離（前正后負(fù)，詳見(jiàn)圖示）；ZY？：點(diǎn)偏離左右方向的距離（右正左負(fù)，詳見(jiàn)圖示）；輸出：Q=：輸出求得的曲線（某一里程的）切線方位角；X=，Y=：輸出求得的某點(diǎn)坐標(biāo)；J：為置鏡點(diǎn)到待測(cè)點(diǎn)方位