Code:
fini ! Schließen eines Prozessors - Rückkehr suf Beginn-Level
/clear! /input,Hausarbeit02_3_Balken_Konstruktion,txt,e:\FiniteElemente\HA ! Einlesen des Textfiles vom Pfad...
/title, Hausarbeit02,Höhe=%h%mm
!Hausarbeit02_3_Balken_Konstruktion.txt
! Eingabe der Variablen
c=2000 ! in m
b=3000 ! in m
q=3 ! in kN/m
Emod=100000 ! E-Modul in N/mm²
sigma=80 ! in N/mm²
! Annahme:
h=81.88
t=h/3
A=h*t ! in mm²
Iyy=1/12*h**3*t
Izz=1/12*t**3*h !h**3 - Hoch 3
! Deklaration von PI
*AFUN,RAD
pi=atan(1.)*4
*AFUN,DEG
! Deklaration zu Ende
fini
!================================================================================================
/prep7
! Prepozessor-Modellbildung
antype,0
! Element-Typ
et,1,beam4 ! 3D Stabelement, siehe element-libary (Hilfe Datei)
! Real-Constants
R,1,A,Izz,Iyy,h,t
! Material Daten:
mp,ex,1,Emod !ex - E-Modul wirkt in x-Richtung
mp,ey,1,Emod
mp,ez,1,Emod
mp,gxy,0
!================================================================================================
! Festlegung der Knoten (nodes) n,Knotennummer,x-Koord,y-Koord,z-Koord
k,1,0,0,0
k,2,c,0,0
k,3,3/2*c,0,0
k,4,2*c,0,0
k,5,3*c,0,0
k,11,c,0,-b
k,12,c,0,0
k,13,c,0,b
k,21,2*c,0,-b
k,22,2*c,0,0
k,23,2*c,0,b
! Elemente definieren
Mat,1
Type,1
Real,1
l,1,2
l,2,3
l,3,4
l,4,5
l,11,12
l,12,13
l,21,22
l,22,23
esize,L/10
lmesh,all
!================================================================================================
! Verbinden zweier Knoten
ksel,s,kp,,2
ksel,a,kp,,12
nslk,s
CP,1,uy,all
allsel
ksel,s,kp,,4
ksel,a,kp,,22
nslk,s
CP,2,uy,all
allsel
!================================================================================================
! Randbedingungen:
ksel,s,kp,,1
ksel,a,kp,,5
ksel,a,kp,,11
ksel,a,kp,,13
ksel,a,kp,,21
ksel,a,kp,,23
nslk,s
Dk,all,UX,0,,,,UY,UZ,ROTX,ROTZ
allsel
!================================================================================================
!Streckenlast
ksel,s,kp,,1,5
lslk,s,1 !Elementselektierung
esll,s,1
SFBEAM,All, 2, pres, q, q !VAL2I, VAL2J, IOFFST, JOFFST
!VALJ, VALJ Randpunkte
allsel
dtran
ftran
fini
!================================================================================================
/solu
solve
fini
!================================================================================================
/post1
!/view,1,0.5,1,1
tx=0
ty=-0.2
!/tlable,tx,ty-0.05,h=%h%
etable,bybi,ls,3
etable,bybj,ls,8
etable,byti,ls,2
etable,bytj,ls,7
etable,myi,smisc,6
etable,myj,smisc,12
/pbc,rfor,,2
NFORCE,both
plls,myi,myj
/wait,8
plls,bybi,bybj
/wait,2
plls,byti,bytj
/wait,2
!pldisp,1
fini