最高法院公司法解释二:CAISO9750及5800计算器程序(交点法)
来源:百度文库 编辑:偶看新闻 时间:2024/04/28 20:12:42
本程序中5800将下列文字中的List 2[数字]更换为Z[数字]即可。
JDF 文件名
LbL 0:Cls
File2
21→Dim List 2
“NEW=0,OLD≠0”?→Z:Z=0:Then “INTα(s)=”?→F : ( 输入交点坐标方位角)
“JD PEG=”?→K : 输入交点桩号
“INT X(JD)=”?→X : 输入交点X坐标
“INT Y(JD)=”?→Y : 输入交点Y坐标
“INT R(s)=”?→R: 输入缓和曲线半径
“INT L(s)=”?→L: 输入缓和曲线长
“TURNING ANGLE=”?→A : 输入转角
“TURNING DIRECTION –L,+R=”?→I:IfEnd 输入路线转向:左负右正 I赋值为1
Lbl Z:Z=1=>Prog”01”: Z=2=>Prog”02” (有多少条曲线就输入多少个数数据库)
L2÷(24×R)→P
L÷2-L3÷(240×R2)→Q
90×L÷(π×R)→B
(R+P)Tan(A÷2)+Q→T 计算切线长
R(A-2B)×π÷180→O 计算圆曲线长
R(A-2B)×π÷180+2L→C 计算曲线长
(R+P)÷cos(A÷2)-R→E 计算外距
2T-C→D 计算切曲差
K-T→List 2[3] ZH点
List 2[3]+L→List 2[4] HY点
List 2[4]+O→List 2[5] YH点
List 2[5]+L→List 2[6] HZ点
List 2[6]-C÷2→List 2[7] QZ点
X+Tcos(F+180)→List 2[16] List 2H点X坐标
Y+TsIn(F+180)→List 2[17] List 2H点Y坐标
L-L3÷(90R2)→G
List 2[16]+Gcos(F+30×I×L÷(π×R) )→List 2[8] HY点X坐标
List 2[17]+Gsin(F+30×I×L÷(π×R)) →List 2[9] HY点Y坐标
List 2[8]+2Rsin(45×O÷(πR))cos(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →List 2[14] QList 2点X坐标
List 2[9]+2Rsin(45×O÷(πR))sin(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →List 2[15] QList 2点Y坐标
List 2[8]+2Rsin(90×O÷(πR))cos(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →List 2[10] YH点X坐标
List 2[9]+2Rsin(90×O÷(πR))sin(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →List 2[11] YH点Y坐标
X+Tcos(F+I×A)→List 2[12] HList 2点X坐标
Y+TsIn(F+I×A)→List 2[13] HList 2点Y坐标
LbL 2
“XIAN SHI QXYS”?W
If W=0:Then Goto 3:IfEnd
If W=1:Then Goto 4:IfEnd显示曲线要素?输入:0→YES,1→NO
LbL 3 <本段为曲线要素显示结果部分>
“QIE XIAN C=”:T▲
“QU XIAN C=”:C▲
“Y QU XIAN=”:O▲
“WAI JU=”:E▲
“QIE QU CHA=”:D▲
“List 2H PEG=”:List 2[3] ▲
“X(List 2H)=”:List 2[16] ▲
“Y(List 2H)=”:List 2[17] ▲
“HY PEG=”:List 2[4] ▲
“X(HY)=”:List 2[8] ▲
“Y(HY)=”:List 2[9] ▲
“QList 2 PEG=”:List 2[7] ▲
“X(QList 2)=”:List 2[14] ▲
“Y(QList 2)=”:List 2[15] ▲
“YH PEG=”:List 2[5] ▲
“X(YH)=”:List 2[10] ▲
“Y(YH)=”:List 2[11] ▲
“HList 2 PEG=”:List 2[6] ▲
“X(HList 2)=”:List 2[12] ▲
“Y(HList 2)=”:List 2[13] ▲
GoTo 0
LbL 4 <本段为待求点桩号计算部分>
“INT P PEG=”?H 输入待求点桩号
If H
JDF 文件名
LbL 0:Cls
File2
21→Dim List 2
“NEW=0,OLD≠0”?→Z:Z=0:Then “INTα(s)=”?→F : ( 输入交点坐标方位角)
“JD PEG=”?→K : 输入交点桩号
“INT X(JD)=”?→X : 输入交点X坐标
“INT Y(JD)=”?→Y : 输入交点Y坐标
“INT R(s)=”?→R: 输入缓和曲线半径
“INT L(s)=”?→L: 输入缓和曲线长
“TURNING ANGLE=”?→A : 输入转角
“TURNING DIRECTION –L,+R=”?→I:IfEnd 输入路线转向:左负右正 I赋值为1
Lbl Z:Z=1=>Prog”01”: Z=2=>Prog”02” (有多少条曲线就输入多少个数数据库)
L2÷(24×R)→P
L÷2-L3÷(240×R2)→Q
90×L÷(π×R)→B
(R+P)Tan(A÷2)+Q→T 计算切线长
R(A-2B)×π÷180→O 计算圆曲线长
R(A-2B)×π÷180+2L→C 计算曲线长
(R+P)÷cos(A÷2)-R→E 计算外距
2T-C→D 计算切曲差
K-T→List 2[3] ZH点
List 2[3]+L→List 2[4] HY点
List 2[4]+O→List 2[5] YH点
List 2[5]+L→List 2[6] HZ点
List 2[6]-C÷2→List 2[7] QZ点
X+Tcos(F+180)→List 2[16] List 2H点X坐标
Y+TsIn(F+180)→List 2[17] List 2H点Y坐标
L-L3÷(90R2)→G
List 2[16]+Gcos(F+30×I×L÷(π×R) )→List 2[8] HY点X坐标
List 2[17]+Gsin(F+30×I×L÷(π×R)) →List 2[9] HY点Y坐标
List 2[8]+2Rsin(45×O÷(πR))cos(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →List 2[14] QList 2点X坐标
List 2[9]+2Rsin(45×O÷(πR))sin(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →List 2[15] QList 2点Y坐标
List 2[8]+2Rsin(90×O÷(πR))cos(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →List 2[10] YH点X坐标
List 2[9]+2Rsin(90×O÷(πR))sin(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →List 2[11] YH点Y坐标
X+Tcos(F+I×A)→List 2[12] HList 2点X坐标
Y+TsIn(F+I×A)→List 2[13] HList 2点Y坐标
LbL 2
“XIAN SHI QXYS”?W
If W=0:Then Goto 3:IfEnd
If W=1:Then Goto 4:IfEnd显示曲线要素?输入:0→YES,1→NO
LbL 3 <本段为曲线要素显示结果部分>
“QIE XIAN C=”:T▲
“QU XIAN C=”:C▲
“Y QU XIAN=”:O▲
“WAI JU=”:E▲
“QIE QU CHA=”:D▲
“List 2H PEG=”:List 2[3] ▲
“X(List 2H)=”:List 2[16] ▲
“Y(List 2H)=”:List 2[17] ▲
“HY PEG=”:List 2[4] ▲
“X(HY)=”:List 2[8] ▲
“Y(HY)=”:List 2[9] ▲
“QList 2 PEG=”:List 2[7] ▲
“X(QList 2)=”:List 2[14] ▲
“Y(QList 2)=”:List 2[15] ▲
“YH PEG=”:List 2[5] ▲
“X(YH)=”:List 2[10] ▲
“Y(YH)=”:List 2[11] ▲
“HList 2 PEG=”:List 2[6] ▲
“X(HList 2)=”:List 2[12] ▲
“Y(HList 2)=”:List 2[13] ▲
GoTo 0
LbL 4 <本段为待求点桩号计算部分>
“INT P PEG=”?H 输入待求点桩号
If H
- If H≥List 2[3]And H
- ELse If H≥List 2[4] And H
- ELse If H≥List 2[5] And H≤List 2[6]:Then GoTo C :Ifend
Ifend : Ifend
If H>List 2[6]:Then GoTo E:Ifend
LbL D {待求点位于ZH前的直线段上时}
“PIAN JIAO = ” ? →V 输入边桩与路线中心线夹角:左负右正
“DR = ”? →W 路基右侧 边桩与路中法线距离
“DL = ”? →T 路基左侧边桩与路中法线距离
List 2[3]-H→J
List 2[16]+J cos(F+180)→M▲
List 2[17]+J sin(F+180)→N▲
M+W×cos(F+180+V) →List 2[18]
N+W×sin(F+180+V) →List 2[19]
M+T×cos(F+180-V) →List 2[20]
N+T×sin(F+180-V) →List 2[21]
F →G▲
“ X(R)= ”: List 2[18] ▲
“ Y(R)= ”: List 2[19] ▲
“ X(L)= ”: List 2[20] ▲
“ Y(L)= ”: List 2[21] ▲
GoTo 4
LbL A {待求点位于List 2H到HY段上时}
“PIAN JIAO = ” ? →V 输入边桩与路线中心线夹角:左负右正
“DR = ”? →W 路基右侧 边桩与路中法线距离
“DL = ”? →T 路基左侧边桩与路中法线距离
H–List 2[3]→J
J–J5 ÷(90×R2×L2)→S
List 2[16]+S cos(F+30×I×J2÷(π×R×L)→M▲
List 2[17]+S sin(F+30×I×J2÷(π×R×L)→N▲
M+W×cos(F+90×I×J2÷(π×R×L +V) →List 2[18]
N+W×sin(F+90×I×J2÷(π×R×L +v) →List 2[19]
F+90×I×J2÷(π×R×L+V) →G▲
M+T×cos(F+90×I×J2÷(π×R×L -V) →List 2[20]
N+T×sin(F+90×I×J2÷(π×R×L -V) →List 2[21]
“ X(R)= ”: List 2[18] ▲
“ Y(R)= ”: List 2[19] ▲
“ X(L)= ”: List 2[20] ▲
“ Y(L)= ”: List 2[21] ▲
GoTo 4
LbL B {待求点位于HY到YH段上时}
“PIAN JIAO = ” ? →V 输入边桩与路线中心线夹角:左负右正
“DR = ”? →W 路基右侧 边桩与路中法线距离
“DL = ”? →T 路基左侧边桩与路中法线距离
H–List 2[4]→J
List 2[8]+2Rsin(90×J÷(π×R)cos[F+90×I×J÷(π×R)+90×I×L÷(π×R)]→M▲
List 2[9]+2Rsin(90×J÷(π×R)sin[F+90×I×J÷(π×R)+90×I×L÷(π×R)]→N▲
M+Wcos(F+90×I×L÷(π×R)+180×I×J÷(π×R)+V) →List 2[18]
N+Wsin(F+90×I×L÷(π×R)+180×I×J÷(π×R)+V) →List 2[19]
F+90×I×J2÷(π×R)+180×I×J2÷(π×R)→G▲
M+Tcos(F+90×I×L÷(π×R)+180×I×J÷(π×R)-V) →List 2[20]
N+Tsin(F+90×I×L÷(π×R)+180×I×J÷(π×R)-V) →List 2[21]
“ X(R)= ”: List 2[18] ▲
“ Y(R)= ”: List 2[19] ▲
“ X(L)= ”: List 2[20] ▲
“ Y(L)= ”: List 2[21] ▲
GoTo 4
LbL C {待求点位于YH到HList 2段时}
“PIAN JIAO = ” ? →V 输入边桩与路线中心线夹角:左负右正
“DR = ”? →W 路基右侧 边桩与路中法线距离
“DL = ”? →T 路基左侧边桩与路中法线距离
List 2[6] –H →J
J–J5÷(90×R2×L2)→S
List 2[12]+Scos(F+I×A+180-30×I×J2÷(π×R×L)→M▲
List 2[13]+Ssin(F+I×A+180-30×I×J2÷(π×R×L)→N▲
M+Wcos(F+I×A-90×I×J2÷(π×R×L)+V) →List 2[18]
N+Wsin(F+I×A-90×I×J2÷(π×R×L)+V) →List 2[19]
F+I×A-90×I×J2÷(π×R)→G▲
M+Tcos(F+I×A-90×I×J2÷(π×R×L)-V) →List 2[20]
N+Tsin(F+I×A-90×I×J2÷(π×R×L)-V) →List 2[21]
“ X(R)= ”: List 2[18] ▲
“ Y(R)= ”: List 2[19] ▲
“ X(L)= ”: List 2[20] ▲
“ Y(L)= ”: List 2[21] ▲
GoTo 4
LbL E {待求点位于ZH前的直线段上时}
“PIAN JIAO = ” ? →V 输入边桩与路线中心线夹角:左负右正
“DR = ”? →W 路基右侧 边桩与路中法线距离
“DL = ”? →T 路基左侧边桩与路中法线距离
H-List 2[6]→J
List 2[12]+J cos(F+A*I)→M▲
List 2[13]+J sin(F+A*I)→N▲
M+W×cos(F+A*I+V) →List 2[18]
N+W×sin(F+A*I+V) →List 2[19]
F+A*I →G▲
M+T×cos(F+A*I-V) →List 2[20]
N+T×sin(F+A*I-V) →List 2[21]
“ X(R)= ”: List 2[18] ▲
“ Y(R)= ”: List 2[19] ▲
“ X(L)= ”: List 2[20] ▲
“ Y(L)= ”: List 2[21] ▲
GoTo 4
程序库(子程序)
01 文件名
"If Z=1:Then 30120.568(JD的里程)→K:86°43°45.47°(曲线起始方位角)→F:38500237.59(XJD)
→X:506789.072(YJD)→Y:3200(曲线半径)→R:270(缓和曲线长)→L:7°51°19°(曲线转向角)
→A:-1(左转为-1,右转为+1)→I:Return:IfEnd"
怎么设计计算器程序
java计算器程序
简单的计算器程序
Java计算器程序分析
谁有好的计算器程序没有 ?
关于编写计算器的程序
关于测试自己编的计算器程序
如何用vc++编写计算器程序?
我在程序里的计算器不见了??
怎样用VFro编写一个计算器的程序
怎样用VB编写简单的计算器程序??
设计一个简单的计算器程序
计算器的JAVA程序如何设计
求助:做一个C程序计算器
卡西欧4800计算器程序谁有呀!(工程技术)
·关于编写计算器的程序
用c++设计一个计算器程序
有谁会写c++的计算器程序
求助1个C语言计算器程序
有什么计算器程序可以算立方根?
电脑程序-附件中无计算器,怎么回事?
本人急求一C 语言程序,一个简单的计算器程序?
如果快速调用WINDOWS自带的计算器程序,
科学计算器如何用C程序……