Casiofx4500p计算器程序

Casiofx4500p计算器程序,


名 代码
变 量 与 说明
2 曲线要素：

P=I2/24R-I4/2688R3

M=I/2-I3/240R2

T=(R+P)Tan(A/2)+M

L=A/180×πR+I

B=I/R×90/π
A,R,I,m,p,B,T,L


本系统的变量是统一的，代表特定含义，在各段代码中通用，不宜更改。
A:曲线转角
R:曲线半径
I:缓和曲线长
T:切线长
L:曲线长
m,p,B:曲线要素

3 直线相交（四点）点:

NSOTPUQV

Pol(Q-P,V-U)

Q=U-PtanW

U=W

Pol(O-N,T-S)

N=T-OtanW

O=W▲ U▲

A=U-O:Pol(cosA,sinA):A=AbsW▲ K=W/A▲

J=(Q-N)/(tanO-tanU) ▲

D=JtanO+N▲
O,U,J,D

连续输入四点坐标






两条直线方位

转角

交点坐标


O,U:第一、第二条直线的方位（计算后）
J,D:交点坐标 （计算后）
31 交点方位:

JDOU

A=U-O

Pol(cosA,sinA)

A=AbsA

K=W/A
J,D,O,U
输入交点坐标与切线方位



转角转向


K:曲线转向,右转为正

4 任意点坐标：

Lbl 2:{S}

S≤0→G=S:H=0:C=0:Goto 4△

S≥L→G=L-S:H=0:C=0: Goto 3△

S→Prog 5: Goto 4△

S→C=B+180(S-I)/Rπ

G=RsinC+M:H=R-RcosC+P: Goto 4

≠>S=L-S:Prog 5

Lbl 3

X=J-KhsinU+cosU(T-G) ▲

Y=D+KhcosU+sinU(T-G) ▲

Z=U-KC:Goto 5

Lbl 4

X=J-KhsinO-cosO(T-G) ▲

Y=D+KhcosO-sinO(T-G) ▲

Z=O+KC

Lbl 5:{N}:

G=X+KNsinZ▲ H=Y-KNcosZ▲

Goto 2
S,X,Y,G,H,N
输入到曲线起点的弧长





坐标



坐标




方向距离（外侧为正）


法线点坐标
S:距曲线起点的弧长,S可用到曲线起点的里程差得到
N:法向距离(曲线外侧为正)
X,Y:中线点坐标
Z:切线方位
G,H:法向点坐标

41 程序连接:
Prog 31:Prog 2:Prog 4
48 曲线长反算:

Z=O+(90+A/2)K

S=(R+P)/cos(A/2)

G=J+ScosZ

H=D+SsinZ

Lbl 8:{XY}

Pol(X-G,Y-H)

Z=K(W-O)+90

S=RZ×/180+I/2▲

Goto 8
X,Y,S

OAKRPJD为曲线变量




法向点坐标



曲线长


由法向点坐标反算成对应曲线长

49 E=G+G5/40Q2-G9/3456Q4

F=H-E3/6Q+E7/336Q3

E2/2Q×F/(1-EF/Q)+E
缓和曲线段的反算
5 缓和曲线:

Q=RI

G=S-S5/40Q2+S9/3456Q2Q2

H=S3/6Q-S7/336Q3+S11/42240Q5

C=S2/RI×90/π
G,H,C
6 放样:

Defm 2

Z[1] ▲ Z[1]=Ans:Z[2] ▲ Z[2]=Ans

EF

Pol(Z[1]-E,Z[2]-F)

Q=W

Lbl 0:{XY}

Pol(X-E,Y-F) ▲

W-Q

Ans<0→Ans+360△”B=”▲Goto 0



输入后视点坐标

输入测站坐标EF




放样距离V

放样顺拨角度(度)
Z[1],Z[2]:后视点坐标
E,F: 测站点坐标
Q:后视方位
X,Y: 放样点坐标

8 单导线:

K

LbL 1:{AS}

Prog A:S

B=B+180-KA▲

X=X+ScosB▲ Y=Y+SsinB▲ Goto 1
A,S,B,X,Y

输入左角右角

输入角度距离


前视方位

前视点坐标

连续计算单导线坐标，角度按度.分秒输入
左角K=-1,右角K=1
81 支导线:

ZS

Z=Z+Q

X=E+ScosZ▲ Y=F+SsinZ▲
Z,S,Q,X,Y

前视角度(度),距离

前视方位

前

视坐标

放样时计算前视点的坐标,以便反算
A 角度转换:

A=IntA+Int(100FracA)/60+Frac(100A)/36
A 输入度.分秒，转换成度