fx5800任意平曲線極坐標(biāo)與直角坐標(biāo)放樣教學(xué)資料

1、Good is good, but better carries it.精益求精，善益求善。fx5800任意平曲線極坐標(biāo)與直角坐標(biāo)放樣-CASIO-fx5800程序源(任意平曲線極坐標(biāo)與直角坐標(biāo)放樣,求里程及邊距)CASIO-fx5800程序源(任意平曲線極坐標(biāo)與直角坐標(biāo)放樣,求里程及邊距)CASIO-fx5800(任意平曲線極坐標(biāo)與直角坐標(biāo)放樣,求里程及邊距)湖南津市趙濟漢主程序PQXDeg:Fix3:“XZ0:YZ1”？A:IfA=1:ThenGoto1:IfEndIfA=0:Then“BS0:XY1:AND2:DK3:L(I)4”？O:IfEndIfO=4:ThenGoto1:IfEnd

2、IfO=3:ThenProg“F.2”:IfX=0:ThenGoto1:IfEnd:IfEndIfO1:Then“X1”？X:“Y1”？Y:XZ11:YZ12:“X2”？P:“Y2”？Q:Pol(PX,QY):IfJ0:ThenJ+360J:IfEnd:Cls:“S12=”:Locate6,1,I:“B12=”:J?DMS1B:IfEndIfO=1:Then“XY(0)0:1”?B:IfEndLbl1:IfA=1AndO=3:ThenProg“F.2”:IfEnd:Prog“Q.1”子程序PPQX（給定綜合曲線屬性）“ZQX0:*1:*2*”？CIfC=0:Then100Z98:n0Z99:I

3、fEndIfC=1:Thenm1Z98:n1Z99:IfEndIfC=2:Thenm2Z98:n2Z99:IfEnd*Prog“PQX”其中：mi為第i條綜合曲線矩陣變量起始單元，(第1條綜合曲線矩陣變量起始單元應(yīng)自100開始，以便其他程序臨時使用100以前的矩陣變量，綜合曲線中每一基本單元需8個矩陣存儲單元)；ni為第i條綜合曲線中基本單元數(shù)，每增加一個條綜合曲線則增加一行IfC=*Z99:IfEnd語句。還應(yīng)注特別意，原有程序中的矩陣變量定維語句DimZ應(yīng)取消，只要原有程序中的矩陣變量定維不大于100，原有程序的運行不受影響。子程序Q.5(建立數(shù)據(jù)庫)Deg:Fix50I:“N”?W:WZ

4、99:“ZMIN”?V:VZ98Lbl1:“NO.I=”:ILblC:V+8IG“DK”？A:AZG“X”？B:BZG+1“Y”？C:CZG+2“AT”？D:DZG+3“(1Y+1)”？K:KZG+4“L”？E:EZG+5“R1”？F:FZG+6“R2”？O:OZG+7Lbl2:“JX1:NO0:OK2”?M:IfM=2:ThenGoto3:IfEnd:IfM=1:ThenGotoC:IfEndI+1I:Goto1Lbl3:“END”子程序Q.6Lbl1:“S”?W:IfW=0:ThenGoto2:IfEndIWW:Cls:“S=”:Locate5,1,W:“BP=”:J?DMSGoto1Lb

5、l2:Cls:“OK”子程序Q.1IfX=0AndO=3:ThenGoto2:IfEndLbl1:Z98I:Z99J:“DKP”?SIfS=1:ThenProg“JH.ZJ”:Goto1:IfEnd（加橋臺轉(zhuǎn)軸時）IfS=2:ThenProg“ZH.2”:Goto1:IfEnd（加涵通轉(zhuǎn)軸時）IfS=0:ThenGoto2:IfEnd:IfSZI:Then“DKPZI+8J:Then“DKPMAX”Goto1:IfEndIfO4AndB0:Then“B”?V:V:Prog“J”:TU:“()D2”?N:Else0N:IfEndProg“Q.2”:Goto1Lbl2:“END”子程序Q.2IfO

6、3:Then“”:IfEnd0I:Z98+8MIfSZM8AndSZM:ThenGoto1:IfEndLbl2:I+1I:M+8MIfSZM:ThenGoto1:ElseGoto2:IfEndLbl1:IfO=3:ThenIB:IfEnd:MZ27:IfO4:ThenProg“Q.3”:Else“L(I),I=”:ICls:“MIN=”:Locate6,1,ZZ98+8I:“MAX=”:Locate6,2,ZZ98+8I+8:IB:IfEnd子程序Q.3IfO=3AndU=0:ThenBI:IfEndZ98+8IGZGZZG+1Z1:ZG+2Z2:ZG+3Z3Z3:Prog“J”:TZ3ZG+

7、4Z4:ZG+5M:1ZG+6Z5:1ZG+7Z6Z6Z5Z6:SZDIfO=3:Then0N:IfEnd:Prog“Q.4”子程序Q.4(正算)Lbl0:0I:0E:0F:0G:0HLbl1:I+1I:Z3+Z4(ID12)(Z5+IDZ624M)(180)W:IfI12:ThenIfFrac(I2)0:ThenE+cos(W)E:F+sin(W)F:ElseG+cos(W)G:H+sin(W)H:IfEnd:IfEndIfI12:ThenGoto1：IfEndZ1+（D36）(cos(Z3)+cos(W)+2G+4E)+Ncos(U+W)PZ2+（D36）(sin(Z3)+sin(W)+2

8、H+4F)+Nsin(U+W)QIfO=3:ThenGoto2:IfEndIfO0:ThenCls:“XP=”:Locate5,1,P:“YP=”:Locate5,2,Q:“AT=”:W?DMSIfEndZ27I:IfZIS=0AndZI+1=0AndN=0:ThenPZI+1:QZI+2:W:Prog“H”:TZI+3:IfEndIfO1:ThenPol(PZ11,QZ12):IfJZM+8:ThenZM+8S;IfEndIfU=0:ThenProg“Q.3”:ElseProg“Q.2”:IfEnd“?”Lbl1:(YQ)cos（W90）(XP)sin(W90)Z8Z+Z7+Z8SIfAbs

9、(Z8)0.0001:ThenZ7+Z8D:Prog“Q.4”:DZ7:Goto1:IfEndIfU=1:ThenIfS+0.01Z:Then“DKP”:SIfBZ991:ThenB1B:ZZ98+8BI:ZJ:ElseZI:ZZ98+8Z99J:IfEnd:“L(I)=”:BCls:“MIN=”:Locate6,1,I:“MAX=”:Locate6,2,J:“END,?ZH.D(LI)”XZ13:0X:3O:Goto3:IfEnd:IfEndIfU=0:ThenIfSZ0.01:Then“DKZZ98+8(B+1)+0.01:Then“DKMAX,L(I+1)”Goto2:IfEnd:IfE

10、ndCls:“DKP=”:Locate6,1,S:XPP:IfP=0:Then109P:IfEnd:Pol(P,YQ):Ifsin（WJ）0:ThenII:IfEnd:“D2=”:Locate6,2,I:Goto2Lbl3子程序JAns.3616(Int(Ans)9Int(100(AnsInt(Ans)90T子程序H.64Int(Ans)+.36Ans+.004Int(60(Ans(Int(Ans)T為了實現(xiàn)橋臺轉(zhuǎn)軸坐標(biāo)計算，現(xiàn)（2009.04.19）加一個子程序如下：子程序JH.ZJ(橋臺轉(zhuǎn)軸)“?B”?V:V:Prog“J:W+TTLbl1:“?(Y+)D”?N:N=0?Goto2:“?(

11、+)S”?SPol(N,S):Rec(I,TJ)Cls:“X=”:Locate6,1,I+P:“Y=”:Locate6,2,J+QGoto1Lbl2:“OK”在子程序Q.1中語句Lbl1:Z98I:Z99J:“DKP”?S后加IfS=1:ThenProg“JH.ZJ”:Goto1:IfEnd（加橋臺轉(zhuǎn)軸時）就可以了，(2009.04.19以加，見綠色標(biāo)注語句。橋臺轉(zhuǎn)軸直角坐標(biāo)計算運行提示符直角坐標(biāo)放樣令DKP=-1時，轉(zhuǎn)向橋臺轉(zhuǎn)軸直角坐標(biāo)計算提示符說明以上一測點中樁為中心作偏轉(zhuǎn)?B?問轉(zhuǎn)軸偏角（以小數(shù)點為度）?(Y+)D?問偏距（與直角坐標(biāo)放樣時意義一致）。賦值0時轉(zhuǎn)向OK?(+)S?問支距（

12、小里程方向為，大里程方向為+）X=給出點位縱坐標(biāo)Y=給出點位橫坐標(biāo)OK本轉(zhuǎn)軸各點計算結(jié)束，返回直角坐標(biāo)放樣。子程序ZH.2(涵通轉(zhuǎn)軸)“?B”?V:V:Prog“J:W+TTLbl1:“?(+)?K”?S:S=0?Goto2:“?(Y+)D”?NNCos(T)+PX:NSin(T)+QYCls:“X=”:Locate6,1,SCos(W)+X:“Y=”:Locate6,2,SSin(W)+YGoto1Lbl2:“OK”在子程序Q.1中語句IfS=1:ThenProg“JH.ZJ”:Goto1:IfEnd后加IfS=2:ThenProg“ZH.2”:Goto1:IfEnd（加涵通轉(zhuǎn)軸時)即可。涵

13、通轉(zhuǎn)軸直角坐標(biāo)計算中樁直角坐標(biāo)放樣令DKP=2時，提示符示例說明以上一測點中樁為中心作偏轉(zhuǎn)?B?問涵通偏角（以小數(shù)點為度）?(+)K?問里程差（相對于涵通中樁，小里程為、大里程為+），賦值0時轉(zhuǎn)向OK?(Y+)D?問偏距（與直角坐標(biāo)放樣時意義一致）X=給出點位縱坐標(biāo)Y=給出點位橫坐標(biāo)OK本轉(zhuǎn)軸各點計算結(jié)束，返回直角坐標(biāo)放樣。算例1例某工程C匝道:根據(jù)算例數(shù)據(jù)確定綜合曲線屬性:令名C.ZD令編號0令（矩陣存起始儲單元）ZMIN=100（綜合曲線段數(shù),不含終點）N=4紅色數(shù)據(jù)應(yīng)在Q.5程序運行時按提示賦值一給矩陣存儲單元定維:（COMP狀態(tài)下）140DimZ二編寫程序PPQX（PROG狀態(tài)下給定綜

14、合曲線屬性）“C.ZD0”？CIfC=0:Then起始單元100Z98:段數(shù)4Z99:IfEndProg“PQX”三啟動Q.5按下列數(shù)據(jù)建立矩陣存儲表（COMP狀態(tài)下按提示賦值，詳見附件運行提示符）自然段名稱L0L1L2L3L4DK0190355.927472.168561.791X20934.49521066.11921142.85921076.99320988.267Y89274.17289411.18289552.42789640.28689644.485AT47.0817745.0932293.33281160.09323185.500271-11110L190165.927116.2

15、4189.6230R1550055001001000R2550010010010200備注：起始矩陣存儲單元Z100終了矩陣存儲單元Z139。(139=100+85-1)四啟動程序PPQX（COMP狀態(tài)下指定需計算的綜合曲線編號）C.ZD0？提示C匝道賦值0回車（自動轉(zhuǎn)向PQX進(jìn)入各項計算）為了提高計算速度，現(xiàn)提供Q.4(5點法加速),以該程序取代原有Q.4,其它無需改變。取代后按指定區(qū)間反算時間大約4秒，有興趣的朋友可以試試。Q.4(5點法加速)IfZ4=0:Then1Z4:IfEndZ4ZG+6Z9:Z4ZG+7Z10(Z9Z10)（2MZ9Z10）Z13:SZZ14:Z13Z14Z13:

16、1Z9Z220.1739274226Z15:0.3260725774Z16:0.0694318442Z17:0.3300094782Z181Z18Z19:1Z17Z20:180Z21Z3+Z17Z14(Z22+Z17Z13)Z21Z17Z3+Z18Z14(Z22+Z18Z13)Z21Z18Z3+Z19Z14(Z22+Z19Z13)Z21Z19Z3+Z20Z14(Z22+Z20Z13)Z21Z20Z3+Z14(Z22+Z13)Z21WZ1+Z14(Z15cos(Z17)+Z16cos(Z18)+Z16cos(Z19)+Z15cos(Z20)+Ncos(U+W)PZ2+Z14(Z15sin(Z17

17、)+Z16sin(Z18)+Z16sin(Z19)+Z15sin(Z20)+Nsin(U+W)QIfO=3:ThenGoto2:IfEndIfO0:ThenCls:“XP=”:Locate5,1,P:“YP=”:Locate5,2,Q:“AT=”:W?DMSIfEndZ27I:IfZIS=0AndZI+1=0AndN=0:ThenPZI+1:QZI+2:W:Prog“H”:TZI+3:IfEndIfO1:ThenPol(PZ11,QZ12):IfJMAX提示測點里程超出本綜合段終點里程DKP中樁te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:07賦值0，邊樁賦值1DK

18、P?te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:09問測點里程（賦值0時轉(zhuǎn)向程序運行終止）B?te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:11問測點偏角（以小數(shù)點為度）te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:12，中te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:08樁不問(+)D2?te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:12問測點偏距，te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:13中te=mailto:雨林

19、木風(fēng)dateTime=2009-03-30T20:09樁不問XP=YP=AT=te=mailto:雨林木風(fēng)dateTime=2009-03-30T19:58給出測點te=mailto:雨林木風(fēng)dateTime=2009-03-30T19:59縱te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:00坐標(biāo)te=mailto:雨林木風(fēng)dateTime=2009-03-30T19:59給出測點te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:00橫坐標(biāo)te=mailto:雨林木風(fēng)dateTime=2009-03-30T19:59給出測點te=mailto

20、:雨林木風(fēng)dateTime=2009-03-30T20:01切線te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:00方向te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:02ENDte=mailto:雨林木風(fēng)dateTime=2009-03-30T20:02序運行程終止(DKP=0時)te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:17兩種坐標(biāo)都te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:18需要te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:14問計算狀態(tài)，賦值

21、2時te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:17te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:17DKP?同上te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:18*從略te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:18*te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:21同時te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:19給出以上te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:20兩種結(jié)果te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:21ENDte=mailto:雨林木風(fēng)dateTime=2009-03-30T20:02程序運行終止(DKP=0時)由里程求所在曲線段號問計算狀態(tài)，賦值4時提示符示例說明te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:17te=mailto:雨林木風(fēng)dateTime=2009-03-30T20:17DKP