首页

  1. 首页
  2. 测绘论文
  3. 内容

5800p缓和曲线坐标计算

lbI 0

cls: “===xuan ze===[sz=>0[fs=>1][zs=>2][FY=>3]” ? O

if O=0 :then cls: “[JD-K]” ? N: “[QD-K]” ?Q: “[ZD-K]” ?Z: “[JD-X]” ?X: “[JD-Y] ” ? Y: “[PX(-1)(+1)]” ?W: “[PIAN JIAO]” ?T: “[R]” ?R: “[LS1]” ?L: “[LS2]” ?M: “[FWJ]” ?P:

L^2 ÷ 24 ÷ R-L^4 ÷ 2484 ÷ R^3 → G: M^2 ÷ 24 ÷ R-M^4 ÷ 2384 ÷ R^3 → J:

L ÷ 2-L^3 ÷ 240 ÷ R^2 → H: M ÷ 2-M^3 ÷ 240 ÷ R^2 → K: tan-1((J-G)cos(T ÷ 2) ÷ R ÷ sin(T)) → D : R(T ÷ 2-90L ÷ π ÷ R+D) π ÷ 180 → F: R(T ÷ 2-90M ÷ π ÷ R-D) π ÷ 180 → Z[1]: L+M+F+Z[1] → E: (R+G) *tan(T ÷ 2)+H+(J-G) ÷ sin(T) → F : (R+J)tan(T ÷ 2)+K-(J-G) ÷ sin(T) → Z[1] : X+Fcos(P+180) → G : Y+Fsin(P+180) → H : P+WT → S: X+Z[1]cos(S) → J : Y+Z[1]sin(s) → K : N-F → C : C+E → E :GOTO 0

ifend

if O=1 :then GOTO 2 : ifend

if O=2 :then GOTO 3 : ifend

if O=3 :then GOTO 4 : ifend

LBI 2

CLS:”[XC=]” ? U:”[YC=]” ? V:”[XH=]” ? X:”[YH=]” ? Y:GOTO 5

LBI 3

CLS:”[FWJ=]” ? F:”[JL=]” ? I:”XZ”: U+Icos(F) → X: ∆:”YZ”: V+Isin(F) → Y ∆ GOTO 0

LBI 4

CLS:”FYZH---K---”?N:if N<Q :then “<QI DIAN” ∆ GOTO 0 : ifend

if N>Z :then “>ZI DIAN” ∆ GOTO 0 : ifend

if C>N :then G-(C-N)cos(P) → X: H-(C-N)sin(P) → Y: P → T :GOTO 6 : ifend

If C<N and N<=C+L :then N-C-(N-C)^5 ÷ (90R^2L^2) → F: 30(N-C)^2 ÷ (πRL) → I:

3I → D: G+Fcos(P+WI) → X: H+Fsin(P+WI) → Y: P+WD → T:GOTO 6 : ifend

If C+L<N and N<E-M :then L-L^3 ÷ 90 ÷ R^2 → F: 30L ÷ π ÷ R → I: 3I → D: 90(N-C-L) ÷ π ÷ R → T: G+Fcos(P+WI) → X: H+Fsin(P+WI) → Y: 2Rsin(T) → F: X+Fcos(P+WD+WT) → X: Y+Fsin(p+WD+WT) → Y: P+WD+2WT → T: GOTO 6 : ifend

If E-M<=N and N<E :then E-N-(E-N)^5 ÷ (90R^2M^2) → F:30(E-N)^2 ÷ (πRM) → I :3I → D:

J+Fcos(S+180-WI) → X: K+Fsin(S+180-WI) → Y: S-WD → T :GOTO 6 : ifend

If E<=N :then J+(N-E)cos(S) → X: K+(N-E)sin(s) → Y: S → T:GOTO 6 : ifend

LBI 5

Pol(x-u,y-v):j<0=>j+360 → J:”FWJ”:J DMS∆

“D=”:I∆

GOTO 0

LBI 6

”BJ(L=-;Z=0;R=+)” ? B:

If B<>0 :then GOTO 7 : ifend

CLS:”XF=”:X: ∆:”YF=”:Y ∆ GOTO 5

LBI 7

”JIA JIAO” ?A:

T+A → T: X+(B)cos(T) → X: Y+(B)sin(T) → Y:”XF=”:

X ∆ ”YF=”:Y ∆ GOTO 5 ∆ : 暂停输出 ; 用“ : ”替代换行符(回车) ;

相关文章

回到顶部
请复制以下网址分享
5800p缓和曲线坐标计算
https://m.gc5.com/chgc/chlw/10173387.html