ALEJANDRO1533

programa para el calculo de rasante 4 PRINT"Ras' Leer Ejec Cargar Borrar";:$=INPUT$(1) 5 IF$="B"THENGOSUB1080:GOTO4 6 IF$="E"THEN170 7 IF$="C"THEN500 8 IF$="L"THEN10 9 GOTO4 10 CLEAR:CLS:INPUT"Archivo:";F2$ 20 RESTORE#:RESTORE#F2$+" 1":READ#W$,pk,c,l:NO=VAL(RIGHT$(W$,2)) 30 DIM PK(NO),C(NO),L(NO) 40 FOR I=1 TO NO 50 RESTORE#:RESTORE#F2$+STR$(I),0,1 60 READ# S$,PK(I),C(I),L(I) 70 NEXT I 80 NO=I-3:no=(NO*2)+2 90 DIM i(NO+1),I0(NO),C$(NO),PC(NO),FC(NO),HP(NO),HF(NO),A(NO),Y$(no),Q(no),H(no) 100 FOR I=1 TO NO+1 110 i(I)=(C(I+1)-C(I))/(PK(I+1)-PK(I)):i(I)=i(I)*100 120 NEXT I 130 FOR I=1 TO NO 140 I0(I)=i(I)-i(I+1):IF I0(I)>0 THEN C$(I)="CXA" ELSE C$(I)="CVA" 150 A(I)=ABS(L(I+1)/(I0(I)/100)) 160 PC(I)=PK(I+1)-(L(I+1)/2)C(I)=PK(I+1)+(L(I+1)/2):HP(I)=C(I+1)-((i(I)/100)*(L(I+1)/2)):HF(I)=C(I+1)+((i(I+1)/100)*(L(I+1)/2)) 162 GOSUB800 165 NEXT I:M=M+1:Q(0)=PK(1):Q(M)=PK(NO):H(0)=C(1):H(M)=C(NO):Y$(M)="R" 170 CLSRINT"Pk:";PM;:INPUTPM 180 'BUSQ 185 FOR B=1 TO NO 187 IF PM>=PC(B) AND PM<=FC(B) THEN l=B 188 IF PM>=FC(B-1) AND PM<=PC(B) THEN p=B 190 NEXT B 205 FOR B=1 TO no 210 IF PM>=Q(B-1) AND PM<=Q(B) THEN I=B-1 220 NEXT B 225 IF PM>FC(NO) THEN X=PM-FC(NO):Y=(i(NO+1)/100)*X:HQ=HF(NO)+Y:pen=(i(NO+1):GOTO 305 230 IFY$(I)="C"THEN260 235 IFY$(I)="R"THEN240 240 'REC 245 IF PM<PC(1) THEN X=PM-Q(0):Y=(i(1)/100)*X:HQ=H(0)+Y:pen=i(1):GOTO 305 246 IF PM>FC(NO) THEN X=PM-PK(NO):Y=(i(NO)/100)*X:HQ=HF(NO)+Y:pen=i(NO):GOTO 305 250 X=PM-Q(I):Y=(i(p)/100)*X:HQ=H(I)+Y:pen=i(p):GOTO 305 260 'CUR 265 X=PM-Q(I):E1=(X^2/2/A(l)) 270 IF C$(l)="CXA" THEN Y=(i(l)/100)*X-E1 ELSE Y=(i(l)/100)*X+E1 280 HQ=H(I)+Y 300 H=-(A(l)*((ABSI0(l))/100)/2) 302 pen=(X*I0(l)/(2*H)+i(l)) 305 CLS:SETF3RINT"Pk=";PM;"Cota=";HQ; 310 LOCATE0,1RINT"P%=";pen 320 GOTO170 500 CLEAR:CLS:INPUT"Archivo:";F$,"Nro de Ver";NO 510 NO=NO+2 530 FOR I=1 TO NO 540 N$=F$+STR$(I) 542 IF I=1 THEN N$=N$+STR$(NO):GOTO 550 543 IF I=NO THEN 570 ELSE 580 550 CLS:INPUT"Pk Ini";PK,"Cota Ini";C:L=0:GOTO600 570 IF I=NO THEN CLS:INPUT"Pk Final";PK,"Cota Final";C:L=0:GOTO600 580 CLS:SETF0RINT"Vert.";I-1; 585 LOCATE0,1:INPUT"Pk:";PK 586 CLS:SETF0RINT"Vert.";I-1; 589 LOCATE0,1:INPUT"Cota:";C 590 CLS:SETF0RINT"Vert.";I-1; 592 LOCATE0,1:INPUT"Long:";L 600 A$=N$+","+STR$(PK)+","+STR$(C)+","+STR$(L) 610 GOSUB4000 620 NEXT I:GOTO4 800 M=M+1:Q(M)=PC(I):Y$(M)="C":H(M)=HP(I) 805 M=M+1:Q(M)=FC(I):Y$(M)="R":H(M)=HF(I) 810 RETURN 1080 CLS:q$=""RINT TAB(0);:INPUT"Archivo a B#";F$:IF F$=""THEN1080 1082 FOR Y=1 TO 50 1083 RESTORE#:RESTORE#F$,1,1084:READ#N$,P,P,P:GOTO1085 1084 RETURN 1085 RESTORE#:RESTORE#N$,1:WRITE#:NEXT:RETURN 4000 RESTORE#:RESTORE#"EOF",0,4010:WRITE#:WRITE#A$:WRITE#"EOF":RETURN 4010 WRITE#"EOF":GOTO4000 si les interesa comenten, tengo mas.