竖曲线(凸)
”LC[K=]”?->K
K-(BPK)->N 注解:BPK为变坡里程 ;
IF N<0:THEN H+N×-I1->G 注解:H为变坡点高程,I1为第一变坡坡度;
:ELSE H+N×-I2->G:IFEND 注解:I2为第二变坡坡度;
IF AbsN<T:THEN G+(T-AbsN)2÷2÷R÷-1->H:IFEND 注解:T为切线长;R为半径;当为凹型曲线时-1为1。
“H=”:H▲
说明:在计算器中每句程序可以用“:”来连接;“▲”为计算器中的暂停符号;程序中的蓝色字母为可变量。