當前位置:編程學習大全網 - 編程語言 - 哪位大哥知道卡西歐5800圓曲線、緩和曲線的編程啊?

哪位大哥知道卡西歐5800圓曲線、緩和曲線的編程啊?

CASIO fx—5800計算器 工程測量與公路測量程序

1、坐標正算

”X0=〃?X:”Y0=〃?Y:”I=〃?I:”J=〃?J

X+ICos(J)→U:Y+ISin(J)→V

”X=〃:U (待求點的X坐標)

”Y=〃:V (待求點的Y坐標)

說明:X0 Y0:已知點坐標I:兩點的距離J:方位角

2、坐標反算

Lbl 0

”X1=〃?X:”Y1=〃?Y:”X2=〃?U:”Y2=〃?V

Pol(U-X,V-Y):

J<0 J+360→J

”I=〃:I

”J=〃:J DMS

GOTO 0

說明:X1Y1:第壹點的坐標,X2Y2第二點的坐標,I:兩點的距離,J:方位角

3、圓曲線

”X0=〃?X: ”Y0=〃?Y:”FWJ=〃?D:”QDHAO=〃?G: ”ZDHAO=〃?C: ”R=〃?R

Lbl 1

”DQHAO=〃?L

L<G Or L>C GOTO 2

”PY=〃?K

180(L-G)÷(πR) →E

2RSin(0.5E) →F

ReC(Abs(F),D+0.5E):Cls

”X=〃:X+I+KCos(D+E+90) →A

”Y=〃:Y+J+KSin(D+E+90) →B

D+E→o:o<0 360+o→0o

”FWJ=〃:o DMS

Goto 1

Lbl 2

”END〃

說明:X0Y0:起始點的坐標,FWJ:起始點的方位角,QDHAO:起點裏程,ZDHAO終點裏程,R:半徑,DQHAO:待求點裏程,PY:偏移量

4、豎曲線

”QZHAO =〃?J: ”H+B〃=?B:”I1=〃?C:”I2=〃?D:”R=〃?R:”T=〃?T:

((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S

”T〃:S

J-T→X

J+T→Y

Lbl 0

”DQ=〃?L

If L<X:Then Goto 1:Else If L>Y:Then Goto 1:If End:If End

”GC=〃:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →H

Goto 0

Lbl 1

”END〃

說明:QZHAO:曲中點裏程,H+B:曲中點高程,I1:第壹坡度,I2:第二坡度,R:半徑,T:切線長,DQ:待求點裏程。

5.正算偏移

”X0=〃?A: ”Y0=〃?B:”FWJ=〃?D:

Lbl 0

”LS=〃?L: ”PY=〃?C

ReC(L,D)

”X=〃:A+I+CCos(D+ 90) →X

”Y=〃:B+J+CSin(D+ 90) →Y

Goto 0

說明:X0 Y0:已知點坐標,LS:兩點距離,FWJ:方位角

6.萬能公式

”X0=〃?A:”Y0=〃?B:”FWJ=〃?C:”1÷R-QD〃?D:”1÷R-ZD〃?E:”QDHAO〃?F:

”ZDHAO〃?G

Lbl 1

”DQHAO=〃?H:”PY=〃?o

If H<F:Then Goto 2:Else If H>G:Then Goto 2:If End:IfEnd

(E-D)÷Abs(G-F) →P:Abs (H-F) →Q:PQ→I:C+90Q(I+2D) ÷π→J:C+45Q(I÷8+D) ÷π→M:C+135Q(3I÷8+D) ÷π→N:C+45Q(I÷2+2D) ÷π→K

A+Q(Cos(C) +4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))÷12→U:

B+Q(Sin(C)+4(Sin(M)+Sin(N))+2Sin(K)+Sin(J))÷12→V

”X=〃:U+oCos(J+90) →X

”Y=〃:V+oSin(J+90) →Y

”FWJ=〃: J DMS

Goto 1

Lbl 2

”END〃

說明:X0Y0:起開點坐標,FWJ:起開點方位角,1÷R-QD:起開點曲率,1÷R-ZD終點曲率,QDHAO:起點裏程,ZDHAO終點裏程,DQHAO:待求點裏程,XY:待求點坐標

6、標高計算

”QZHAO=〃?J:”QDHAO=〃?G:”ZDHAO=〃?K:”B—HB=〃?B:”SX=〃?Q:”I1=〃?C:

”I2=〃?D:”R=〃?R:”T=〃?T

(D-C)÷100→W:W÷Abs(W)→A:”T〃:0.5RAbs(W) →S

”o-YIGAO=〃?o

J-T→X:J+T→Y

Lbl 1

”L—DQHAO=〃?L:”PY=〃?U:”XIELV=〃?V

If L<X:Then Goto 2:Else If L>Y:Then Goto 3:If End:I End

”HL=〃:B+0.01C(L-J)+A(L-J+T) ÷(2R)+0.01UV+Q→Q

”HO=〃:o-H→Z

Goto 1

Lbl 2

L<G Goto 4

”HL=〃:B+0.01 (L-J)C+0.01UV+Q →H

”H0=〃:o-H→H

Goto 1

Lab 3

L>K Goto 4

”HL=〃:B+0.01 (L-J)D+0.01UV+Q →H

”HO=:o-H→Z

Goto 1

Lbl 4: ”END〃

說明:QZHAO:曲中點裏程(豎曲線),QDHAO:起點裏程,ZDHAO:終點裏程,B—HB曲中點高程,SX:上下(路面標高下多少為水穩層面),I1:第壹坡度,I2:第二坡度,R:半徑,T切線長,L—DQHAO:待求點裏程,PY:偏移(中樁到邊樁的距離),XIELV:斜率(橫坡的坡度,左負右正)o-YIGAO:儀器高

  • 上一篇:如何學好電腦
  • 下一篇:三維天地怎麽樣 知乎
  • copyright 2024編程學習大全網