UNIVERSIDAD NACIONAL DE HUANCAVELICA FACULTAD DE CIENCIAS DE INGENIERIA ESCUELA PROFESIONAL DE INGENIERIA CIVIL CODIGO
Views 210 Downloads 17 File size 4MB
UNIVERSIDAD NACIONAL DE HUANCAVELICA FACULTAD DE CIENCIAS DE INGENIERIA ESCUELA PROFESIONAL DE INGENIERIA CIVIL
CODIGO EN PYTHON (V 3.4.3) from tkinter import * from math import * import tkinter.ttk as ttk from tkinter import messagebox #FUNCIONES BASICAS: def TRANS_M(M): T=[[0 for i in range(len(M))] for j in range(len(M[0]))] for i in range(len(M)): for j in range(len(M[0])): T[j][i]=M[i][j] return T def PRO_ESCALAR(M,E): for i in range(len(M)): for j in range(len(M[0])): M[i][j]=M[i][j]*E return M def SUM_MAT(M1,M2): for i in range(len(M1)): for j in range(len(M1[0])): M1[i][j]=M1[i][j]+M2[i][j] return M1 def MUL_MAT(M1,M2): M=[[0 for i in range(len(M2[0]))] for j in range(len(M1))] for i in range(len(M1)): for j in range(len(M2[0])): for k in range(len(M2)): M[i][j]=M[i][j]+M1[i][k]*M2[k][j] return M def COLMENOS(L,n): for i in range(len(L)): L[i].pop(n-1) return L def ELISTP(LISTA,P): S=0 for i in range (len(LISTA)): S=S+LISTA[i]**P return S def ELISTCP(LISTA,P): S=0 for i in range (len(LISTA)): S=S+LISTA[i][0]**P return S def INV_MAT(M): I=[[1 if i==j else 0 for i in range(len(M))] for j in range(len(M))] for i in range(len(M)): pvt=M[i][i]
RESISTENCIA DE MATERIALES II
UNIVERSIDAD NACIONAL DE HUANCAVELICA FACULTAD DE CIENCIAS DE INGENIERIA ESCUELA PROFESIONAL DE INGENIERIA CIVIL
if pvt==0: pvt_c=i+1 pvt_f=M[pvt_c][i] while pvt_f==0: pvt_c=pvt_c+1 pvt_f=M[pvt_c][i] pvt=pvt_f fila_temp=M[pvt_c] M[pvt_c]=M[i] M[i]=fila_temp fila_temp=I[pvt_c] I[pvt_c]=I[i] I[i]=fila_temp for j in range(len(M)): if i!=j and M[j][i]!=0: F1=[pvt*k for k in I[j]] F2=[-M[j][i]*k for k in I[i]] I[j]=[F1[k]+F2[k] for k in range(len(F1))] F1=[pvt*k for k in M[j]] F2=[-M[j][i]*k for k in M[i]] M[j]=[F1[k]+F2[k] for k in range(len(F1))] return [[I[j][i]/M[j][j] for i in range(len(I))] for j in range(len(I))] def REG3G(L1,L2): MX=[[0 for i in range(4)] for j in range(4)] for i in range(4): for j in range(4): MX[i][j]=ELISTP(L1,j+i) CXY=[] for i in range(4): s=0 for j in range(4): s=s+L2[j][0]*L1[j]**i CXY.append([s]) INV=INV_MAT(MX) COE=MUL_MAT(INV,CXY) return [COE,str(round(COE[3][0],6))+"*X³ + "+str(round(COE[2] [0],6))+"*X² + "+str(round(COE[1][0],6))+"*X + "+str(round(COE[0] [0],4))] #FUNCIONES def CORTANTEGRAF(): global TRAEN, DISEN, CORTANTE, TextoCort CORTANTE=Toplevel(MASTER) CORTANTE.title("FUERZA CORTANTE") CORTANTE.config(bg="#0070d6") CORTANTE.geometry("200x200+85+50") Cor=Label(CORTANTE,text="Ingrese Tramo:",bg="#0070d6",fg="white").place(x=0,y=10) TRAEN=Entry(CORTANTE,font=("Times New Roman",12),width=8) TRAEN.place(x=100,y=10)
RESISTENCIA DE MATERIALES II
UNIVERSIDAD NACIONAL DE HUANCAVELICA FACULTAD DE CIENCIAS DE INGENIERIA ESCUELA PROFESIONAL DE INGENIERIA CIVIL
Cor=Label(CORTANTE,text="Ingrese distancia desde el apoyo:",bg="#0070d6",fg="white").place(x=0,y=40) DISEN=Entry(CORTANTE,font=("Times New Roman",12),width=8) DISEN.place(x=100,y=60) BOTGRAFC=Button(CORTANTE,text="GRAFICAR!", font=("Times New Roman",12),width=15,command=Vxx).place(x=30,y=120) BOTECUC=Button(CORTANTE,text="ECUACIONES", font=("Times New Roman",12),width=15,command=ECUCORT).place(x=30,y=155) TextoCort=Text(CORTANTE, width=60, height=10,font=("TIMES NEW ROMAN",12),relief=RAISED,cursor="mouse") TextoCort.place(x=210,y=35) TextoCort.config(state=DISABLED) def ECUCORT(): T=eval(TRAEN.get()) if 0