casio5800计算器公路竖曲线全线高程计算程序

要素,2输入竖曲线要素,3输入1、2线夹平竖曲线交点(变坡点)数量以让程序规划内存建立要素数据为,其它值退出本程序 15\I≠0=>Prog"DATLOCK" 2008-07-28 18:23修改Р 16\I=1 => Goto 1:I=2 => Goto 2:I=3 => Goto 3 2008-07-28 18:23修改Р 17\Prog"SETPFDYS"Р 18\StopР 19\Lbi 1 ;平曲线要素输入部分Р 20\Z[C+6]→DР 21\-1→Z[D+3]Р 22\For 1→J To Z[C+16]Р 23\Cls:"PQX":Locate 9,1,JР 24\Z[D+1]→I:"N"?I:I→Z[D+1] ;请输入N坐标Р 25\Z[D+2]→I:"E"?I:I→Z[D+2] ;请输入E坐标Р 26\Z[D+3]→I:"R"?I:I→Z[D+3] ;请输入半径RР 27\Z[D+4]→I:"LS1"?I:I→Z[D+4] ;请输入缓和曲线1长度Р 28\Z[D+5]→I:"LS2"?I:I→Z[D+5] ;请输入缓和曲线2长度Р 29\D+5→DР 30\NextР 31\1→Z[D-2]Р 32\Goto SР 33\Lbi 2 ;竖曲线要素输入部分Р 34\Z[C+7]→DР 35\-1→Z[D+3]Р 36\For 1→J To Z[C+17]Р 37\Cls:"SQX":Locate 9,1,JР 38\Z[D+1]→I:"BPDZH"?I:I→Z[D+1] ;请输入变坡点桩号 2008-08-07修改 39\Z[D+2]→I:"BPDGC"?I:I→Z[D+2] ;请输入变坡点高程 2008-08-07修改 40\Z[D+3]→I:"R"?I:I→Z[D+3] ;请输入半径R 2008-08-07修改 41\D+3→D