扩展变量操作.docx

扩展变量操作（15个）：Defm 15 —」，0字母0数字J-SQX (竖曲线数据输入“J-SQX” ： {NHUVMQP}:Z[9]=N “SJD” :Z[10]=H “JDZ” :Z[11]=U “11” :Z[12]=V “12” :Z[13]=M“R” :Z[14]=Q “QD” :Z[15]=P “ZD” : “TO J-JSMS”J-PQX (平面数据输入，自行切换到J-JSMSA “jd” b “jdx” C “JDY” F “町” O “ZJ： Z-，Y+” R： E “LS1” K “LS2”： E<1=>E=1—9/EK<1=>K=1 -9/Z[1]=EEF24R-Ea4三2688RRR:Z[2]=EF2-EEEF240RR:X=(EE-KK)三24RFsin AbsEO :Z[3] “T1” =(R+Z[1])tan(Abs O 三2)+Z[2]-X/Z[4] “T2” =(R+KKF24R-Ka4三2688RRR)tan(Abs O 三2)+KF2-KKKF240RR+X/L=Abs On RF180+(E+K)三2丄J=tan-1((R+Z[1])-(Z[3]-Z[2]):X “E” =(R+Z[1]) Fsin J-RJX二A-Z[3]:Y二X+E:E<1=>X “ZY”2工=>X “ZH”JY “HY”J/Y “QZ” =X+(L-K-E)三 2+EJY二X+L-K:X二X+L:K<1=>X “YZ”J工=>Y “YH”JX “HZ”/ /Prog “J-JSMS”J-JSMS （放样模式主程序“1-ZS,2-F1,3-FS” ： “4-F2,5-Z0,6-DM” :Lbl 0:{Z}: Z“MS”W2=>Goto 1: H=> ZW4=> Goto2 :工=> Goto 3//-」Lbl 1 : {PDW}:PD “BZ” W “BJ” : Prog “JP” :X “X二”丄Y “ y= ” 丄Z<2=> Go to 1:#=>Prog “JS” :Prog “JC” :H “Z” =H+G/Goto 1/ --1Lb1 2 : {XYW}:XYW “BJ” : Prog “JF” : P “P二”丄D “BZ二”丄Z<4=>Go to 2:H=>{Q}:Q “ZP” :Prog “JS” :Prog “JC” :Prog “JB” :Go to 2/-」Lb1 3 : {P}:P: Prog “JS” :H “Z0二”丄Z<6=>Goto 3:#=>{D}:S “CGZ” :T “JKZ” :Z[8]=Q “LH” :D “BZ” :Prog “JC” :J “JK二”丄G “Z” =H+G/Goto 0/JS （竖曲线计算子程序PProg “J-SQX” /P>Z[15]=>Prog “SJ-SQX”/-」N=Z[9]:U=Z[11]:V=Z[12]:H=Z[13]:G=H Abs(U-V)三200:P1二U:M二N-G:M>P=>M=P/工二>1二V:M=N+G:MM=P // J=(P-M) 2 三 2H:U-V>0二>J=-J / H二Z[10] + (P-N) X I 三 100+JJP (平曲线正算子程序Fixm--1Lb1 1 :J=F:X= B-Z[3]cos F :Y= C-Z[3]sin F :G=E—」PWA-Z[3]=>I二A-Z[3]-P:M=-I:N=0:H二F+W:GotoH=>PWA-Z[3]+E二>1二P-A+Z[3]:H=90IIFREn :0<0=>H二-H/H二H+W+F:Goto 3—」H=>PWA-Z[3]+L-K二>1二P-A+Z[3]-E:Goto 4: #=>Goto 2//—」Lb1 2 :X= B+Z[4]cos(F+0 :Y= C+Z[4]sin(F+0 :J=F+O+180:G=K—」PWA-Z[3]+L二>1二A-Z[3]+L-P:H=90IIFRKn :0>0=>H=-H/H=H+J+W+180:Goto 3 —」工二>1二P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto 5 —」Lb1 3 :M=I-Ia5三40RRGG:N=III三6GR-Ia7三336RRRGGG:Goto 5 —」Lb1 4 :H=(E+2I) X90Fn R:M=R sin H+Z[2]:N=R(1-cos H)+Z[1]:O<0=>H=-H/H=J+H+W: Goto 5Lb1 5 :PWA-Z[3]+L-K=> 0<0=>N=-N/#=>0>0=>N=-N//G oto 6—」Lb1 6 :X =X+M cos J-N sin J+D cos H:Y 二Y+M sin J+N cos J+D sin HJF （平曲线反算子程序Fixm--1U二X:V二Y:D=O:J=F-W:P二A+(Y-C)cos J-(X-B)sin J—」Lb1 l:Prog“JP” :J=H-180:I=(V-Y)cos J-(U-X)sin J:Abs I<1—4=>Goto 2:工二>P=P+I:Goto 1/E—__|Lb2: D=(V-Y)FsinHJC (超高加宽计算子程序Fixm:Z[8]<1=>Z[8]=1 -8 /EI=E:M=A-Z[3]:E<1=>I=Z[8]:M=M-I /G=K:N=A-Z[3]+L:K<1=>G=Z[8]:N=N+GPW0.5(N+M=>U=(P-M) FI:工=>U=(N-P) FG/U<0=>U=0/U>1=>U=1 /加宽方式：1、J二UT 高次抛物线加宽 J二T(1-3UU+2UUU) 2、J二T(45-3呵:DO<0=>J=0I=1:Prog “JD” :I=US:G=I+UN-N:U=Abs D-V:U<0=>U=O/U>M+J+Z[5]=>U=M+J+Z[5] /Z[7] = 1=>Go to 1:#=>G oto 2/—」Lb1 1: I=0=>I=-N: #=>I=G:DO>0=>I=-I:Abs II=-N///G=UI:N=IJ(路面横坡)Go to 3—」Lb1 2:NN=I / G=N(M-U)+Z[5]Z[6]:N=-N:DO<0=>G=G+2IU:N=I / Go to 3—」Lb1 3: U= M+J+V+Z[5]:AbsD$U-0.01二>G=G-Z[5](N+Z[6]) /如路肩和路面坡比一样含在路面总宽里改为G=G/JB （路基边桩放样子程序H二H+G-Q:H<0二>I=2:H “W二” =Abs H/工二>1=3 :H “T二”丄/Prog “JD” :G=HFV:G<1二>1二MG:工=>G<2二>1二M+N(GT):工二>1二M+N+Z[6](G-2) //I “BP” =Abs D-VI-Z[7]Int G-U-Z[5]丄G=V Frac G:G<1.5=>G “PT”/JD (断面数据储存子程序I=l=>M=4:N=0.015:Z[5]=0.25:Z[6]=0.015:V=0:Z[7]=2:#=> I=2=> Z[5] = 1.1: M=0.5: N= 0.75: Z[6] = 1.00: V=10: Z[7]=1.0:#=> Z[5]=0:M=1.50: N=1.75: Z[6]=2.00 : V=8: Z[7] = 1.0//＜! — [if !supportLists]--＞一、＜!--[endif]—＞程序简介本套程序是共有2个主程序，7个子程序。

包括了路线坐标正反算、竖曲线、超高加宽、边坡放样 及断面计算等程序适用于CASI04800/4850, 4850用户需要修改清单内结果显示的字段（例如：X“X二”丄 改为“X二”:X丄或 G “Z” 二H+G2 改为“Z二”：G=H+G/）＜! — [if !supportLists]--＞ 二、＜!--[endif]—＞程序功能本着用最懒的方法做最繁杂的事（当然认真更重要！），根据不同需要，本程序共设置了6种计算模式 J-JSMS：1- ZS，正算模式：适用于中、边桩计算，里程桩号及边距=＞ 平面坐标2- FI,放样1模式：适用于路面施工放样，里程桩号及边距=＞平面坐标、路面高程3- FS,反算模式：适用于任意点里程、边距计算，任意点坐标=＞ 里程、边距4- F2,放样2模式：适用于路基施工放样，任意点坐标=＞里程、边距、填挖高度，边坡超欠挖宽度, 最近平台高度（＜1.5）5- Z0,设计高程计算，即竖曲线计算，里程桩号=＞设计高程6- DM,断面计算，里程桩号、边距=＞ 设计高程、加宽值、指定边桩的高程＜!--[if !supportLists]--＞ 三、＜!--[endif]—＞计算范围平曲线：直线-缓和曲线（或无）-圆曲线-缓和曲线（或无）-直线中任意桩号，允许两缓和曲线不 等长，即可以算卵形曲线，回头曲线竖曲线：前交点SYZ到后交点SZY中的任意桩号＜! — [if !suppor tLis ts]--＞四、＜! -- [endif]—＞数据输入及各计算模式运行过程1、正算模式：1-ZS,运行主程序J-PQX （平曲线），计算过程如下：显示输入计算结果备注DJ?交点桩号JDX?交点X值JDY?交点Y值町？计算方位角ZJ： Z-, Y+?交点转角左转为负值，右转正值R?圆曲线半径LSI?第一缓和曲线LS2?第二缓和曲线T1=前切线T2=后切线L=曲线长度E=外距ZH=ZH桩号若不计算平曲线要素桩号，程序清单J-PQXHY=HY桩号内有下划线部分可以不写入计算器内。

QZ=QZ桩号YH=YH桩号HZ=HZ桩号1-ZS,2-F1,3-FS4-F2,5-Z0,6-DMMS?计算模式选择，此模式请输入：1总共有6种计算模式供选择，符号说明见“二、程序功能”P?待求点桩号BZ？边桩距离左边为负值，右边为正值，中桩输0BJ？边桩夹角右边桩与中线夹角，正交为90,斜交另输X=X值Y=Y值P？ BZ？ BJ？ ...本模式循环计算2、反算模式：3-FS,运行主程序J-PQX （平曲线），运行过程同“1、1-ZS，正算模式”；若平曲线数据已经输入了,或者计算交点同上次相同，可直接运行J-JSMS （计算模式）显示输入计算结果备注 平曲线数据输入过程 1-ZS,2-F1,3-FS4-F2,5-Z0,6-DMMS？计算模式选择，此模式请输入：3总共有6种计算模式供选择，符号说明见“二、程序功能”X？任意点P的X值Y?任意点P的Y值BJ?边桩夹角右边桩与中线夹角，正交为90,斜交另输P=P点桩号BZ=边桩距离负值为左边桩，正值为右边桩X？ Y？...本模式循环计算3、纵断面设计高程计算：5-Z0,步骤1：首先运行J-SQX （竖曲线），此步骤只是竖曲线数据输入，不进行计算。