casio4800曲線坐標計算

《casio4800曲線坐標計算》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在教育資源-天天文庫。

1、坐標反算(4X00)下面兩篇文章均來自本站的論壇====1===坐標反算（源程序）FileZBFS1:M“X0”:N“Y0”:A“PJ”:R:L“LS”:T:O“L”:H“ZH”:F“FWJ”2:Z[1]=P“XJD”+Tcos(F+180):Z[2]=K“YJD”+Tsin(F+180)3:U“R+1,L-1”4:Z[3]=H+L:Z[4]=H+O－L:Z[5]=H+O5:Lbl0:C“LC”:Z[7]=Abs(C－H)6:Prog“KL”7:S=－((X－M)sin(Q+90)－(Y－N)cos(Q+90):AbsS<0.0001C“LC”◢W

2、=“LP”=(X－M)sinQ－(Y－N)cosQ◢C=C+S:Goto0△FileKL1:C≤HZ[8]=－Z[7]:Z[9]=0:Z[10]=0:Goto2△2:C≤Z[3]Z[8]=Z[7]－Z[7]^5÷40÷R2÷L2:Z[9]=Z[7]^3÷6÷R÷L－Z[7]^7÷336÷R^3÷L^3:Z[10]=90Z[7]2÷R÷L÷Л:Goto2△3:C≤Z[4]Z[10]=90L÷R÷Л+180(Z[7]－L)÷R÷Л:Rsin(Z[10]+0.5L－L^3÷240÷R2:Z[9]=R(1－cosZ[10])+L2÷24÷R:Goto2△4

3、:C≥Z[5]X=－(Z[7]－O):Y=0:Z[10]=A:Goto1△5:C≥Z[4]Z[10]=A－90(O－Z[7])2÷R÷L÷Л:X=(O－Z[7])－(O－Z[7])^5÷40÷R2÷L2:Y=(O－Z[7])^3÷6÷R÷L－(O－Z[7])^7÷336÷R^3÷L^3△6:Lbl1:Z[8]=T+(T－X)cosA－YsinA:Z[9]=(T－X)sinA+YcosA:Goto2△7:Lbl2:Pol(Z[8],Z[9]):Z[7]=F+JU:Q=F+Z[10]U:X=Z[1]+IcosZ[7]:Y=Z[2]+IsinZ[7]==

4、==2====用于CASIO4X00計算器的坐標反算程序用于CASIO4X00計算器的坐標反算程序（已知兩坐標求算其平距和方位角）（最簡）源程序如下：程序名：【AZIMUTH】I=0：J=0LbI0NormDeg{DGXY}D"XA"G"XB"X"XB"Y"YB"Pol(X-D,Y-G)J<0=>J=J+360△Fix6J"AZIMUTHA-B"=IntJ+.01Int(60FracJ)+.006Frac(60FracJ)▲Fix3I"H.DIST="▲Goto0特點：界面友好、簡單易用、輸出方便注意：本程序在CASIO4800上調(diào)試運行通過。如果

5、是在4500上運行請將源程序中的I，J分別用V，W替代即可。運行后界面如下：輸入項目XA？————————————請輸入點A的X坐標，按EXE鍵輸入下一個量，下同。YA？————————————請輸入點A的Y坐標。XB？————————————請輸入點B的X坐標。YB？————————————請輸入點B的Y坐標。顯示項目AZIMUTHA-B=###.######————————————顯示點A到點B的方位角（小數(shù)點前為度，小數(shù)點后第一二位表示分，三四五六位表示為##.##秒。如12.523356即表示為12°52′33.56″.如果你將J"AZIM

6、UTHA-B"=IntJ+.01Int(60FracJ)+.006Frac(60FracJ)改為J"AZIMUTHA-B="的話則必須在輸出結(jié)果后按"°′″"鍵將其轉(zhuǎn)換為度分秒.H.DIST=###.###——————————————顯示AB兩點的平距值（三位小數(shù)）。再按EXE就轉(zhuǎn)入下一個計算循環(huán)。==========下面的文章由本人所寫=========????下面是介紹的是用CASSIO4500計算器編程進行兩點間坐標反算的程序，可將兩點的距離和方位角反算出來，在實際運用中最是好用！用途很大，是我測量放樣中的主打曲目，非常實用！源程序如下：　說

7、明:第一行:用于保存坐標的四個寄存器，其中AB用于存放第一個點的X,Y坐標,GH用于存放第二個點的X,Y坐標，計算結(jié)果將是第一個點到第二個點的距離和方位角。　　　　第二行:用于計算兩點間的距離，公式使用方法請參照CASIO4500使用說明書　　　　　第三行:判斷是所得到的角度是否是負數(shù)，如果是將它加360，調(diào)整為正數(shù)?！　〉谒男?整個程序的精華所在（我的認為），它將所計算得到的角度調(diào)整為我們常用和慣用的度分秒的形式。即將十進制的形式改為六十進制形式，方便記錄和使用。casio4800曲線坐標計算（源程序）供測友們參考《來自本站的論壇》曲線坐標計算（

8、源程序）File1:QXZBL1V“ZJZ(L-,R+)”:R:I“LS”:C“ZH(ZY)”:W“FWJ”:A“XJD”