GStarCAD - Programa de dibujo CAD desde USD700 http://www.construaprende.com/ingsoftwa ... inoamerica

ALGUNOS PROG. CIVIL :) AFX 2.0

Responder
Avatar de Usuario

Topic author
casius
Usuario Principiante
Usuario Principiante
Mensajes: 8
Registrado: Lun Ene 02, 2006 9:44 am
Ubicación: Potosi

#1

Mar Abr 19, 2011 2:50 pm

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 137 veces
Viga Cross V1.rar
vigas metodo cross, empotrados
(148.72 KiB) Descargado 126 veces
HIPER-3D.rar
cerchas en 3d hiperestaticas
(2.42 KiB) Descargado 111 veces
ARMADURAS.rar
Armaduras cool
(2.18 MiB) Descargado 151 veces

Vinculos Patrocinados:


lcusoc
Usuario Principiante
Usuario Principiante
Mensajes: 3
Registrado: Mar Jul 14, 2009 11:36 am

#2

Mar Jun 07, 2011 11:50 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

#3

Vie Sep 27, 2013 12:13 am

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

Topic author
casius
Usuario Principiante
Usuario Principiante
Mensajes: 8
Registrado: Lun Ene 02, 2006 9:44 am
Ubicación: Potosi

#4

Mar Oct 01, 2013 8:29 am

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
  • Temas similares
    Respuestas
    Vistas
    Último mensaje

Volver a “Casio”

  • Información