A problem in pushover analysis

For posts concerning the documentation, errors, ommissions, general comments, etc.

Moderators: silvia, selimgunay, Moderators

Post Reply
raminbadri
Posts: 10
Joined: Sat Jan 02, 2010 2:21 am
Location: IAU, Azarshar Branch

A problem in pushover analysis

Post by raminbadri » Sun Mar 07, 2010 2:05 pm

I have programmed to have a pushover analysis of 3D frame using fiber element method with Opensees 2.1.0 . I can not get results but zero.
please help me with it.

wipe
#----- Units & Constants --------
set cm 1;
set sec 1;
set N 1;
puts "end of units"

#---- material parameters -------
# E in N/cm^2
set E 200e5;
# G in N/cm^2
set G 769e4;
# fy in N/cm^2
set fy 240e2;
set epsyP [expr $fy/$E];
#mat tag: steel
set steel 1;
puts "end of material parameters"

#----- element parameters -------

# BEAM input parameters
#
# dBEAM = nominal depth
# twBEAM = web thickness
# bfBEAM = flange width
# tfBEAM = flange thickness
# nfdwBEAM = number of fibers along web depth
# nftwBEAM = number of fibers along web thickness
# nfbfBEAM = number of fibers along flange width
# nftfBEAM = number of fibers along flange thickness
# JBEAM = Torsional stiffness of section
# IyBEAM = moment inertia about y axis cm^4
# IzBEAM = moment inertia about z axis cm^4
# ABEAM = area of section cm^2
# LBEAM = length of element

set dBEAM 16;
set twBEAM 0.5;
set bfBEAM 8.2;
set tfBEAM 0.74;
set nfdwBEAM 30;
set nftwBEAM 1;
set nfbfBEAM 10;
set nftfBEAM 1;
set JBEAM 3.53;
set IyBEAM 68.3;
set IzBEAM 869;
set ABEAM 20.1;
set LBEAM 400;
puts "end of beam parameters"

# COLUMN input parameters
#
# dCOL = nominal depth
# twCOL = web thickness
# bfCOL = flange width
# tfCOL = flange thickness
# nfdwCOL = number of fibers along web depth
# nftwCOL = number of fibers along web thickness
# nfbfCOL = number of fibers along flange width
# nftfCOL = number of fibers along flange thickness
# JCOL = Torsional stiffness of section in m^4
# IyCOL = moment inertia about y axis in m^4
# IzCOL = moment inertia about z axis in m^4
# ACOL = area of section in m^2
# LCOL = length of element

set dCOL 20;
set twCOL 0.56;
set bfCOL 10;
set tfCOL 0.85;
set nfdwCOL 40;
set nftwCOL 1;
set nfbfCOL 15;
set nftfCOL 1;
set JCOL 6.46;
set IyCOL 142;
set IzCOL 1943;
set ACOL 28.5;
set LCOL 300;
puts "end of column parameters"

#------ load parameters --------
# gravity load is uniform load in N/cm
# lateral load is a point load in N

set gravityload 200;
set gravpatterntag 1;
set Mz34 [expr -$gravityload*pow($LBEAM,2)/12];
set Mz43 [expr $gravityload*pow($LBEAM,2)/12];
set Fy3 [expr $gravityload*$LBEAM/2];
set Fy4 [expr $gravityload*$LBEAM/2];
set lateralload 10;
set lateralloadtag 2;
puts "end of load parameter"

#------- model builder -----------
model BasicBuilder -ndm 3 -ndf 6
# model is in X-Y plane (X : horizontal , Y : vertical)
puts "end of model builder"

#---- nodal coordinates ------
node 1 0 0 0;
node 2 $LBEAM 0 0;
node 3 0 $LCOL 0;
node 4 $LCOL $LBEAM 0;
puts "end of nodal coordinates"

#------ boundray condition --------
fix 1 1 1 1 1 1 1;
fix 2 1 1 1 1 1 1;
fix 3 0 1 1 1 1 0;
fix 4 0 1 1 1 1 0;
puts "end of boundray condition"

# ------ geometric transformation -----
set Transtag13 1;
set Transtag2 2;
geomTransf Linear $Transtag13 0 0 -1
geomTransf Linear $Transtag2 0 1 0
puts "end of geometric transformation"

#-------- uniaxial material definition -------
uniaxialMaterial ElasticPP $steel $E $epsyP
puts "end of uniaxial material property"

#---- section ID's or section tags -------
set IPE160 1;
set IPE200 2;
puts "end of section tag"

#------- beam section definition -------
#
set dwBEAM [expr $dBEAM - 2 * $tfBEAM];
set y1 [expr -$dBEAM/2];
set y2 [expr -$dwBEAM/2];
set y3 [expr $dwBEAM/2];
set y4 [expr $dBEAM/2];
set z1 [expr -$bfBEAM/2];
set z2 [expr -$twBEAM/2];
set z3 [expr $twBEAM/2];
set z4 [expr $bfBEAM/2];
puts "end of beam sec. definition"

#------ BEAM fiber section definition --------
section Fiber $IPE160 {
# nfIJ nfJK yI zI yJ zJ yK zK yL zL
patch quadr $steel $nfbfBEAM $nftfBEAM $y1 $z4 $y1 $z1 $y2 $z1 $y2 $z4
patch quadr $steel $nftwBEAM $nfdwBEAM $y2 $z3 $y2 $z2 $y3 $z2 $y3 $z3
patch quadr $steel $nfbfBEAM $nftfBEAM $y3 $z4 $y3 $z1 $y4 $z1 $y4 $z4
}
puts "end of beam fiber sec.definition"

#------- column section definition --------
#
set dwCOL [expr $dCOL - 2 * $tfCOL];
set y1 [expr -$dCOL/2];
set y2 [expr -$dwCOL/2];
set y3 [expr $dwCOL/2];
set y4 [expr $dCOL/2];
set z1 [expr -$bfCOL/2];
set z2 [expr -$twCOL/2];
set z3 [expr $twCOL/2];
set z4 [expr $bfCOL/2];
puts "end of col. sec. definition"

#------ COLUMN fiber section definition --------
section Fiber $IPE200 {
# nfIJ nfJK yI zI yJ zJ yK zK yL zL
patch quadr $steel $nfbfCOL $nftfCOL $y1 $z4 $y1 $z1 $y2 $z1 $y2 $z4
patch quadr $steel $nftwCOL $nfdwCOL $y2 $z3 $y2 $z2 $y3 $z2 $y3 $z3
patch quadr $steel $nfbfCOL $nftfCOL $y3 $z4 $y3 $z1 $y4 $z1 $y4 $z4
}
puts "end of col. fiber sec. definition"

#----------- section aggregation --------
section Aggregator 33 $steel T -section $IPE160
section Aggregator 44 $steel T -section $IPE200

#------- element definition for mesh -----
set numIntegrPoints 3;
set eletag1 1;
set eletag2 2;
set eletag3 3;
#consider spread plasticity along the element.
element nonlinearBeamColumn $eletag1 1 3 $numIntegrPoints 44 $Transtag13
element nonlinearBeamColumn $eletag2 3 4 $numIntegrPoints 33 $Transtag2
element nonlinearBeamColumn $eletag3 2 4 $numIntegrPoints 44 $Transtag13

#element elasticBeamColumn $eletag1 1 3 $ACOL $E $G $JCOL $IyCOL $IzCOL $Transtag13
#element elasticBeamColumn $eletag2 3 4 $ABEAM $E $G $JBEAM $IyBEAM $IzBEAM $Transtag2
#element elasticBeamColumn $eletag3 2 4 $ACOL $E $G $JCOL $IyCOL $IzCOL $Transtag13

puts "end of element defin. for mesh"

#------ to record the gravity output --------
set fdir "data/gravity/";
file mkdir $fdir;
puts "end of directory definition"

set f1 gravdispnode3;
set Nodegrav3 $fdir$f1;
puts "end of node3 filename definition"

recorder Node -file $Nodegrav3.out -time -node 1 2 3 4 -dof 1 6 disp
puts "end of node record"

set f2 gravloadnode3;
set forcegrav3 $fdir$f2;
puts "end of force3 filename definition"

recorder Node -file $forcegrav3.out -time -node 1 2 3 4 -dof 1 6 reaction
puts "end of force record"

#-------- Gravity load definition ---------
pattern Plain $gravpatterntag Linear {
load 3 0 -$Fy3 0 0 0 $Mz34; # Fx Fy Fz Mx My Mz
load 4 0 -$Fy4 0 0 0 $Mz43
}
puts "end of gravity load definition"

#------- analysis objects for uniform gravity load -----
set gravstep 10;
constraints Lagrange
numberer RCM
system BandGeneral
test NormDispIncr 1.0e-6 10
algorithm Newton
integrator LoadControl [expr 1/$gravstep]
analysis Static
puts "end of analysis object"

#------- analyze -------
analyze $gravstep
loadConst -time 0.0
puts "end of analyze of gravity loading"

#------ to record the lateral output --------
set fdir "data/lateral/";
file mkdir $fdir;
puts "end of directory definition"

set f1 lateraldispnode3;
set Nodelateral3 $fdir$f1;
puts "end of node3 filename definition"

recorder Node -file $Nodelateral3.out -time -node 3 -dof 1 6 disp
puts "end of node record"

set f2 lateralloadnode3;
set forcelateral3 $fdir$f2;
puts "end of force3 filename definition"

recorder Node -file $forcelateral3.out -time -node 3 -dof 1 6 reaction
puts "end of force record"

#---- lateral load definition ------
pattern Plain $lateralloadtag Linear {
load 3 $lateralload 0 0 0 0 0
}
puts "end of lateral load definition"

#------- analysis objects for lateral load -----
set lateralstep 10;
constraints Lagrange
numberer RCM
system BandGeneral
test NormDispIncr 1.0e-6 10
algorithm Newton
integrator LoadControl [expr 1/$lateralstep]
analysis Static
puts "end of analysis object"

#------- analyze -------
analyze $lateralstep
puts "end of lateral load analyze"

Post Reply