Hola al foro, aqui algunos programas para estructuras
civil, ojala les guste.
pronto mas programas
ALGUNOS PROG. CIVIL :) AFX 2.0
-
Topic author - Usuario Principiante
- Mensajes: 8
- Registrado: Lun Ene 02, 2006 9:44 am
- Ubicación: Potosi
- Adjuntos
-
Viga Cross V2.rar
- vigas metodo cross, empo y apoyados
- (1 MiB) Descargado 154 veces
-
Viga Cross V1.rar
- vigas metodo cross, empotrados
- (148.72 KiB) Descargado 143 veces
-
HIPER-3D.rar
- cerchas en 3d hiperestaticas
- (2.42 KiB) Descargado 129 veces
-
ARMADURAS.rar
- Armaduras cool
- (2.18 MiB) Descargado 168 veces
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
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
-
- 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
-
Topic author - 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
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
-
- Temas similares
- Respuestas
- Vistas
- Último mensaje
-
-
PROYECTOS DE INGENIERIA CIVIL
por pfcingeniero1978 » Jue Nov 26, 2020 11:49 am » en General Ingenieria Civil - 0 Respuestas
- 803 Vistas
-
Último mensaje por pfcingeniero1978
Jue Nov 26, 2020 11:49 am
-
-
-
Web de Ingeniería Civil - IngeCivil.net
por killbill » Sab Feb 22, 2020 7:44 am » en General Ingenieria Civil - 0 Respuestas
- 3069 Vistas
-
Último mensaje por killbill
Sab Feb 22, 2020 7:44 am
-
-
- 0 Respuestas
- 460 Vistas
-
Último mensaje por pfcingeniero1978
Dom Nov 08, 2020 4:17 am
-
-
Cálculos de Ingenieria Civil con Python
por eduardo3800 » Sab Feb 08, 2020 9:36 am » en Computacion y Tecnologia - 1 Respuestas
- 3127 Vistas
-
Último mensaje por oskar1978
Mié Jun 17, 2020 5:07 pm
-
-
-
CALCULOS PARA LA INSTALACION DE PANELES SOLARES DOMESTICA EN INGENIERIA CIVIL
por eduardo3800 » Mar Abr 28, 2020 11:52 am » en Estudiantes - 2 Respuestas
- 2692 Vistas
-
Último mensaje por dianacenteno
Vie Jul 17, 2020 12:08 pm
-
-
- Información
-
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados