5800p正反算0Word格式.docx

1、附件（点击下载）：（在线预览）程序源 2009.04.08校对件2009.04.09附算例原稿子程序 J有误见此件红色为真2009.04.14已有朋友成功，请与成功的朋友多沟通 。2009.04.12CASIO-fx5800（任意平曲线极坐标与直角坐标放样,求里程及边距）湖南津市 赵济汉主程序PQX Deg : Fix 3 : “XZ0:YZ1”？A : IfA = 1: Then Goto 1 : IfEnd IfA = 0 : Then “ BS0:XY1:AND2:DK3:L（I）4 ” ？O :O = 4: ThenGoto 1 :O = 3:Prog“ F.2 ” :X= 0 : I

2、fEnd : IfEnd O 1: Then “ X1 ” ？X : “ Y1” ？Y : XZ11: YZ12: “ X2 ” ？P : “ Y2” ？Q : Pol（ PX , QY） :J0 :J + 360J : Cls : “ S12= ” :Locate 6 ,1, I : “ B12= ” : J DMS1B :O = 1: Then “XY（0） 0: 1” ? B:Lbl1 :A = 1AndO = 3 :Then Prog “ Q.1 ”子程序PPQX （给定综合曲线属性）“ ZQX 0: * 1: * 2 * ” ？C C=0: Then 100Z98: n0 Z99:C

3、=1:m1Z98: n1 Z99:C=2:m2Z98: n2 Z99:*Prog “ PQX ” 其中：mi为第i条综合曲线矩阵变量起始单元，（第1条综合曲线矩阵变量起始单元应自100开始，以便其他程序临时使用100以前的矩阵变量，综合曲线中每一基本单元需8个矩阵存储单元）； ni为第i条综合曲线中基本单元数，每增加一个条综合曲线则增加一行IfC=*Z99: IfEnd语句。还应注特别意，原有程序中的矩阵变量定维语句DimZ应取消，只要原有程序中的矩阵变量定维不大于100，原有程序的运行不受影响。子程序Q . 5（建立数据库） Fix 5 0I : “ N ” ? W : W Z99: “ZM

4、IN”? V : VZ98 “NO.I= ”: I C : V + 8 IG “DK ”？ AZG“X ”？B : BZG + 1“Y ”？ CZG +2“AT ”？D : DZG +3“（1Y+1） ”？K : KZG +4“L ”？E : EZG +5“R1 ”？F : FZG +6“R2”？ OZG +72 : “JX1: NO0 : OK2”? M :M = 2 :Goto 3 :M = 1:GotoI + 1I : Goto1 3 : “END ”子程序Q . 6 “S ” ?W = 0 :Goto 2 :IWW : “S= ” : Locate 5 , 1 , W : “ BP=

5、” : “ OK ”子程序Q.1X = 0 Z98 I : Z99 J : “ DKP ” ? S S = 0:SZ I : Then “ DKP Z I + 8 J : Then “ DKPMAX ” O 4B 0 : Then “ B ” ? Prog “ J ” : TU : “（）D2 ” N : Else0 N :Prog “ Q.2 ” : “ END ”子程序Q . 2O 3 Then “ ” : Z98+ 8 M S ZM8 AndS ZM : I +1 I : M + 8 M O = 3I B :IfEnd : MZ27:Prog “Q. 3” :“ L（I） , I = ”

6、 :Cls : “ MIN = ” : Locate6 , 1 , ZZ98+8 I : “ MAX = ” :6 ,2 , ZZ98+8 I +8:IB :子程序Q . 3U = 0 :BI :Z98+8 I G ZGZ ZG +1Z1: ZG +2Z2: ZG +3Z3 Z3:“ J ” : TZ3ZG +4Z4: ZG +5M : 1 ZG +6Z5: ZG +7Z6Z6Z5Z6: SZD 0N : Prog“Q . 4 ”子程序Q .4（正算）0 : 0I : 0E:0F : 0G : 0H I + 1I : Z3+ Z4（ （ I D12） （ Z5+ I D Z624M ） （ 1

7、80 ） W :I 12:Frac （ I2 ） 0 :E + cos （ W ） E : F + sin （ W ） F :G + cos （ W ） G : H + sin （ W ） H :I 12 :Goto 1：IfEnd Z1+（D36）（ cos （ Z3） + cos （ W ） + 2G + 4E ） + N cos （ U + W ） P Z2+（D36）（ sin （ Z3） + sin （ W ） + 2H + 4F ） + N sin （ U + W ） Q O 0 : “ XP = ” : Locate 5 , 1 , P : “ YP = ” : Locate 5

8、 , 2 , Q : “ AT = ” : WDMSZ27I :Z1 S = 0ZI + 1= 0 AndN = 0 :P ZI + 1: QZI + 2: Prog “ H ” : TZI +3:Pol（ PZ11, QZ12） :J 0 : Then J360J : “ SP= ” : Locate 5 , 1 , I :“ Q. 6 ” :2子程序F . 2 （反算）“ ZH.D（LI） 0 : NO1” ? U Then “ I ” ? B :Z98+ 8 Z99M X = 0 :Z13X : “ X ” ? X :“ Y ” ? Y : 1 Z8“ ” U = 1 : Then （

9、（ XZM + 1） + （YZM +2） ） Z7: Z7+ZMS :Prog“Q . 2”:Z98+ 8 BM : ZM +3: Prog“J ”: T90T （ YZM +2） cos （T） （ XZM + 1） Sin （T） Z7U =1 AndAbs （ Z7） 0.01: Then 0.01 Z7:Z7D : ZM+ D S : ZM +8:ZM +8S ; IfEndProg“Q . 3”: （ YQ ） cos （W90）（XP） sin （W90） Z8Z + Z7+ Z8SAbs （ Z8） 0.0001: Then Z7+ Z8D : Prog“Q .4”: DZ7:

10、1:U =1:S + 0.01 Z : Then “ DKP ” : S B Z991 : Then B1B : ZZ98+ 8B I : ZJ : Else ZI : ZZ98+ 8 Z99J : “ L（I）= ” : B “ MIN= ” : Locate 6 , 1 , I : “ MAX= ” : Locate 6 , 2 , J : “ END, ZH.D（LI）”X Z13: 0X : 3O: IfEnd:U =0:S Z 0.01 : Then “ DK ZZ98+ 8（B+1） + 0.01: Then “ DKMAX , L（I+1） ” “ DKP=” :6 ,1, S

11、: XPP :P =0:109P : Pol（ P , YQ） :sin（WJ） Then II : “ D2= ”: Locate 6 , 2, I :23子程序 JAns . 36 16 （ Int（ Ans ） ） 9Int （100 （Ans Int （Ans ） ） 90T子程序 H. 6 4 Int（ Ans ）+. 36 Ans + . 004 Int （ （ 60 （ Ans （ Int （Ans ） ） T 算例1 例某工程C匝道:一 启动Q . 5按下列数据建立矩阵存储表 给矩阵存储单元定维: 140DimZ 综合曲线属性: 名C . ZD编号0ZMIN= 100N = 4

12、自然段名 称L0L1 L2 L3L4DK0 190 355.927472.168561.791X20934.49521066.11921142.859 21076.99320988.267Y89274.17289411.18289552.42789640.28689644.485AT 47.08177 45.09322 93.33281160.09323 185.500271 -1 1 0L190 165.927116.24189.623R15500100 100R2 10 20 备注： 起始矩阵存储单元 Z100 终了矩阵存储单元 Z139 。 （139 =100 +8 5-1）二 编写程序

13、PPQX（给定综合曲线属性）“ C. ZD 0 ” ？ C 4 Z99:三 启动程序PPQX（指定需计算的综合曲线编号） C. ZD 0 ？提示C匝道赋值 0回车（自动转向PQX进入各项计算）平 曲 线 程 序 运 行 提 示 符CASIO fx5800P 湖南津市 赵济汉启动 Q.5 建立曲线要素矩阵存储表提 示 符示 例说 明N ?问综合曲线自然段数ZMIN?问矩阵存储起始单元NO.I =提示现在自然段DK?问本段起点里程X?问本段起点纵坐标Y?问本段起点横坐标AT?问本段起点切线方位（以小数点为度）（1Y+1）?问曲线偏向 ， 左赋值1， 右赋值+1,直线可赋0.L?问本段曲线长R1?问

14、本段起点曲率半径R2?问本段终点曲率半径JX1:NO0:OK2?问是否校对，是赋值1 ，否赋值0，本综合段结束赋值2。（校对有误时可直接对显示值进行修改）END重复以上拾序步,直至本综合曲线各自然段赋值结束（赋值2）。特别提示：除起始自然段外，其后，各自然段X, Y, AT可缺省，其值均赋值为0，程序在首次运行时，依次计算各接点中桩坐标一次，则能自动补齐各缺省值。这一功能在匝道曲线方程建立时，十分有利。启动 PPQX 选择需计算的综合曲线ZQX0:ZD1*M?问在PPQX程序编写过程中，自定义的综合曲线属性，如：主曲线赋值0，匝道赋值1,等等。选择确定后，程序自动转向PQX ，无需选择时可直接

15、启动PQX。启动 PQX 进入坐标计算阶段XZ0:YZ1?问是否改变以前设定的工作状态，新工作状态赋值0，原工作状态赋值1。（选择原工作状态时，程序直接进入上阶段运行状态，无需再次设置工作与计算状态）BS0: L（I）4?选择新状态时：问计算状态，极坐标放样赋值0，直角坐标赋值1，两种坐标都需要赋值2， 求里程、边距赋值3，由里程求所在曲线段号赋值4。选择原工作状态时不问。极 坐 标 放 样问计算状态，赋值0时X1?问设站点纵坐标Y1?问设站点横坐标X2 ?问定向点纵坐标Y2?问定向点横坐标，由原状态进入时，以上不问。S=B12=给出已知点间边长给出定向角DKP?问测点里程（赋值0时转向程序运

16、行终止）B?问测点偏角（以小数点为度）（+）D2?问测点偏距BP=SP=给出测点方向给出测点边长S?问测点实测边长（赋值0时，转向测设下一点，问测点里程） S=给出修正值（为退回、+为延伸）DKPMAX提示测点里程超出本综合段终点里程DKPMIN提示测点里程小于本综合段起点里程程序运行终止 （DKP=0时）直 角 坐 标 放 样问计算状态，赋值1时XY（0） 0: 1?中桩赋值0，边桩赋值1问测点偏角（以小数点为度），中桩不问问测点偏距，中桩不问XP=YP=AT=给出测点纵坐标给出测点横坐标给出测点切线方向序运行程终止 （DKP=0时）两种坐标都需要问计算状态，赋值2时同上*从略同时给出以上两

17、种结果由里程求所在曲线段号问计算状态，赋值4时L（I）, I=DK（MIN）=DK（MAX）=给出里程所在曲线段号。给出本曲线段最小里程给出本曲线段最大里程本功能只是反求里程的一个辅助功能，以便程序按指定所在曲线段方式进行反算，快速获得计算结果。反求里程边距问计算状态，赋值3时ZH. D（LI） 0 : NO1问反算形式，指定曲线段赋值0、不指定曲线段赋值1。按指定曲线段反算问反算形式，赋值0时。I?问曲线段（可慨略指定）问纵坐标（X=0时，程序运行终止）问横坐标程序运行等待符DKP=D2=给出求点里程给出求点边距（正交）问下点曲线段程序运行终止 。（X=0时）特殊情况提示：DKMIN, L（

18、I1）提示所求点不在本曲线区间，原段号应减1DKMIN, L（I+1）提示所求点不在本曲线区间，原段号应加1这一功能的设置，便于反算点曲线区间位置不明确时，也能按指定曲线段形式进行反算。按指定曲线段形式进行反算，有计算速度快，不存在程序判断盲点的问题，是反算形式的首选。按不指定曲线段反算问反算形式，赋值1时问纵坐标 。（X=0时，程序运行终止）问下点纵坐标DKP提示本里程有误，在程序判断盲区，不可采用。给出本点所在曲线段号。END, ZH.D（LI）提示中断运行程序，转向按指定曲线段形式进行反算。2009-3-315800计算器全线坐标计算放样程序（修改版）彭赐明“XLZBJSCX” LB10 CLS : FIX 4 : 30DIM Z “XHS=G（后视点X）:YHS=L（后视点Y）:XZJ=M（置镜点X）:YZJ=N（置镜点Y）:Pol（G-M,L-N）:DH=I（