首页 fx5800任意平曲线极坐标与直角坐标放样,求里程及边距

fx5800任意平曲线极坐标与直角坐标放样,求里程及边距

举报
开通vip

fx5800任意平曲线极坐标与直角坐标放样,求里程及边距CASIO-fx5800程序源(任意平曲线极坐标与直角坐标放样,求里程及边距)   CASIO-fx5800程序源(任意平曲线极坐标与直角坐标放样,求里程及边距) CASIO-----fx5800  (任意平曲线极坐标与直角坐标放样,求里程及边距)         湖南津市 赵济汉 主程序PQX Deg : Fix 3 : “XZ→0:YZ→1”?A : If  A = 1: Then Goto 1 : IfEnd ↙ If  A = 0 : Then “ BS→0:XY→1:AND→2:DK→3:L...

fx5800任意平曲线极坐标与直角坐标放样,求里程及边距
CASIO-fx5800程序源(任意平曲线极坐标与直角坐标放样,求里程及边距)   CASIO-fx5800程序源(任意平曲线极坐标与直角坐标放样,求里程及边距) CASIO-----fx5800  (任意平曲线极坐标与直角坐标放样,求里程及边距)         湖南津市 赵济汉 主程序PQX Deg : Fix 3 : “XZ→0:YZ→1”?A : If  A = 1: Then Goto 1 : IfEnd ↙ If  A = 0 : Then “ BS→0:XY→1:AND→2:DK→3:L(I)→4 ” ?O : IfEnd ↙ If  O = 4: Then  Goto 1 : IfEnd ↙ If  O = 3: Then  Prog  “ F.2 ” : If  X= 0 : Then  Goto 1 : IfEnd : IfEnd ↙ If  O ≠ 1: Then “ X1 ” ?X : “ Y1” ?Y : X→Z[11]: Y→Z[12]: “ X2 ” ?P : “ Y2” ?Q : Pol( P-X , Q-Y) : If  J﹤0 : Then  J + 360→J : IfEnd : Cls : “ S12= ” :  Locate 6 ,1, I : “ B12= ” : J ?DMS◣ 1→B : IfEnd ↙ If  O = 1: Then “XY(0) →0: ≠﹥1” ? B: IfEnd ↙ Lbl  1 : If  A = 1  And  O = 3 :Then  Prog  “ F.2 ” : IfEnd : Prog “ Q.1 ”   子程序PPQX             (给定综合曲线属性) “ ZQX →0: *** →1: *** →2 ******* ” ?C ↙ If  C=0: Then 100→Z[98]: n0 →Z[99]: IfEnd ↙ If  C=1: Then  m1→Z[98]: n1 →Z[99]: IfEnd ↙ If  C=2: Then  m2→Z[98]: n2 →Z[99]: IfEnd ↙ ******* Prog “ PQX ” 其中:  mi为第i条综合曲线矩阵变量起始单元,(第1条综合曲线矩阵变量起始单元应自100开始,以便其他程序临时使用100以前的矩阵变量,综合曲线中每一基本单元需8个矩阵存储单元); ni为第i条综合曲线中基本单元数,每增加一个条综合曲线则增加一行If  C=*******→Z[99]: IfEnd↙语句。 还应注特别意,原有程序中的矩阵变量定维语句DimZ应取消,只要原有程序中的矩阵变量定维不大于100,原有程序的运行不受影响。 子程序Q . 5              (建立数据库) Deg : Fix 5 ↙ 0→I : “ N ” ? W : W →Z[99]: “Z[MIN]”? V : V→Z[98]↙ Lbl  1 : “NO.I= ”: I ◣ Lbl  C : V + 8 I→G ↙ “→DK ”?A : A→Z[G]↙ “→X ”?B : B→Z[G + 1]↙ “→Y ”?C : C→Z[G +2]↙ “→AT ”?D : D→Z[G +3]↙ “→(-1Y+1) ”?K : K→Z[G +4]↙ “→L ”?E : E→Z[G +5]↙ “→R1 ”?F : F→Z[G +6]↙ “→R2”?O : O→Z[G +7]↙ Lbl  2 : “JX→1: NO→0 : OK→2”? M : If  M = 2 : Then  Goto 3 : IfEnd : If  M = 1: Then  Goto  C : IfEnd ↙ I + 1→I : Goto  1 ↙ Lbl  3 : “END ” 子程序Q . 6 Lbl  1 : “S ” ? W : If  W = 0 : Then  Goto 2 : IfEnd ↙ I-W→W : Cls : “⊿S= ” : Locate 5 , 1 , W : “ BP= ” : J ?DMS◣ Goto  1 ↙ Lbl  2 : Cls : “ OK ” 子程序Q.1 If  X = 0  And  O = 3 : Then  Goto  2 : IfEnd ↙ Lbl  1 : Z[98]→ I : Z[99]→ J : “ →DKP ” ? S ↙ If  S = -1: Then  Prog  “JH . ZJ ” : Goto  1 : IfEnd ↙(加桥台转轴时) If  S = -2: Then  Prog  “ZH . 2 ” : Goto  1 : IfEnd ↙(加涵通转轴时) If  S = 0: Then  Goto  2 : IfEnd : If  S﹤Z[ I ]: Then “ DKP Z[ I + 8 J ]: Then “ DKP>MAX ” ◣ Goto  1 : IfEnd ↙ If  O ≠ 4  And  B ≠ 0 : Then “ →B ” ? V : V : Prog “ J ” : T→U : “→(-+)D÷2 ”  ? N : Else  0 →N : IfEnd ↙ Prog “ Q.2 ” : Goto  1 ↙ Lbl  2 : “ END ” 子程序Q . 2 If  O ≠3  : Then “ →” : IfEnd ↙ 0→I : Z[98]+ 8 →M ↙ If  S ≥ Z[M-8 ]And  S ≤ Z[M ]:Then  Goto  1 : IfEnd ↙ Lbl  2 : I +1 →I : M + 8 →M ↙ If  S ≤ Z[M ]:Then  Goto  1 : Else  Goto  2 : IfEnd ↙ Lbl  1 : If  O = 3  : Then  I →B :IfEnd : M→Z[27]:  If  O ≠ 4  : Then  Prog “Q. 3” : Else  “ L(I) , I = ” : I ◣ Cls : “ MIN = ” : Locate  6 , 1 , Z[Z[98]+8 I ]: “ MAX = ” : Locate  6 ,2 , Z[Z[98]+8 I +8]:I→B : IfEnd ↙ 子程序Q . 3 If  O = 3  And  U = 0 : Then  B→I : IfEnd ↙ Z[98]+8 I →G ↙ Z[G]→Z ↙ Z[G +1]→Z[1]: Z[G +2]→Z[2]: Z[G +3]→Z[3]↙ Z[3]:Prog  “ J ” : T→Z[3]↙ Z[G +4]→Z[4]: Z[G +5]→M : 1÷ Z[G +6]→Z[5]: 1÷ Z[G +7]→Z[6]↙ Z[6]-Z[5]→Z[6]: S-Z→D ↙ If  O = 3  : Then  0→N : IfEnd : Prog  “Q . 4 ”↙ 子程序Q .4            (正算) Lbl  0 : 0→I : 0→E:0→F : 0→G : 0→H ↙ Lbl  1 : I + 1→I : Z[3]+ Z[4]( ( I D÷12) ( Z[5]+ I D Z[6]÷24÷M ) ( 180÷л ) →W : If  I ﹤12: Then  If  Frac ( I÷2 ) ﹥0 : Then  E + cos ( W ) →E : F + sin ( W ) →F : Else  G + cos ( W ) → G : H + sin ( W ) → H : IfEnd : IfEnd ↙ If  I ﹤12 : Then  Goto 1:IfEnd ↙ Z[1]+(D÷36)( cos ( Z[3]) + cos ( W ) + 2G + 4E ) + N cos ( U + W ) →P ↙ Z[2]+(D÷36)( sin ( Z[3]) + sin ( W ) + 2H + 4F ) + N sin ( U + W ) →Q ↙ If  O = 3 : Then  Goto  2 : IfEnd ↙ If  O ≠ 0 : Then  Cls : “ XP = ” : Locate 5 , 1 , P : “ YP = ” : Locate 5 , 2 , Q : “ AT = ” : W?DMS◣ IfEnd ↙ Z[27]→I : If  Z[I]- S = 0  And  Z[I + 1]= 0 And  N = 0 : Then  P →Z[I + 1]: Q→Z[I + 2]: W : Prog “ H ” : T→Z[I +3]: IfEnd ↙ If  O ≠ 1: Then  Pol( P-Z[11], Q-Z[12]) : If  J < 0 : Then J+360→J : IfEnd : Cls : “ SP= ” : Locate 5 , 1 , I : “ BP= ” : J ?DMS◣ Prog  “ Q. 6 ” : IfEnd ↙ Lbl  2 子程序F . 2             (反算) “ ZH.D(LI) →0 : NO→1” ? U ↙ Lbl  2 : If  U = 0 : Then “ I ” ? B : IfEnd ↙ Z[98]+ 8 Z[99]→M ↙ If  X = 0 : Then  Z[13]→X : IfEnd : “ X ” ? X : If  X = 0 : Then  Goto  3 : IfEnd ↙ “ Y ” ? Y : 1 →Z[8]↙ “? ” ↙ If  U = 1 : Then -√ ( ( X-Z[M + 1]) ² + (Y-Z[M +2]) ² ) →Z[7]: Z[7]+Z[M]→S :  Prog“Q . 2”: IfEnd ↙ Z[98]+ 8 B→M : Z[M +3]: Prog“J ”: T-90→T ↙ ( Y-Z[M +2]) cos (T) -( X-Z[M + 1]) Sin (T) →Z[7]↙ If  U =1 And  Abs ( Z[7]) ≤ 0.01: Then -0.01 →Z[7]: IfEnd ↙ Z[7]→D : Z[M]+ D →S : If  S > Z[M +8]: Then  Z[M +8]→S ; IfEnd  ↙ If  U = 0 : Then  Prog“Q . 3”: Else  Prog“Q . 2”: IfEnd ↙ “? ” ↙ Lbl  1 : ( Y-Q ) cos (W-90)-(X-P) sin (W-90) → Z[8]↙ Z + Z[7]+ Z[8]→S↙ If  Abs ( Z[8]) ≥ 0.0001: Then Z[7]+ Z[8]→D : Prog“Q .4”: D→Z[7]: Goto  1: IfEnd ↙ If  U =1: Then  If  S + 0.01< Z : Then “ DKP≠ ” : S ◣ If  B< Z[99]-1 : Then B-1→B : Z[Z[98]+ 8B ]→I : Z→J : Else Z→I : Z[Z[98]+ 8 Z[99]]→J : IfEnd : “ L(I)= ” : B ◣ Cls : “ MIN= ” : Locate 6 , 1 , I : “ MAX= ” : Locate 6 , 2 , J : “ END, ?ZH.D(LI)”◣ X →Z[13]: 0→X : 3→O: Goto  3 : IfEnd: IfEnd ↙ If  U =0: Then  If  S< Z- 0.01 : Then “ DK Z[Z[98]+ 8(B+1) ]+ 0.01: Then “ DK>MAX , L→(I+1) ” ◣ Goto  2 : IfEnd : IfEnd ↙ Cls : “ DKP=” : Locate  6 ,1, S : X-P→P : If  P =0: Then  ×10-9→P : IfEnd : Pol( P , Y-Q) : If  sin(W-J)>0: Then -I→I : IfEnd : “ D÷2= ”: Locate 6 , 2, I : Goto  2↙ Lbl  3 子程序 J Ans  ÷ . 36 -16 ( Int  ( Ans ) ) ÷ 9-Int (100 (Ans- Int (Ans ) )  ) ÷90→T 子程序 H . 6 4 Int  ( Ans )+. 36 Ans + . 004 Int ( ( 60 ( Ans- ( Int (Ans ) ) →T 为了实现桥台转轴坐标计算,现(2009.04.19)加一个子程序如下: 子程序 JH . ZJ       (桥台转轴) “?B ”? V : V : Prog“J : W + T→T ↙ Lbl  1 : “?(-Y +) D ”? N : N = 0 ? Goto 2 : “?(-→ +) S ”? S↙ Pol(N , S ) : Rec( I ,T-J ) ↙ Cls : “X = ”: Locate  6, 1 , I + P : “Y = ”: Locate  6 , 2 , J + Q ◣ Goto 1 ↙ Lbl  2 : “ OK ” ◣ 在子程序Q.1 中语句 Lbl  1 : Z[98]→ I : Z[99]→ J : “ →DKP ” ? S ↙后加 If  S = -1: Then  Prog  “JH . ZJ ” : Goto  1 : IfEnd ↙(加桥台转轴时)就可以了,(2009.04.19以加,见绿色标注语句。                   桥台转轴直角坐标计算 运行提示符        直角坐标放样令DKP=-1时,转向桥台转轴直角坐标计算   提  示  符          说                  明                    以上一测点中桩为中心作偏转   ? B ?           问转轴偏角(以小数点为度)   ?(-Y + ) D?    问偏距(与直角坐标放样时意义一致)。赋值0时转向OK   ?(-→ + ) S?   问支距(小里程方向为-,大里程方向为+)   X=               给出点位纵坐标   Y=               给出点位横坐标                           OK              本转轴各点计算结束,返回直角坐标放样。 子程序 ZH . 2       (涵通转轴) “?B ”? V : V : Prog“J : W + T→T Lbl  1 : “?(-→ +) ? K ”? S : S = 0 ? Goto 2 : “?(-Y +) D ”? N ↙ N Cos ( T) + P → X : N Sin ( T) + Q→ Y  ↙ Cls : “X = ”: Locate  6, 1 ,S Cos( W ) + X : “Y = ”: Locate  6 , 2 , S Sin(W ) + Y ◣ Goto 1 ↙ Lbl  2 : “ OK ” ◣ 在子程序Q.1 中语句If  S = -1: Then  Prog  “JH . ZJ ” : Goto  1 : IfEnd ↙后加                  If  S = -2: Then  Prog  “ZH . 2 ” : Goto  1 : IfEnd ↙(加涵通转轴时)即可。                            涵通转轴直角坐标计算  中桩直角坐标放样令DKP=-2时, 提  示  符 示  例 说                  明            以上一测点中桩为中心作偏转 ? B ?           问涵通偏角(以小数点为度) ?(-→ + ) δ K?  问里程差(相对于涵通中桩,小里程为-、大里程为+),赋值0时转向OK ?(-Y + ) D?  问偏距(与直角坐标放样时意义一致) X=                         给出点位纵坐标 Y=                         给出点位横坐标   OK           本转轴各点计算结束,返回直角坐标放样。 算例1        例某 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 C匝道:    根据算例数据确定综合曲线属性: 令名 C.ZD   令编号0   令(矩阵存起始储单元 )Z[MIN]= 100   (综合曲线段数,不含终点)N = 4       红色数据应在Q.5程序运行时按提示赋值   一   给矩阵存储单元定维:(COMP状态下)   140→DimZ      二   编写程序PPQX(PROG状态下给定综合曲线属性)   “ C. ZD →0 ” ? C ↙   If  C=0: Then 起始单元100→Z[98]: 段数4 →Z[99]: IfEnd ↙   Prog “ PQX ”          三  启动Q . 5  按下列数据建立矩阵存储表  (COMP状态下按提示赋值,详见附件运行提示符)                      自              然                  段   名 称   L0      L1         L2           L3            L4        DK       0      190        355.927      472.168    561.791 X    20934.495  21066.119  21142.859   21076.993  20988.267 Y    89274.172  89411.182   89552.427  89640.286  89644.485 AT   47.08177  45.09322    93.33281    160.09323   185.50027 ±1      -1         1          1           1          0 L     190      165.927       116.241    89.623         0 R1     5500       5500       100        100            0 R2     5500       100        100         ×10 20         0    备注: 起始矩阵存储单元 Z[100]   终了矩阵存储单元 Z[139 ]。   (139 =100 +8 × 5-1) 四   启动程序PPQX(COMP状态下指定需计算的综合曲线编号)    C. ZD →0 ?    提示C匝道赋值 0         回车   (自动转向PQX进入各项计算) 为了提高计算速度,现提供Q.4 (5点法加速),以该程序取代原有Q.4,其它无需改变。取代后按指定区间反算时间大约4秒,有兴趣的朋友可以试试。 Q.4     (5点法加速) If  Z[4]= 0 : Then 1→Z[4]: IfEnd↙ Z[4]Z[G+6]→Z[9]: Z[4]Z[G+7]→Z[10]↙ ( Z[9]-Z[10]) ÷ ( 2M  Z[9]Z[10])→Z[13]: S-Z→ Z[14]: Z[13]Z[14]→Z[13]: 1 ÷ Z[9]→Z[22]↙ 0.1739274226→ Z[15]: 0.3260725774→ Z[16]: 0.0694318442→ Z[17]: 0.3300094782→ Z[18]↙ 1-Z[18]→Z[19]: 1-Z[17]→Z[20]: 180 ÷ л → Z[21]↙ Z[3]+ Z[17]Z[14](Z[22]+ Z[17]Z[13]) Z[21]→Z[17]↙ Z[3]+ Z[18]Z[14](Z[22]+ Z[18]Z[13]) Z[21]→Z[18]↙ Z[3]+ Z[19]Z[14](Z[22]+ Z[19]Z[13]) Z[21]→Z[19]↙ Z[3]+ Z[20]Z[14](Z[22]+ Z[20]Z[13]) Z[21]→Z[20]↙ Z[3]+ Z[14] ( Z[22]+ Z[13]) Z[21]→W↙ Z[1]+ Z[14] ( Z[15]cos( Z[17]) + Z[16]cos( Z[18]) + Z[16]cos( Z[19]) + Z[15]cos( Z[20]) ) +N cos( U + W ) →P↙ Z[2]+ Z[14] ( Z[15]sin( Z[17]) + Z[16]sin ( Z[18]) + Z[16]sin ( Z[19]) + Z[15]sin ( Z[20]) ) + N sin (U + W) →Q↙ If  O = 3 : Then  Goto 2 : IfEnd↙ If  O ≠ 0 : Then  Cls : “ XP= ” : Locate 5 , 1 , P : “ YP= ” : Locate 5 , 2 , Q : “ AT= ” : W?DMS◣ IfEnd↙ Z[27]→I : If  Z[I]- S = 0  And  Z[I+1]= 0  And N = 0 : Then  P→Z[I+1]: Q → Z[I+2]: W : Prog “ H ” : T→ Z[I+3]: IfEnd↙ If  O ≠ 1: Then  Pol( P-Z[11], Q-Z[12]) : If  J < 0 : Then J+360→J : IfEnd : Cls : “ SP= ” : Locate 5 , 1 , I : “ BP= ” : J ?DMS◣ Prog  “ Q. 6 ” : IfEnd ↙ Lbl  2              平 曲 线 程 序 运 行 提 示 符 CASIO fx—5800P    湖南津市 赵济汉   启动    Q.5     建立曲线要素矩阵存储表 提  示  符 示  例 说                明 N ?   问综合曲线自然段数 Z[MIN]?   问矩阵存储起始单元 NO.I =   提示现在自然段 →DK?   问本段起点里程 →X?   问本段起点纵坐标 →Y?   问本段起点横坐标 →AT?   问本段起点切线方位(以小数点为度) →(-1Y+1)?   问曲线偏向 , 左赋值-1, 右赋值+1,直线可赋0. →L?   问本段曲线长 →R1?   问本段起点曲率半径 →R2?   问本段终点曲率半径 JX→1:NO→0:OK→2?   问是否校对,是赋值1 ,否赋值0,本综合段结束赋值2。(校对有误时可直接对显示值进行修改) END   重复以上拾序步,直至本综合曲线各自然段赋值结束(赋值2)。 特别提示:除起始自然段外,其后,各自然段X, Y, AT可缺省,其值均赋值为0,程序在首次运行时,依次计算各接点中桩坐标一次,则能自动补齐各缺省值。这一功能在匝道曲线方程建立时,十分有利。   启动 PPQX  选择需计算的综合曲线 提  示  符 示  例 说                  明 ZQX→0:ZD→1****→M?   问在PPQX程序编写过程中,自定义的综合曲线属性,如:主曲线赋值0,匝道赋值1,等等。选择确定后,程序自动转向PQX ,无需选择时可直接启动PQX。   启动 PQX 进入坐标计算阶段 XZ→0:YZ→1?   问是否改变以前设定的工作状态,新工作状态赋值0,原工作状态赋值1。(选择原工作状态时,程序直接进入上阶段运行状态,无需再次设置工作与计算状态) BS→0:XY→1:AND→2:DK→3: →L(I)4?   选择新状态时:问计算状态,极坐标放样赋值0,直角坐标赋值1,两种坐标都需要赋值2, 求里程、边距赋值3,由里程求所在曲线段号赋值4。选择原工作状态时不问。 极 坐 标 放 样   问计算状态,赋值0时 提  示  符 示  例 说                  明 →X1?   问设站点纵坐标 →Y1?   问设站点横坐标 →X2 ?   问定向点纵坐标 →Y2?   问定向点横坐标,     由原状态进入时,以上不问。 S= B12=   给出已知点间边长 给出定向角 →DKP?   问测点里程(赋值0时转向程序运行终止) →B?   问测点偏角(以小数点为度) →(-+)D÷2?   问测点偏距 BP= SP=   给出测点方向 给出测点边长 S?   问测点实测边长(赋值0时,转向测设下一点,问测点里程) BP= ?S=   给出测点方向 给出修正值(-为退回、+为延伸) DKP>MAX   提示测点里程超出本综合段终点里程 DKP中桩te=mailto:雨林木风 dateTime=2009-03-30T20:07>赋值0,边桩赋值1 →DKP?   te=mailto:雨林木风 dateTime=2009-03-30T20:09>问测点里程(赋值0时转向程序运行终止) →B?   te=mailto:雨林木风 dateTime=2009-03-30T20:11>问测点偏角(以小数点为度)te=mailto:雨林木风 dateTime=2009-03-30T20:12>,中te=mailto:雨林木风 dateTime=2009-03-30T20:08>桩不问 →(-+)D÷2?   te=mailto:雨林木风 dateTime=2009-03-30T20:12>问测点偏距,te=mailto:雨林木风 dateTime=2009-03-30T20:13>中te=mailto:雨林木风 dateTime=2009-03-30T20:09>桩不问 XP= YP= AT=       te=mailto:雨林木风 dateTime=2009-03-30T19:58>给出测点te=mailto:雨林木风 dateTime=2009-03-30T19:59>纵te=mailto:雨林木风 dateTime=2009-03-30T20:00>坐标 te=mailto:雨林木风 dateTime=2009-03-30T19:59>给出测点te=mailto:雨林木风 dateTime=2009-03-30T20:00>横坐标 te=mailto:雨林木风 dateTime=2009-03-30T19:59>给出测点te=mailto:雨林木风 dateTime=2009-03-30T20:01>切线te=mailto:雨林木风 dateTime=2009-03-30T20:00>方向 te=mailto:雨林木风 dateTime=2009-03-30T20:02>END   te=mailto:雨林木风 dateTime=2009-03-30T20:02>序运行程终止 (DKP=0时)   te=mailto:雨林木风 dateTime=2009-03-30T20:17>两种坐标都te=mailto:雨林木风 dateTime=2009-03-30T20:18>需要   te=mailto:雨林木风 dateTime=2009-03-30T20:14>问计算状态,赋值2时 te=mailto:雨林木风 dateTime=2009-03-30T20:17>→te=mailto:雨林木风 dateTime=2009-03-30T20:17>DKP?   同上 te=mailto:雨林木风 dateTime=2009-03-30T20:18>*   从略 te=mailto:雨林木风 dateTime=2009-03-30T20:18>*   te=mailto:雨林木风 dateTime=2009-03-30T20:21>同时te=mailto:雨林木风 dateTime=2009-03-30T20:19>给出以上te=mailto:雨林木风 dateTime=2009-03-30T20:20>两种结果 te=mailto:雨林木风 dateTime=2009-03-30T20:21>END   te=mailto:雨林木风 dateTime=2009-03-30T20:02>程序运行终止 (DKP=0时)               由里程求所在曲线段号   问计算状态,赋值4时 提  示  符 示  例 说                  明 te=mailto:雨林木风 dateTime=2009-03-30T20:17>→te=mailto:雨林木风 dateTime=2009-03-30T20:17>DKP?   同上 L(I), I= DK(MIN)= DK(MAX)=   给出里程所在曲线段号。 给出本曲线段最小里程 给出本曲线段最大里程 本功能只是反求里程的一个辅助功能,以便程序按指定所在曲线段方式进行反算,快速获得计算结果。   反求里程边距   问计算状态,赋值3时 ZH. D(LI) te=mailto:雨林木风 dateTime=2009-03-30T20:17>→0 : NOte=mailto:雨林木风 dateTime=2009-03-30T20:17>→1   问反算形式,指定曲线段赋值0、不指定曲线段赋值1。 按指定曲线段反算   问反算形式,赋值0时。 I?   问曲线段(可慨略指定) X?   问纵坐标(X=0时,程序运行终止) Y?   问横坐标 ?   程序运行等待符 DKP= D÷2= I?   给出求点里程 给出求点边距(正交) 问下点曲线段 END   程序运行终止 。(X=0时) 特殊情况提示:     DK 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 ,是反算形式的首选。     按不指定曲线段反算   问反算形式,赋值1时 X?   问纵坐标 。(X=0时,程序运行终止) Y?   问横坐标 ?   程序运行等待符 DKP= D÷2= X?   给出求点里程 给出求点边距(正交) 问下点纵坐标 特殊情况提示:     DKP≠   提示本里程有误,在程序判断盲区,不可采用。 L(I), I=   给出本点所在曲线段号。       DK(MIN)= DK(MAX)= END,  ?ZH.D(LI)   给出本曲线段最小里程 给出本曲线段最大里程 提示中断运行程序,转向按指定曲线段形式进行反算。 END   程序运行终止 。(X=0时)                                                 
本文档为【fx5800任意平曲线极坐标与直角坐标放样,求里程及边距】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_806013
暂无简介~
格式:doc
大小:177KB
软件:Word
页数:15
分类:金融/投资/证券
上传时间:2012-04-26
浏览量:17