2024年4月13日发(作者：耿驹)

CASIO fx58000p计算器道路测设程序集-（程序创作人：袁卫华）2010年

直线坐标连算

Lblθ： “ X ”？X: “ Y ” ？Y: “ FWJ ” ？W: “JU LI ” ？C: “ PIAN JIAO

Z- Y+ ” ？F 

W→K 

K+F→K 

If K<θ:Than K+360→K:ifEnd 

If K>36θ:Than K-360→K:ifEnd 

Rec（C,K） ( C×cos(K) →I C×sin(K) →J 可算负距离 )

“ X= ”：X+I→A◢

“Y= ”： B+J→B◢

Lbl1： “JU LI ” ？C: “ PIAN JIAO Z- Y+ ” ？F 

K+F→K 

If K<θ:Than K+360→K:ifEnd 

If K>36θ:Than K-360→K:ifEnd 

CASIO fx58000p计算器道路测设程序集-（程序创作人：袁卫华）2010年

CASIO fx58000p计算器道路测设程序集-（程序创作人：袁卫华）2010年

Rec（C,K） ( C×cos(K) →I C×sin(K) →J可算负距离)

“ X= ”：A+I→A◢

“Y= ”：B+J→B◢

Goto1 

卡西欧fx5800计算器道路测设辛普森公式计算程序

Lblθ：〝起点里程〞？F:〝终点里程〞？G:〝起点X〞？A:〝起点Y〞？B:〝起点

fwj〞？C:〝起点1÷r 直或缓=0〞？D：〝终点1÷r直或缓=0〞？E 

Lbl 1：〝所求K〞？H 

If H＜G:Than Goto 1:ifEnd 

If H＞F:Than Goto 1:ifEnd 

Lbl 2：〝偏角 左- 右+〞？L：〝偏距〞？R 

(E-D)÷Abs(G-F)→P:Abs(H-F)→Q:P×Q→Z:D+Z→T 

〝FWJ〞:C+(Z+2D)×Q×9θ÷Π→W: :W ▶DMS◢

C+(Z÷4+2D)×Q×22.5÷Π→M:C+(3Z÷4+2D)×Q×67.5÷Π→N:C+(Z÷2+2D)×Q×

CASIO fx58000p计算器道路测设程序集-（程序创作人：袁卫华）2010年

2024年4月13日发(作者：耿驹)

CASIO fx58000p计算器道路测设程序集-（程序创作人：袁卫华）2010年

直线坐标连算

Lblθ： “ X ”？X: “ Y ” ？Y: “ FWJ ” ？W: “JU LI ” ？C: “ PIAN JIAO

Z- Y+ ” ？F 

W→K 

K+F→K 

If K<θ:Than K+360→K:ifEnd 

If K>36θ:Than K-360→K:ifEnd 

Rec（C,K） ( C×cos(K) →I C×sin(K) →J 可算负距离 )

“ X= ”：X+I→A◢

“Y= ”： B+J→B◢

Lbl1： “JU LI ” ？C: “ PIAN JIAO Z- Y+ ” ？F 

K+F→K 

If K<θ:Than K+360→K:ifEnd 

If K>36θ:Than K-360→K:ifEnd 

CASIO fx58000p计算器道路测设程序集-（程序创作人：袁卫华）2010年

CASIO fx58000p计算器道路测设程序集-（程序创作人：袁卫华）2010年

Rec（C,K） ( C×cos(K) →I C×sin(K) →J可算负距离)

“ X= ”：A+I→A◢

“Y= ”：B+J→B◢

Goto1 

卡西欧fx5800计算器道路测设辛普森公式计算程序

Lblθ：〝起点里程〞？F:〝终点里程〞？G:〝起点X〞？A:〝起点Y〞？B:〝起点

fwj〞？C:〝起点1÷r 直或缓=0〞？D：〝终点1÷r直或缓=0〞？E 

Lbl 1：〝所求K〞？H 

If H＜G:Than Goto 1:ifEnd 

If H＞F:Than Goto 1:ifEnd 

Lbl 2：〝偏角 左- 右+〞？L：〝偏距〞？R 

(E-D)÷Abs(G-F)→P:Abs(H-F)→Q:P×Q→Z:D+Z→T 

〝FWJ〞:C+(Z+2D)×Q×9θ÷Π→W: :W ▶DMS◢

C+(Z÷4+2D)×Q×22.5÷Π→M:C+(3Z÷4+2D)×Q×67.5÷Π→N:C+(Z÷2+2D)×Q×

CASIO fx58000p计算器道路测设程序集-（程序创作人：袁卫华）2010年