Programa 880p

10 SET F3:INPUT “PENDIEN:1 CRUCE:2 ACUERDO:3 RASANTE:4 SUBR.:5 …??:,OPC 20 IF OPC=2 THEN 100 30 IF OPC=3 THEN 220 40 IF OPC=4 THEN 310 45 IF OPC=5 THEN 500 50 INPUT “PK.1?=”,PK1,”COTA 1?=”,C1,”PK.2?=”,PK2,”COTA2?=”,C2 1?=”,C1,”PK.2?=”,PK2,”COTA2?=”,C2 60 P1=(C2-C1)/(PK2-PK1):PRINT P1=(C2-C1)/(PK2-PK1):PRINT “PENDIENTE=”;P1;” % =”;P1*100 70 INPUT “CALCULO RASANTE (S/N) ?=”,SN$=IF SN$=”S” THEN INPUT “AVANCE?=”,AV:GOTO 340 ELSE 10 100 INPUT “POR PENDIENTE:1 POR DISTANCIA Y COTAS:2 OPCION? =”,OP1 110 IF OP1=1 THEN 150 120 INPUT “PK.1?=”,PK1,”COTA1? “PK.1?=”,PK1,”COTA1?=”,C1,”PK.?=”,PK3,”COTA?=” =”,C1,”PK.?=”,PK3,”COTA?=”,C3 ,C3 130 INPUT “PK.2?=”,PK2,”COTA 2?=”,C2,”PK.?=”,PK4,”COTA?=”,C4 140 P1=(C3-C1)/(PK3-PK1):P2=(C P1=(C3-C1)/(PK3-PK1):P2=(C4-C2)/(PK4-PK2) 4-C2)/(PK4-PK2):GOTO :GOTO 170 150 INPUT “PK.1?=”,PK1,”COTA 1?=”,C1,”PEND.1?=”,P1 160 INPUT “PK.2?=”,PK2,”COTA 2?=”,C2,”PEND.2?=”,P2 170 DV=ABS(C1-(C2+(PK2-PK1)* DV=ABS(C1-(C2+(PK2-PK1)*P2*-1)))/ABS(P P2*-1)))/ABS(P1-P2) 1-P2) 180 PKV=PK1+DV:CV=C1+DV*P1 190 PRINT “PK.V=”;PKV;”COTA=”;CV;TAB(0) “PK.V=”;PKV;”COTA=”;CV;TAB(0);”P.ENT.=”;P1;”P ;”P.ENT.=”;P1;”P.SAL.=”;P2 .SAL.=”;P2 200 INPUT “CALCULO ACUERDO (SI=1 NO=2)?=”,CA 210 IF CA=2 THEN 10 ELSE 130 220 INPUT “PK.VERTICE?=”,PKV,”COT “PK.VERTICE?=”,PKV,”COTA?=”,CV,”PEND.ENT.? A?=”,CV,”PEND.ENT.? =,P1,”PEND.SALIDA?=”,P2 230 INPUT “KV DEL ACUERDO?=”,KV 240 T=(KV*ABS(P1-P2))/2 250 PKTE=PKV-T:CTE=CV+(T*(P1*-1) 260 PKTS=PKV+T:CTS=CV+(T*P2) 270 PRINT “PKTE=”;PKTE;”COTA=”;CTE;TAB( “PKTE=”;PKTE;”COTA=”;CTE;TAB(0);”PKTS;” 0);”PKTS;”;PKTS;”COTA=”;C ;PKTS;”COTA=”;CTS TS 290 INPUT “CALCULO RASANTE?(SI=1 NO=2)=”,CR 300 IF CR=2 THEN 10 ELSE OPC=4:GOTO 360 310 INPUT “SOLO UNA PENDIENTE=1 DOS PEND. Y ACUERDO V.=2 OPCION?=”,OP2 320 IF OP2=2 THEN 220 330 INPUT “PK.COMIENZO?=”,PK1,”CO “PK.COMIENZO?=”,PK1,”COTA?=”,C1,”PENDIENTE? TA?=”,C1,”PENDIENTE? =”,P1,”AVANCE?=,AV 340 PKC=PKC+AV:INPUT “PK DE CALCULO?=”,PKC 350 CP=C1+(PKC-PK1)*P1:GOTO CP=C1+(PKC-PK1)*P1:GOTO 430 360 INPUT “AVANCE?=”,AV 370 ÅKC=PKC+AV:INPUT “PK DE CALCULO?=”,PKC 380 IF PKCPKTS THEN CP=CV+(PKC-PKV)*P2:GOTO CP=CV+(PKC-PKV)*P2:GOTO 430 400 A=CTE+(PKC-PKT)*P1:B=(PKC-PKT A=CTE+(PKC-PKT)*P1:B=(PKC-PKTE)^2/(2*KV) E)^2/(2*KV) 410 IF P1>P2 THEN CP=A-B:GOTO 430 420 CP=A+B 430 PRINT “PK.=”;PKC;”COTA=;CP “PK.=”;PKC;”COTA=;CP 434 IF OPC=1 AND SN$=”S” THEN 340 435 IF OP2=1 THEN 340

440 IF OPC=4 THEN 370 500 SET F2:PRINT “ENTRADA DE DISTANCIAS Y PENDIENTES CON SU SIGNO” 505 INPUT “B.CALZ.IZQ. DISTANCIA=”,DBI,”B.CALZ.IZQ. COTA? =”,CBI,”B.CALZ.IZQ. PEND.TALUD?=,PBI 510 INPUT “B.CALZ.DCH. DISTANCIA=”,DBD,”B.CALZ.DCH. COTA? =”,CBD,”B.CALZ.DCH. PEND.TALUD?=”,PBD 520 INPUT “DATOS SUBR. DISTANCIA=”,DR,”DATOS SUBR. COTA? =”,CR,”DATOS SUBR. PEND.DCH.?=”,PR 530 CRI=CR+((DBI-DR)*PR):DI=(CBI-CRI)/(PBI-(-PR)):DTI=DBI+DI:CTI=CR+ (PR*(DTI-DR)) 540 CÅD=CR+((DBD-DR)*PR):DD=(CBD-CRD)/ABS(PBDPR):DTD=DBD+DD:CTD=CR+(PR*(DTD-DR)) 550 PRINT “IZQ. DC=”;CBICRI;TAB(16);”DP=”;DI;TAB(0);”COTA=”;CTI;TAB(16);”D.TT.=”;DTI 560 PRINT “DCH. DC=”;CBDCRD;TAB(16);”DP=”;DD;TAB(0);”COTA=”;CTD;TAB(16);”D.TT.=”;DTD