lisp 非对称缓和曲线_非对称缓和曲线放样计算程序清单（for Casio-fx4850）

编制：苏畅

根据他人程序结合本人实际运用修改，十分好用。上传与大家分享

非对称缓和曲线放样计算程序清单

(for  Casio-fx4850)

扩展变量操作(15个)：Defm 15←┚( O为字母

、0为数字)

J-PQX (平面数据输入，自行切换到J-JSMS)

Defm 15←┚

A“JD”B“JDX”C“JDY”F“FWJ”O“A0：Z-，Y+”RE“LS1”K“LS2”：E<1=>E=1E-9⊿K<1=>K=1E-9⊿Z[1]=EE÷24R-E∧4÷2688RRR:Z[2]=E÷2-EEE÷240RR:X=(EE-KK)÷24R÷sin Abs O :“T1=”:Z[3]=(R+Z[1])tan(Abs O÷2)+Z[2]-X◢

“T2=”:Z[4]=(R+KK÷24R-K∧4÷2688RRR)tan(Abs

O÷2)+K÷2-KKK÷240RR+X◢

“L=”:L=Abs OπR÷180+(E+K)÷2◢

J=tan-1((R+Z[1])÷(Z[3]-Z[2]):“E=”:X=(R+Z[1])÷sin J-R◢

X=A-Z[3]:Y=X+E:E<1=>“ZY=”:X◢

≠=>“ZH=”:X◢

“HY=”:Y◢

⊿ “QZ=”:Y =X+(L-K-E)÷2+E◢

Y=X+L-K:X=X+L:K<1=>“YZ=”:X◢

≠=>“YH=”:Y◢

“HZ=”:X◢

⊿Prog“J-JSMS” ←┚

J-JSMS(放样模式主程序)

“1-ZS, FY,3-FS”: Lb1 0:{Z}: Z“MS”≤2=>Goto 1:≠=> Z≤4=> Goto2

⊿⊿←┚

Lb1 1 :Q“X-YIQI”S“Y-YIQI”T“X-HOUSI”U“Y-HOUSI”:{PDW}:P“F=”D“BZ=”W“BJ=”: Prog“JP”: Prog“FY”: Goto 1←┚

Lb1 2 :{XYW}:XYW“BJ”: Prog“JF”:“P=”: P◢

“BZ=”: D◢

JP(平曲线正算子程序)

Fixm←┚

Lb1 1 :J=F:X= B-Z[3]cos F :Y= C-Z[3]sin F

:G=E←┚

P≤A-Z[3]=>I=A-Z[3]-P:M=-I:N=0:H=F+W:Goto 5←┚

≠=>P≤A-Z[3]+E=>I=P-A+Z[3]:H=90II÷REπ:O<0=>H=-H⊿H=H+W+F:Goto 3←┚

≠=>P≤A-Z[3]+L-K=>I=P-A+Z[3]-E:Goto 4:≠=>Goto 2⊿⊿←┚

Lb1 2 :X= B+Z[4]cos(F+O :Y= C+Z[4]sin(F+O

:J=F+O+180:G=K←┚

P≤A-Z[3]+L=>I=A-Z[3]+L-P:H=90II÷RKπ:O>0=>H=-H⊿H=H+J+W+180:Goto 3←┚

≠=>I=P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto

5←┚

Lb1 3 :M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto

5←┚

Lb1 4 :H=(E+2I)×90÷πR:M=R sin H+Z[2]:N=R(1-cos H)+Z[1]:O<0=>H=-H⊿H=J+H+W: Goto 5←┚

Lb1 5 :P≤A-Z[3]+L-K=> O<0=>N=-N⊿≠=>O>0=>N=-N⊿⊿Goto 6←┚

Lb1 6 :X =X+M cos J-N sin J+D cos H:Y =Y+M

sin J+N cos J+D sin H

“X=”: X◢

“Y=”: Y◢

JF(平曲线反算子程序)

Fixm←┚

U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cos J-(X-B)sin J←┚

Lb1 1:Prog“JP”:J=H-180:I=(V-Y)cos

J-(U-X)sin J:Abs I<1E-4=>Goto 2:≠=>P=P+I:Goto 1⊿←┚

Lb2: D=(V-Y)÷sinH

FY(放样计算子程序)

Pol(T-Q,U-S):“HOUSI D=”:I◢

J<0=>J=J+360⊿J>360=>J=J-360⊿“HOUSI J=”:J→DMS◢

Pol(X-Q,Y-S):“I=”:I◢

J<0=>J=J+360⊿J>360=>J=J-360⊿“J=”:J→DMS◢

一、程序简介

本套程序是共有2个主程序，3个子程序。包括了路线坐标正反算、放样计算等程序。

二、程序功能

本着用最懒的方法做最繁杂的事(当然认真更重要！)，根据不同需要，本程序共设置了2种计算模式J-JSMS：

1-ZS，FY正算及放样模式：适用于中、边桩计算，里程桩号及边距=>平面坐标、放样极距及偏角。

3-FS，反算模式：适用于任意点里程、边距计算，任意点坐标=>里程、边距。

三、计算范围

平曲线：直线-缓和曲线(或无)-圆曲线-缓和曲线(或无)-直线中任意桩号，允许两缓和曲线不等长，即可以算卵形曲线，回头曲线

四、数据输入及各计算模式运行过程

1、正算模式：1-ZS，

运行主程序J-PQX(平曲线)，计算过程如下：

显示输入计算结果备注

DJ？交点桩号

JDX？交点X值

JDY？交点Y值

FWJ？计算方位角

A0：Z-，Y+？ 交点转角左转为负值，右转正值

R？圆曲线半径

LS1？第一缓和曲线

LS2？

第二缓和曲线

T1=前切线

T2=后切线

L=曲线长度

E=外距

ZH=

ZH桩号 若不计算平曲线要素桩号，程序清单J-PQX内有下划线部分可以不写入计算器内。

HY=

HY桩号

QZ=

QZ桩号

YH=

YH桩号

HZ=

HZ桩号

1-ZS,FY,3-FS

MS？

计算模式选择，此模式请输入：1总共有2种计算模式供选择，符号说明见“二、程序功能”。

X-YIQI输入置仪点坐标X

Y-YIQI输入置仪点坐标Y

X-HOUSI输入后视点坐标X

Y-HOUSI输入后视点坐标Y

F=？待求点桩号

BZ=？边桩距离左边为负值，右边为正值，中桩输0

BJ=？边桩夹角右边桩与中线夹角，正交为90，斜交另输

X=放样点X值

Y=放样点Y值

HOUSI D=后视点到置仪点的距离

HOUSI J=后视点偏角望远镜对准后视点时度盘读数为该数值

I=放样点到置仪点的距离

J=放样点的偏角望远镜对准放样点时度盘读数为该数值

F=？BZ=？BJ=？...本模式循环计算

2、反算模式：3-FS，

运行主程序J-PQX(平曲线)，运行过程同“1、1-ZS，正算模式”；若平曲线数据已经输入了，或者计算交点同上次相同，可直接运行J-JSMS(计算模式)

显示 输入

计算结果 备注

······平曲线数据输入过程·····

1-ZS,FY,3-FS

计算模式选择，此模式请输入：3总共有6种计算模式供选择，符号说明见“二、程序功能”。

X？

任意点P的X值

Y？

任意点P的Y值

BJ？

边桩夹角右边桩与中线夹角，正交为90，斜交另输

P=  P点桩号

BZ=边桩距离 负值为左边桩，正值为右边桩

X？Y？...本模式循环计算

必读：

1、如果中途关机或已知数据与上次计算相同，直接运行J-JSMS计算即可，可不必重新输入已知数据。

2、程序内未加入长短链数据，涉及长短链的曲线计算时P值应该增加(或减少)长短链数值。