/clear,nostart /title,Gestell neu /prep7 !-------------------------------------------------------------------------- !-------------------------------Geometrie---------------------------------- !-------------------------------------------------------------------------- h_flach_quer=10 b_flach_quer=80 l_flach_quer=1800 h_flach_stirn=5 b_flach_stirn=77 l_flach_stirn=950 w1_t_traeger=77 w2_t_traeger=60 t1_t_traeger=10 t2_t_traeger=5 l_t_traeger=565 h_flach_aufhaengung=40 b_flach_aufhaengung=10 l_flach_aufhaengung=415 h_deckentraeger=10 b_deckentraeger=77 l_deckentraeger=575 l_aufhaengung=675 !-------------------------------------------------------------------------- !-------------------------------Definitionen------------------------------- !-------------------------------------------------------------------------- emodul=210000 querkont=0.3 et,1,shell63 et,2,beam188 mp,ex,1,emodul mp,nuxy,1,querkont !-------------------------------------------------------------------------- !-------------------------------Geometrie erstellen------------------------ !-------------------------------------------------------------------------- !-----------------------Koordinaten-------------------------------- x1=0 x2=((h_flach_quer)/2)+((b_flach_stirn)/2) x3=h_flach_quer+(b_flach_stirn) y1=0 y2=l_flach_stirn y3=l_flach_stirn+l_aufhaengung-((h_flach_aufhaengung)/2) y4=l_flach_quer z1=0 z2=((b_flach_quer)/2)-((h_flach_stirn)/2) z3=(l_deckentraeger)-((b_flach_quer)/2) z4=(l_deckentraeger) !-----------------------KeyPoints---------------------------------- k,1,x1,y1,z2 k,2,x2,y1,z1 k,3,x3,y1,z2 k,4,x3,y1,z3 k,5,x2,y1,z4 k,6,x1,y1,z3 k,7,x1,y2,z2 k,8,x2,y2,z1 k,9,x3,y2,z2 k,10,x3,y2,z3 k,11,x2,y2,z4 k,12,x1,y2,z3 k,13,x1,y3,z2 k,14,x3,y3,z2 k,15,x3,y3,z3 k,16,x1,y3,z3 k,17,x1,y4,z2 k,18,x2,y4,z1 k,19,x3,y4,z2 k,20,x3,y4,z3 k,21,x2,y4,z4 k,22,x1,y4,z3 !-----------------------Lines-------------------------------------- skf=50 l,1,7,(y2)/skf l,7,13,(y3-y2)/skf l,13,17,(y4-y3)/skf l,3,9,(y2)/skf l,9,14,(y3-y2)/skf l,14,19,(y4-y3)/skf l,4,10,(y2)/skf l,10,15,(y3-y2)/skf l,15,20,(y4-y3)/skf l,6,12,(y2)/skf l,12,16,(y3-y2)/skf l,16,22,(y4-y3)/skf l,2,8,(y2)/skf l,5,11,(y2)/skf l,8,11,(z4)/skf l,15,14,(z3-z2)/skf l,16,13,(z3-z2)/skf l,21,18,(z4)/skf !-----------------------Sections----------------------------------- sectype,1,beam,rect,,5 secdata,h_flach_quer,b_flach_quer,4,10 sectype,2,beam,rect,,5 secdata,b_flach_stirn,h_flach_stirn,10,4 sectype,3,beam,t,,5 secdata,w1_t_traeger,w2_t_traeger,t1_t_traeger,t2_t_traeger sectype,4,beam,rect,,5 secdata,h_flach_aufhaengung,b_flach_aufhaengung,4,10 sectype,5,beam,rect,,5 secdata,h_deckentraeger,b_deckentraeger,4,10 !-----------------------Linien vernetzen--------------------------- lsel,s,line,,1,12 latt,1,,2,,,,1 lmesh,all lsel,s,line,,13,14 latt,1,,2,,,,2 lmesh,all cskp,11,0,1,3,6 csys,11 lsel,s,line,,15 latt,1,,2,,,,3 lmesh,all !csys,0 lsel,s,line,,16,17 latt,1,,2,,,,4 lmesh,all lsel,s,line,,18 latt,1,,2,,,,5 lmesh,all !-----------------------KeyPoints to Nodes------------------------- aze1=(y2/skf) aze2=((y3-y2)/skf) aze3=((y4-y3)/skf) aze4=(z4/skf) aze5=((z3-z2)/skf) ckn1=1 ckn7=2 _ckn17=aze1+1+aze2+1 ckn17_dezi=mod(_ckn17,1) *if,ckn17_dezi,gt,0.5,then ckn17=(_ckn17)-(ckn17_dezi)+1 *else ckn17=(_ckn17)-(ckn17_dezi) *endif _ckn3=ckn17+aze3 ckn3_dezi=mod(_ckn3,1) *if,ckn3_dezi,gt,0.5,then ckn3=_ckn3-ckn3_dezi+1 *else ckn3=_ckn3-ckn3_dezi *endif _ckn9=ckn3+1 ckn9_dezi=mod(_ckn9,1) *if,ckn9_dezi,gt,0.5,then ckn9=_ckn9-ckn9_dezi+1 *else ckn9=_ckn9-ckn9_dezi *endif _ckn19=ckn9+aze1+aze2 ckn19_dezi=mod(_ckn19,1) *if,ckn19_dezi,gt,0.5,then ckn19=_ckn19-ckn19_dezi+1 *else ckn19=_ckn19-ckn19_dezi *endif _ckn4=ckn19+aze3 ckn4_dezi=mod(_ckn4,1) *if,ckn4_dezi,gt,0.5,then ckn4=_ckn4-ckn4_dezi+1 *else ckn4=_ckn4-ckn4_dezi *endif _ckn10=ckn4+1 ckn10_dezi=mod(_ckn10,1) *if,ckn10_dezi,gt,0.5,then ckn10=_ckn10-ckn10_dezi+1 *else ckn10=_ckn10-ckn10_dezi *endif _ckn20=ckn10+aze1+aze2 ckn20_dezi=mod(_ckn20,1) *if,ckn20_dezi,gt,0.5,then ckn20=_ckn20-ckn20_dezi+1 *else ckn20=_ckn20-ckn20_dezi *endif _ckn6=ckn20+aze3 ckn6_dezi=mod(_ckn6,1) *if,ckn6_dezi,gt,0.5,then ckn6=_ckn6-ckn6_dezi+1 *else ckn6=_ckn6-ckn6_dezi *endif _ckn12=ckn6+1 ckn12_dezi=mod(_ckn12,1) *if,ckn12_dezi,gt,0.5,then ckn12=_ckn12-ckn12_dezi+1 *else ckn12=_ckn12-ckn12_dezi *endif _ckn22=ckn12+aze1+aze2 ckn22_dezi=mod(_ckn22,1) *if,ckn22_dezi,gt,0.5,then ckn22=_ckn22-ckn22_dezi+1 *else ckn22=_ckn22-ckn22_dezi *endif _ckn2=ckn22+aze3 ckn2_dezi=mod(_ckn2,1) *if,ckn2_dezi,gt,0.5,then ckn2=_ckn2-ckn2_dezi+1 *else ckn2=_ckn2-ckn2_dezi *endif _ckn8=ckn2+1 ckn8_dezi=mod(_ckn8,1) *if,ckn8_dezi,gt,0.5,then ckn8=_ckn8-ckn8_dezi+1 *else ckn8=_ckn8-ckn8_dezi *endif _ckn5=ckn8+aze1 ckn5_dezi=mod(_ckn5,1) *if,ckn5_dezi,gt,0.5,then ckn5=_ckn5-ckn5_dezi+1 *else ckn5=_ckn5-ckn5_dezi *endif _ckn11=ckn5+1 ckn11_dezi=mod(_ckn11,1) *if,ckn11_dezi,gt,0.5,then ckn11=_ckn11-ckn11_dezi+1 *else ckn11=_ckn11-ckn11_dezi *endif _ckn21=ckn11+(aze1-1)+(aze4-1)+(2*aze5) ckn21_dezi=mod(_ckn21,1) *if,ckn21_dezi,gt,0.5,then ckn21=_ckn21-ckn21_dezi+1 *else ckn21=_ckn21-ckn21_dezi *endif _ckn18=ckn21+1 ckn18_dezi=mod(_ckn18,1) *if,ckn18_dezi,gt,0.5,then ckn18=_ckn18-ckn18_dezi+1 *else ckn18=_ckn18-ckn18_dezi *endif !-----------------------Nodes verbinden---------------------------- nsel,s,,,ckn2 !nsel,a,,,ckn3 cerig,ckn1,all,all !cerig,ckn3,ckn2,all !cerig,ckn4,ckn5,all !cerig,ckn5,ckn6,all !cerig,ckn7,ckn8,all !cerig,ckn8,ckn9,all !cerig,ckn10,ckn11,all !cerig,ckn11,ckn12,all !cerig,ckn17,ckn18,all !cerig,ckn18,ckn19,all !cerig,ckn20,ckn21,all !cerig,ckn21,ckn22,all !-----------------------Lager-------------------------------------- dk,1,uy dk,2,uy dk,3,uy dk,4,uy dk,5,uy dk,6,uy !-----------------------Kräfte------------------------------------- fl1=3900/l_t_traeger *do,i,(6*aze1)+(4*aze2)+(4*aze3)+1,(6*aze1)+(4*aze2)+(4*aze3)+1+aze4 sfbeam,i,2,pres,fl1 *enddo finish !------------------------------Ansicht------------------------------------- /SHRINK,0 /ESHAPE,1 /EFACET,1 /RATIO,1,1,1 /CFORMAT,32,0 /REPLOT /PNUM,KP,0 /PNUM,LINE,0 /PNUM,AREA,0 /PNUM,VOLU,0 /PNUM,NODE,0 /PNUM,TABN,0 /PNUM,SVAL,0 /NUMBER,0 GPLOT /CPLANE,1 /REPLOT,RESIZE WPSTYLE,,,,,,,,0 /VIEW,1,1,1,1 /ANG,1 /REP,FAST !------------------------------Lösung-------------------------------------- !/solu !solve !finish