casio 卵形曲线计算

CASIO4800卵形曲线计算INLN:M”K0”:L”K1”:E”R0”:S”R1”:F”-1,1”:A:U”N0”:W”E0”:V=1:Z=21:Z[18]=NZ[Z]=U:Z[Z+1]=W:Z[Z+2]=M:Z[Z+3]=L:Z[Z+4]=E:Z[Z+5]=S:Z[Z+6]=F:Z[Z+7]=ALbI4:V≠Z[18]=>GOTO5:≠=>GOTO6LbI5:Z=Z+8H=1/E:K=1/S:I=0:T=(L-M)/8:O=0:P=0:J=0:D=0:Q=0LbI3:I<7=>GOTO1:≠=>GOTO2LbI1:N=M+T(I+1):G=H+(K-H)(N-M)/(L-M):B=A+F*90(G+H)(N-M)/∏:O=O+CosB:P=P+SinB:J=J+2:N=M+TJ:G=H+(K-H)(N-M)/(L-M):C=A+F*90(G+H)(N-M)/∏:D=D+CosC:Q=Q+SinC:I=I+2:GOTO3LbI2:D=D-CosC:Q=Q-SinC:X=U+(L-M)/4/6*(CosA+4O+2D+CosC):Y=W+(L-M)/4/6*(SinA+4P+2Q+SinC)Z[Z]=X:Z[Z+1]=Y:Z[Z+7]=C:Z[Z+2]=Z[Z+3-8]:Z[Z+4]=Z[Z+5-8]:{L,S,F}:L”K1…”:S”R1…”:F”-1,1…”:Z[Z+3]=L:Z[Z+5]=S:Z[Z+6]=F:U=Z[Z]:W=Z[Z+1]:M=Z[Z+2]:E=Z[Z+4]:A=Z[Z+7]:V=V+1:GOTO4LbI6:”END”RUNLU”NH”:W”EH”:X”NZ”:Y”EZ”:LbI4:Z=21:{O,T}:O”K”:T”-,+Z”LbI5:O≤Z[Z+3]=>GOTO6:≠=>Z=Z+8△Z>(21+8Z[18])=>GOTO7:≠=>GOTO5LbI6:M=Z[Z+2]:L=Z[Z+3]:E=Z[Z+4]:S=Z[Z+5]:F=Z[Z+6]:A=Z[Z+7]:Z[1]=Z[Z]:Z[2]=Z[Z+1]H=1/E:K=1/S:Z[13]=0:Z[7]=(O-M)/8:Z[8]=0:P=0:Z[14]=0:D=0:Q=0LbI3:Z[13]<7=>GOTO1:≠=>GOTO2LbI1:N=M+Z[7](Z[13]+1):G=H+(K-H)(N-M)/(L-M):B=A+F*90(G+H)(N-M)/∏:Z[8]=Z[8]+CosB:P=P+SinB:Z[14]=Z[14]+2:N=M+Z[7]*Z[14]:G=H+(K-H)(N-M)/(L-M):C=A+F*90(G+H)(N-M)/∏:D=D+CosC:Q=Q+SinC:Z[13]=Z[13]+2:GOTO3LbI2:D=D-CosC:Q=Q-SinC:Z[5]=Z[1]+(O-M)/4/6*(CosA+4Z[8]+2D+CosC):Z[6]=Z[2]+(O-M)/4/6*(SinA+4P+2Q+SinC):Z[3]”N”=Z[5]+Abs(T)Cos(C+90*(T+0.0001)/Abs(T+0.0001))▲Z[4]”E”=Z[6]+Abs(T)Sin(C+90*(T+0.0001)/Abs(T+0.0001))▲Pol((U-X),(W-Y)):Z[9]=JPol((Z[3]-X),(Z[4]-Y)):Z[10]”L”=I▲Z[11]=JZ[9]≤Z[11]=>Z[12]”O”=Abs(Z[9]-Z[11])▲≠=>Z[12]”O”=360-(Z[9]-Z[11])▲△GOTO4LbI7:”OUT”使用说明：INL为曲线要素输入程序。其中每个字母说明如下：N：变化曲线个数K0：第一个曲线起点里程K1：第一个曲线止点里程R0：第一个曲线起点半径（如是直线输入1E20或100000）R1：第一个曲线止点半径（如是直线输入1E20或100000）-1，1：曲线左转为“-1”，右转为“1”A：第一个曲线起点切线方位角N0：第一个曲线起点N座标E0：第一个曲线起点E座标K1…：第n个曲线的止点里程R1…：第n个曲线的止点半径（如是直线输入1E20或100000）-1，1…：第n个曲线的转角判别（左转为“-1”，右转为“1”）RUNL为曲线结果计算程序。其中每个字母说明如下：NH：后视点N座标EH：后视点E座标NZ：置仪点N座标EZ：置仪点E座标K：计算点里程-，+Z：计算点至中桩的距离（左负右正，中桩输0）N：计算点N座标E：计算点E座标L：置仪点至计算点的平距O：后视点与计算点的水平夹角OUT:输入的计算里程超出范围例题如下：主点桩号坐标（m）切线方位角（θθ）XY°’”ZHAK0+09009987.400310059.3378921726..2HY1AK0+16009968.988110125.3341132233511.6YH1AK0+2233.71559910.600310136.7791205244333.6HY2AK0+2711.88119880.433810100.9904251244188.5YH2AK0+3844.03229922.311610007.9909337044544.2HZAK0+4444.03229981.366310000.000000000N=5K0=90K1=160R0=1E20R1=50-1，1=1A=92°17°26.2°N0=9987.403E0=10059.378K1…=223.715R1…=50-1,1…=1K1…=271.881R1…=75-1,1…=1K1…=384.032R1…=75-1,1…=1K1…=444.032R1…=1E20-1,1…=1END程序中一部份字母说明:C:最后一