ALGUNOS PROG. CIVIL :) AFX 2.0

Responder
Avatar de Usuario
casius
Usuario Principiante
Usuario Principiante
Mensajes: 8
Registrado: Lun Ene 02, 2006 9:44 am
Ubicación: Potosi

Hola al foro, aqui algunos programas para estructuras
civil, ojala les guste.
pronto mas programas
Adjuntos
Viga Cross V2.rar
vigas metodo cross, empo y apoyados
(1 MiB) Descargado 228 veces
Viga Cross V1.rar
vigas metodo cross, empotrados
(148.72 KiB) Descargado 222 veces
HIPER-3D.rar
cerchas en 3d hiperestaticas
(2.42 KiB) Descargado 202 veces
ARMADURAS.rar
Armaduras cool
(2.18 MiB) Descargado 251 veces
lcusoc
Usuario Principiante
Usuario Principiante
Mensajes: 3
Registrado: Mar Jul 14, 2009 11:36 am

ESTIMADO EL PROGRAMA QUE DETALLO MAS ABAJO ESTÁ EN BASIC, QUE SIRVE PARA EL CALCULO DE FACTORES ECONOMICOS PARA EL RAMO DE iNGENIERÍA ECONOMICA, COMO NO SOY MUY DIESTRO EN LA PARTE DE PROGRAMACIÓN, TU PUEDES REESCRIBIRLO PARA CARGAR A LA AFX 2.0?

10 CLEAR:TT=0:TP=0:NF=0
15 CLS:P=TP:A=TP:F=TP
20 INPUT"P/F[1] F/P[2] A/P[3] P/A[4] A/F[5] F/A[6] G[7] Sumar[8] ";X:IF X>7 THEN 50
40 CLS:LOCATE 0,0:PRINT"i[%] :";Y;:LOCATE 7,1:INPUT Y:I=Y/100
45 CLS:LOCATE 0,0:PRINT"N :";N;:LOCATE 4,1:INPUT N
46 Q=(1+I)^N
47 W=Q-1:CLS
50 ON X GOTO 130,150,170,190,210,230,550,500,510,520:GOTO 20
130 LOCATE 0,0:PRINT"F :";F;:LOCATE 4,1:INPUT F
140 TP=F/Q:PRINT"P/F =";TP:GOTO 15
150 LOCATE 0,0:PRINT"P :";P;:LOCATE 4,1:INPUT P
160 TP=P*Q:PRINT"F/P =";TP:GOTO 15
170 LOCATE 0,0:PRINT"P :";P;:LOCATE 4,1:INPUT P:IF I=0 THEN TP=P/N ELSE TP=I*P*Q/W
180 PRINT"A/P =";TP:GOTO 15
190 LOCATE 0,0:PRINT"A :";A;:LOCATE 4,1:INPUT A:IF I=0 THEN TP=A*N ELSE TP=A*W/(I*Q)
200 PRINT"P/A =";TP:GOTO 15
210 LOCATE 0,0:PRINT"F :";F;:LOCATE 4,1:INPUT F
220 TP=F*I/W:PRINT"A/F =";TP:GOTO 15
230 LOCATE 0,0:PRINT"A :";A;:LOCATE 4,1:INPUT A
240 TP=A*W/I:PRINT"F/A :";TP:GOTO 15
500 TT=TT+TP:NF=NF+1:PRINT"TOTAL =";TT:GOTO 15
510 PRINT"Ultimo valor=";TP,"Total=";TT,"N=";NF:GOTO 15
520 CLS:LOCATE 0,0:PRINT"Valor=";TP;:LOCATE 7,1:INPUT TP:GOTO 15
550 CLS:INPUT"P/G[1] A/G[2] F/G[3]";X:INPUT"G=";G:ON X GOTO 560,570,580:GOTO 550
560 TP=G*(W-I*N)/(Q*I^2):PRINT"P/G=";TP:GOTO 15
570 TP=G*(W-I*N)/(I*W):PRINT"A/G=";TP:GOTO 15
580 TP=G*(W-I*N)/I^2:PRINT"F/G=";TP:GOTO 15
luiseduardoaguilar
Usuario Principiante
Usuario Principiante
Mensajes: 1
Registrado: Jue Sep 26, 2013 8:00 pm

buenas. me gustaria saber que sucede en la linea 49 " List->Mat(List 6)->Mat A " represento la flechita de la calculadora con -> ya que me sale un error, esto es del programa cross V1
Avatar de Usuario
casius
Usuario Principiante
Usuario Principiante
Mensajes: 8
Registrado: Lun Ene 02, 2006 9:44 am
Ubicación: Potosi

holas, ojala que te sirvan los programas
lo que pasa es que talves estes metiendo el comandito mal, pues lo que pasa es que el comando de Mat List() es uno solo, no son comandos separados es lo miso al reves de list a Mat

Ojala te haya ayudado, pero si no puedes me escribes a mi correo
Responder
  • Similar Topics
    Respuestas
    Vistas
    Último mensaje

Volver a “Casio”

  • Información