hi all!
how can i improve this subroutine for a dinamic analysis? sometimes opensees tell to me:
"WARNING - ForceBeamColumn2d::update - failed to get compatible element forces &
deformations for element: 421422(dW: << 2.35492e+012)
Domain::update - domain failed in update
Newmark::update() - failed to update the domain
WARNING NewtonRaphson::solveCurrentStep() -the Integrator failed in update()
DirectIntegrationAnalysis::analyze() - the Algorithm failed at time 4.315
OpenSees > analyze failed, returned: -3 error flag"
The spript is below:
# Uniform Earthquake ground motion (uniform acceleration input at all support nodes)
set GMdirection 1;
set GMfile "R2.acc" ;
set DtAnalysis 0.005;
set TmaxAnalysis 20;
constraints Transformation ;
numberer RCM
system SparseGeneral -piv
set Tol 1.e-8;
set maxNumIter 100;
set printFlag 0;
set TestType EnergyIncr;
test $TestType $Tol $maxNumIter $printFlag;
set algorithmType Newton
algorithm $algorithmType;
set NewmarkGamma 0.5;
set NewmarkBeta 0.25;
integrator Newmark $NewmarkGamma $NewmarkBeta
analysis Transient
set xDamp 0.05;
set MpropSwitch 1.0;
set KcurrSwitch 0.0;
set KcommSwitch 1.0;
set KinitSwitch 0.0;
set lambda1 [eigen 1];
set lambda2 [eigen 2];
puts "$lambda1"
puts "$lambda2"
set omega1 [expr pow($lambda1,0.5)];
#set omega2 [expr pow($lambda2,0.5)];
set omega2 [expr pow(5.972501e+002,0.5)];
puts " T1=[expr 6.28/ $omega1]"
puts " T2=[expr 6.28/ $omega2]"
set alphaM [expr $MpropSwitch*$xDamp*(2*$omega1*$omega2)/($omega1+$omega2)];
set betaKcurr [expr $KcurrSwitch*2.*$xDamp/($omega1+$omega2)];
set betaKcomm [expr $KcommSwitch*2.*$xDamp/($omega1+$omega2)];
set betaKinit [expr $KinitSwitch*2.*$xDamp/($omega1+$omega2)];
rayleigh $alphaM $betaKcurr $betaKinit $betaKcomm;
# Uniform EXCITATION: acceleration input
set IDloadTag 400;
set dt 0.005;
set GMfatt [expr 0.778 * 9810.0];
set AccelSeries "Series -dt $dt -filePath $GMfile -factor $GMfatt";
pattern UniformExcitation $IDloadTag $GMdirection -accel $AccelSeries ;
set Nsteps [expr int($TmaxAnalysis/$DtAnalysis)];
set ok [analyze $Nsteps $DtAnalysis];
puts "Fatta l'analisi dinamica! End Time: [getTime]"
thx!
dinamic analysis
Moderators: silvia, selimgunay, Moderators
-
alessandro.paparo
- Posts: 22
- Joined: Sat Feb 07, 2009 1:43 am
- Location: bologna
yes. but i don't find any error. plese check it (noone in my university can help me...)
# set up
wipe;
file mkdir Data
model BasicBuilder -ndm 2 -ndf 3;
set HCol35 350;
set BCol35 350;
set HCol40 400;
set BCol40 400;
set HCol45 450;
set BCol45 450;
set HBeam 500;
set BBeam 350;
set X1 0.;
set X11 2000;
set X12 4000;
set X2 6000;
set X21 7200;
set X22 8800;
set X3 10000;
set X31 12000;
set X32 14000;
set X4 16000;
set Y1 0.;
set Y11 225;
set Y2 4500;
set Y3 7500;
set Y4 10500;
set Y5 13500;
set Y6 16500;
set Y7 19500;
set Y8 22500;
set Y9 25500;
set Y10 28500;
node 11 $X1 $Y1
node 12 $X2 $Y1
node 13 $X3 $Y1
node 14 $X4 $Y1
node 111 $X1 $Y11
node 121 $X2 $Y11
node 131 $X3 $Y11
node 141 $X4 $Y11
node 21 $X1 $Y2
node 211 $X11 $Y2
node 212 $X12 $Y2
node 22 $X2 $Y2
node 221 $X21 $Y2
node 222 $X22 $Y2
node 23 $X3 $Y2
node 231 $X31 $Y2
node 232 $X32 $Y2
node 24 $X4 $Y2
node 31 $X1 $Y3
node 311 $X11 $Y3
node 312 $X12 $Y3
node 32 $X2 $Y3
node 321 $X21 $Y3
node 322 $X22 $Y3
node 33 $X3 $Y3
node 331 $X31 $Y3
node 332 $X32 $Y3
node 34 $X4 $Y3
node 41 $X1 $Y4
node 411 $X11 $Y4
node 412 $X12 $Y4
node 42 $X2 $Y4
node 421 $X21 $Y4
node 422 $X22 $Y4
node 43 $X3 $Y4
node 431 $X31 $Y4
node 432 $X32 $Y4
node 44 $X4 $Y4
node 51 $X1 $Y5
node 511 $X11 $Y5
node 512 $X12 $Y5
node 52 $X2 $Y5
node 521 $X21 $Y5
node 522 $X22 $Y5
node 53 $X3 $Y5
node 531 $X31 $Y5
node 532 $X32 $Y5
node 54 $X4 $Y5
node 61 $X1 $Y6
node 611 $X11 $Y6
node 612 $X12 $Y6
node 62 $X2 $Y6
node 621 $X21 $Y6
node 622 $X22 $Y6
node 63 $X3 $Y6
node 631 $X31 $Y6
node 632 $X32 $Y6
node 64 $X4 $Y6
node 71 $X1 $Y7
node 711 $X11 $Y7
node 712 $X12 $Y7
node 72 $X2 $Y7
node 721 $X21 $Y7
node 722 $X22 $Y7
node 73 $X3 $Y7
node 731 $X31 $Y7
node 732 $X32 $Y7
node 74 $X4 $Y7
node 81 $X1 $Y8
node 811 $X11 $Y8
node 812 $X12 $Y8
node 82 $X2 $Y8
node 821 $X21 $Y8
node 822 $X22 $Y8
node 83 $X3 $Y8
node 831 $X31 $Y8
node 832 $X32 $Y8
node 84 $X4 $Y8
node 91 $X1 $Y9
node 911 $X11 $Y9
node 912 $X12 $Y9
node 92 $X2 $Y9
node 921 $X21 $Y9
node 922 $X22 $Y9
node 93 $X3 $Y9
node 931 $X31 $Y9
node 932 $X32 $Y9
node 94 $X4 $Y9
node 101 $X1 $Y10
node 1011 $X11 $Y10
node 1012 $X12 $Y10
node 102 $X2 $Y10
node 1021 $X21 $Y10
node 1022 $X22 $Y10
node 103 $X3 $Y10
node 1031 $X31 $Y10
node 1032 $X32 $Y10
node 104 $X4 $Y10
fix 11 1 1 1
fix 12 1 1 1
fix 13 1 1 1
fix 14 1 1 1
set MassLat 11.1
set MassCen 18.5
mass 21 $MassLat 1.e-9 0;
mass 22 $MassCen 1.e-9 0;
mass 23 $MassCen 1.e-9 0;
mass 24 $MassLat 1.e-9 0;
mass 31 $MassLat 1.e-9 0;
mass 32 $MassCen 1.e-9 0;
mass 33 $MassCen 1.e-9 0;
mass 34 $MassLat 1.e-9 0;
mass 41 $MassLat 1.e-9 0;
mass 42 $MassCen 1.e-9 0;
mass 43 $MassCen 1.e-9 0;
mass 44 $MassLat 1.e-9 0;
mass 51 $MassLat 1.e-9 0;
mass 52 $MassCen 1.e-9 0;
mass 53 $MassCen 1.e-9 0;
mass 54 $MassLat 1.e-9 0;
mass 61 $MassLat 1.e-9 0;
mass 62 $MassCen 1.e-9 0;
mass 63 $MassCen 1.e-9 0;
mass 64 $MassLat 1.e-9 0;
mass 71 $MassLat 1.e-9 0;
mass 72 $MassCen 1.e-9 0;
mass 73 $MassCen 1.e-9 0;
mass 74 $MassLat 1.e-9 0;
mass 81 $MassLat 1.e-9 0;
mass 82 $MassCen 1.e-9 0;
mass 83 $MassCen 1.e-9 0;
mass 84 $MassLat 1.e-9 0;
mass 91 $MassLat 1.e-9 0;
mass 92 $MassCen 1.e-9 0;
mass 93 $MassCen 1.e-9 0;
mass 94 $MassLat 1.e-9 0;
mass 101 $MassLat 1.e-9 0;
mass 102 $MassCen 1.e-9 0;
mass 103 $MassCen 1.e-9 0;
mass 104 $MassLat 1.e-9 0;
set IDconcU 1; # cls nn coninato
set IDconcC 2; # cls coninato
set IDreinf 3; # acciaio
uniaxialMaterial Concrete01 $IDconcU -39 -0.002 -39 -0.004; # nn confinato
uniaxialMaterial Concrete01 $IDconcC -43 -0.0022 -43 -0.0128; # confinato
uniaxialMaterial Steel01 $IDreinf 495 206000 0.005;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 11 A PUNTO 111
set ColSecTag11_111 1;
# geometria della sezione
set coverCol 30;
set numBars11_111 3;
set barArea11_111 154;
set numBarsInt11_111 1;
set barAreaInt11_111 154;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag11_111 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars11_111 $barArea11_111 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars11_111 $barArea11_111 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt11_111 $barAreaInt11_111 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt11_111 $barAreaInt11_111 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag11_111 1; # associa una tag alla trasformazione
set ColTransfType11_111 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType11_111 $ColTransfTag11_111;
# PILASTRI CENTRALI CHE COLLEGANO PUNTO 12 A PUNTO 121
set ColSecTag12_121 2; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars12_121 3; # numero di ferri per lato (simmetrici) 2 phi 18 + 1 phi 16 per lato
set barArea12_121 274; # area delle barre
set numBarsInt12_121 1; # 1 phi 20 per lato
set barAreaInt12_121 314;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag12_121 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars12_121 $barArea12_121 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars12_121 $barArea12_121 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt12_121 $barAreaInt12_121 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt12_121 $barAreaInt12_121 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag12_121 2; # associa una tag alla trasformazione
set ColTransfType12_121 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType12_121 $ColTransfTag12_121;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 111 A PUNTO 21
set ColSecTag111_21 3; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars111_21 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea111_21 380; # area delle barre
set numBarsInt111_21 1; # 1 phi 22 per lato
set barAreaInt111_21 380;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag111_21 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars111_21 $barArea111_21 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars111_21 $barArea111_21 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt111_21 $barAreaInt111_21 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt111_21 $barAreaInt111_21 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag111_21 3; # associa una tag alla trasformazione
set ColTransfType111_21 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType111_21 $ColTransfTag111_21;
# PILASTRI CENTRALI CHE COLLEGANO PUNTO 121 A PUNTO 22
set ColSecTag121_22 4; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars121_22 4; # numero di ferri per lato (simmetrici) 4 phi 30 per lato
set barArea121_22 707; # area delle barre
set numBarsInt121_22 2; # 2 phi 30 per lato
set barAreaInt121_22 707;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag121_22 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars121_22 $barArea121_22 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars121_22 $barArea121_22 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt121_22 $barAreaInt121_22 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt121_22 $barAreaInt121_22 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag121_22 4; # associa una tag alla trasformazione
set ColTransfType121_22 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType121_22 $ColTransfTag121_22;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 21 A PUNTO 31
set ColSecTag21_31 5; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars21_31 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea21_31 380; # area delle barre
set numBarsInt21_31 1; # 1 phi 22 per lato
set barAreaInt21_31 380;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag21_31 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars21_31 $barArea21_31 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars21_31 $barArea21_31 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt21_31 $barAreaInt21_31 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt21_31 $barAreaInt21_31 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag21_31 5; # associa una tag alla trasformazione
set ColTransfType21_31 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType21_31 $ColTransfTag21_31;
# PILASTRI CENTRALI CHE COLLEGANO PUNTO 22 A PUNTO 32
set ColSecTag22_32 6; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars22_32 4; # numero di ferri per lato (simmetrici) 4 phi 30 per lato
set barArea22_32 707; # area delle barre
set numBarsInt22_32 2; # 2 phi 30 per lato
set barAreaInt22_32 707;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag22_32 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars22_32 $barArea22_32 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars22_32 $barArea22_32 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt22_32 $barAreaInt22_32 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt22_32 $barAreaInt22_32 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag22_32 6; # associa una tag alla trasformazione
set ColTransfType22_32 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType22_32 $ColTransfTag22_32;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 31 A PUNTO 41
set ColSecTag31_41 7; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars31_41 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea31_41 380; # area delle barre
set numBarsInt31_41 1; # 1 phi 22 per lato
set barAreaInt31_41 380;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag31_41 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars31_41 $barArea31_41 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars31_41 $barArea31_41 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt31_41 $barAreaInt31_41 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt31_41 $barAreaInt31_41 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag31_41 7; # associa una tag alla trasformazione
set ColTransfType31_41 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType31_41 $ColTransfTag31_41;
# PILASTRI CENTRALI CHE COLLEGANO PUNTO 32 A PUNTO 42
set ColSecTag32_42 8; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars32_42 4; # numero di ferri per lato (simmetrici) 4 phi 30 per lato
set barArea32_42 707; # area delle barre
set numBarsInt32_42 2; # 2 phi 30 per lato
set barAreaInt32_42 707;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag32_42 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars32_42 $barArea32_42 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars32_42 $barArea32_42 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt32_42 $barAreaInt32_42 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt32_42 $barAreaInt32_42 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag32_42 8; # associa una tag alla trasformazione
set ColTransfType32_42 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType32_42 $ColTransfTag32_42;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 41 A PUNTO 51
set ColSecTag41_51 9; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars41_51 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea41_51 380; # area delle barre
set numBarsInt41_51 1; # 1 phi 22 per lato
set barAreaInt41_51 380;
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag41_51 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars41_51 $barArea41_51 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars41_51 $barArea41_51 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt41_51 $barAreaInt41_51 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt41_51 $barAreaInt41_51 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag41_51 9; # associa una tag alla trasformazione
set ColTransfType41_51 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType41_51 $ColTransfTag41_51;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 42 A PUNTO 52
set ColSecTag42_52 10; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars42_52 4; # numero di ferri per lato (simmetrici) 4 phi 28 per lato
set barArea42_52 615; # area delle barre
set numBarsInt42_52 2; # 2 phi 28 per lato
set barAreaInt42_52 615;
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag42_52 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars42_52 $barArea42_52 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars42_52 $barArea42_52 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt42_52 $barAreaInt42_52 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt42_52 $barAreaInt42_52 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag42_52 10; # associa una tag alla trasformazione
set ColTransfType42_52 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType42_52 $ColTransfTag42_52;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 51 A PUNTO 61
set ColSecTag51_61 11; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars51_61 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea51_61 380; # area delle barre
set numBarsInt51_61 1; # 1 phi 22 per lato
set barAreaInt51_61 380;
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag51_61 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars51_61 $barArea51_61 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars51_61 $barArea51_61 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt51_61 $barAreaInt51_61 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt51_61 $barAreaInt51_61 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag51_61 11; # associa una tag alla trasformazione
set ColTransfType51_61 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType51_61 $ColTransfTag51_61;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 52 A PUNTO 62
set ColSecTag52_62 12; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars52_62 4; # numero di ferri per lato (simmetrici) 4 phi 28 per lato
set barArea52_62 615; # area delle barre
set numBarsInt52_62 2; # 2 phi 28 per lato
set barAreaInt52_62 615;
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag52_62 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars52_62 $barArea52_62 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars52_62 $barArea52_62 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt52_62 $barAreaInt52_62 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt52_62 $barAreaInt52_62 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag52_62 12; # associa una tag alla trasformazione
set ColTransfType52_62 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType52_62 $ColTransfTag52_62;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 61 A PUNTO 71
set ColSecTag61_71 13; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars61_71 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea61_71 380; # area delle barre
set numBarsInt61_71 1; # 1 phi 22 per lato
set barAreaInt61_71 380;
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag61_71 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars61_71 $barArea61_71 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars61_71 $barArea61_71 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt61_71 $barAreaInt61_71 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt61_71 $barAreaInt61_71 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag61_71 13; # associa una tag alla trasformazione
set ColTransfType61_71 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType61_71 $ColTransfTag61_71;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 62 A PUNTO 72
set ColSecTag62_72 14; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars62_72 4; # numero di ferri per lato (simmetrici) 4 phi 28 per lato
set barArea62_72 615; # area delle barre
set numBarsInt62_72 2; # 2 phi 28 per lato
set barAreaInt62_72 615;
|-------- B --------|
#
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag62_72 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars62_72 $barArea62_72 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars62_72 $barArea62_72 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt62_72 $barAreaInt62_72 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt62_72 $barAreaInt62_72 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag62_72 14; # associa una tag alla trasformazione
set ColTransfType62_72 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType62_72 $ColTransfTag62_72;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 71 A PUNTO 81
set ColSecTag71_81 15; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars71_81 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea71_81 380; # area delle barre
set numBarsInt71_81 1; # 1 phi 22 per lato
set barAreaInt71_81 380;
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag71_81 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars71_81 $barArea71_81 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars71_81 $barArea71_81 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt71_81 $barAreaInt71_81 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt71_81 $barAreaInt71_81 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag71_81 15; # associa una tag alla trasformazione
set ColTransfType71_81 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType71_81 $ColTransfTag71_81;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 72 A PUNTO 82
set ColSecTag72_82 16; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars72_82 4; # numero di ferri per lato (simmetrici) 4 phi 26 per lato
set barArea72_82 531; # area delle barre
set numBarsInt72_82 2; # 2 phi 26 per lato
set barAreaInt72_82 531;
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag72_82 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars72_82 $barArea72_82 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars72_82 $barArea72_82 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt72_82 $barAreaInt72_82 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt72_82 $barAreaInt72_82 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag72_82 16; # associa una tag alla trasformazione
set ColTransfType72_82 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType72_82 $ColTransfTag72_82;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 81 A PUNTO 91
set ColSecTag81_91 17; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars81_91 3; # numero di ferri per lato (simmetrici) 3 phi 20 per lato
set barArea81_91 314; # area delle barre
set numBarsInt81_91 1; # 1 phi 20 per lato
set barAreaInt81_91 314;
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag81_91 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars81_91 $barArea81_91 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars81_91 $barArea81_91 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt81_91 $barAreaInt81_91 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt81_91 $barAreaInt81_91 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag81_91 17; # associa una tag alla trasformazione
set ColTransfType81_91 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType81_91 $ColTransfTag81_91;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 82 A PUNTO 92
set ColSecTag82_92 18; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars82_92 4; # numero di ferri per lato (simmetrici) 4 phi 26 per lato
set barArea82_92 531; # area delle barre
set numBarsInt82_92 2; # 2 phi 26 per lato
set barAreaInt82_92 531;
|-------- B --------|
#
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag82_92 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars82_92 $barArea82_92 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars82_92 $barArea82_92 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt82_92 $barAreaInt82_92 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt82_92 $barAreaInt82_92 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag82_92 18; # associa una tag alla trasformazione
set ColTransfType82_92 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType82_92 $ColTransfTag82_92;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 91 A PUNTO 101
set ColSecTag91_101 19; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars91_101 3; # numero di ferri per lato (simmetrici) 3 phi 20 per lato
set barArea91_101 314; # area delle barre
set numBarsInt91_101 1; # 1 phi 20 per lato
set barAreaInt91_101 314;
|-------- B --------|
#
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag91_101 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars91_101 $barArea91_101 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars91_101 $barArea91_101 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt91_101 $barAreaInt91_101 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt91_101 $barAreaInt91_101 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag91_101 19; # associa una tag alla trasformazione
set ColTransfType91_101 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType91_101 $ColTransfTag91_101;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 92 A PUNTO 102
set ColSecTag92_102 20; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars92_102 4; # numero di ferri per lato (simmetrici) 4 phi 24 per lato
set barArea92_102 452; # area delle barre
set numBarsInt92_102 2; # 2 phi 24 per lato
set barAreaInt92_102 452;
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag92_102 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars92_102 $barArea92_102 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars92_102 $barArea92_102 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt92_102 $barAreaInt92_102 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt92_102 $barAreaInt92_102 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag92_102 20; # associa una tag alla trasformazione
set ColTransfType92_102 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType92_102 $ColTransfTag92_102;
# TRAVI PRIMO PIANO
set BeamSecTag21_22 21; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeam21_22 5; # numero di ferri per lato (simmetrici) 2 phi 16 + 3 phi 18 per lato
set barAreaBeam21_22 233; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag21_22 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeam21_22 $barAreaBeam21_22 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeam21_22 $barAreaBeam21_22 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag21_22 21; # associa una tag alla trasformazione
set BeamTransfType21_22 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType21_22 $BeamTransfTag21_22;
# TRAVI SECONDO PIANO
set BeamSecTag31_32 22; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeamTop31_32 4; # numero di ferri per lato 4 phi 18
set barAreaBeamTop31_32 254; # area delle barre
set numBarsBeamBot31_32 5; # numero di ferri per lato 5 phi 16
set barAreaBeamBot31_32 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag31_32 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeamTop31_32 $barAreaBeamBot31_32 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # bot layer reinfocement
layer straight $IDreinf $numBarsBeamBot31_32 $barAreaBeamTop31_32 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # top layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag31_32 22; # associa una tag alla trasformazione
set BeamTransfType31_32 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType31_32 $BeamTransfTag31_32;
# TRAVI TERZO PIANO
set BeamSecTag41_42 23; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeam41_42 4; # numero di ferri per lato (simmetrici) 4 phi 18
set barAreaBeam41_42 254; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag41_42 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeam41_42 $barAreaBeam41_42 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeam41_42 $barAreaBeam41_42 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag41_42 23; # associa una tag alla trasformazione
set BeamTransfType41_42 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType41_42 $BeamTransfTag41_42;
# TRAVI QUARTO PIANO
set BeamSecTag51_52 24; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeam51_52 4; # numero di ferri per lato (simmetrici) 2 phi 18 + 2 phi 16
set barAreaBeam51_52 228; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag51_52 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeam51_52 $barAreaBeam51_52 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeam51_52 $barAreaBeam51_52 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag51_52 24; # associa una tag alla trasformazione
set BeamTransfType51_52 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType51_52 $BeamTransfTag51_52;
# TRAvI QUINTO PIANO
set BeamSecTag61_62 25; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeam61_62 4; # numero di ferri per lato (simmetrici) 4 phi 16
set barAreaBeam61_62 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag61_62 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeam61_62 $barAreaBeam61_62 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeam61_62 $barAreaBeam61_62 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag61_62 25; # associa una tag alla trasformazione
set BeamTransfType61_62 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType61_62 $BeamTransfTag61_62;
# TRAVI SESTO PIANO
set BeamSecTag71_72 26; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeam71_72 4; # numero di ferri per lato (simmetrici) 4 phi 16
set barAreaBeam71_72 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag71_72 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeam71_72 $barAreaBeam71_72 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeam71_72 $barAreaBeam71_72 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag71_72 26; # associa una tag alla trasformazione
set BeamTransfType71_72 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType71_72 $BeamTransfTag71_72;
# TRAVI SETTIMO PIANO
set BeamSecTag81_82 27; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeamTop81_82 4; # numero di ferri per lato 2 phi 16 + 2 phi 14
set barAreaBeamTop81_82 177; # area delle barre
set numBarsBeamBot81_82 3; # numero di ferri per lato 3 phi 16
set barAreaBeamBot81_82 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag81_82 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeamTop81_82 $barAreaBeamBot81_82 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # bot layer reinfocement
layer straight $IDreinf $numBarsBeamBot81_82 $barAreaBeamTop81_82 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # top layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag81_82 27; # associa una tag alla trasformazione
set BeamTransfType81_82 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType81_82 $BeamTransfTag81_82;
# TRAVI OTTAVO PIANO
set BeamSecTag91_92 28; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeamTop91_92 4; # numero di ferri per lato 2 phi 16 + 2 phi 14
set barAreaBeamTop91_92 177; # area delle barre
set numBarsBeamBot91_92 3; # numero di ferri per lato 3 phi 16
set barAreaBeamBot91_92 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag91_92 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeamTop91_92 $barAreaBeamBot91_92 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # bot layer reinfocement
layer straight $IDreinf $numBarsBeamBot91_92 $barAreaBeamTop91_92 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # top layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag91_92 28; # associa una tag alla trasformazione
set BeamTransfType91_92 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType91_92 $BeamTransfTag91_92;
# TRAVI NONO PIANO
set BeamSecTag101_102 29; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeamTop101_102 4; # numero di ferri per lato 2 phi 16 + 2 phi 14
set barAreaBeamTop101_102 177; # area delle barre
set numBarsBeamBot101_102 3; # numero di ferri per lato 3 phi 16
set barAreaBeamBot101_102 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag101_102 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeamTop101_102 $barAreaBeamBot101_102 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # bot layer reinfocement
layer straight $IDreinf $numBarsBeamBot101_102 $barAreaBeamTop101_102 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # top layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag101_102 29; # associa una tag alla trasformazione
set BeamTransfType101_102 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType101_102 $BeamTransfTag101_102;
# TRAVI IN MEZZERIA
set BeamSecTagMez 30; # do 1 tag alla sezione
set numBarsBeamMezTop 1; # numero di ferri per lato sopra (pochissimi
set barAreaBeamMezTop 1;
set numBarsBeamMezBot 6; # numero di ferri per lato sotto 6 phi 16 per lato
set barAreaBeamMezBot 201;
# set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
# set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
# set coreBeamY [expr $coverBeamY-$coverBeam]
# set coreBeamZ [expr $coverBeamZ-$coverBeam]
# set nfYBeam 44; # num fibre nella direzione y
# set nfZBeam 1;
# set nfcoverY 3;
# set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTagMez {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeamMezTop $barAreaBeamMezTop $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeamMezBot $barAreaBeamMezBot -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTagMez 30; # associa una tag alla trasformazione
set BeamTransfTypeMez Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfTypeMez $BeamTransfTagMez;
# connessione elementi
set numIntgrPtsBeam 3;
set numIntgrPtsCol 5;
set numIntgrPtsColBase 4;
#colonne
element nonlinearBeamColumn 11111 11 111 $numIntgrPtsColBase $ColSecTag11_111 $ColTransfTag11_111; #da terra a liv 1
element nonlinearBeamColumn 14141 14 141 $numIntgrPtsColBase $ColSecTag11_111 $ColTransfTag11_111;
element nonlinearBeamColumn 12121 12 121 $numIntgrPtsColBase $ColSecTag12_121 $ColTransfTag12_121;
element nonlinearBeamColumn 13131 13 131 $numIntgrPtsColBase $ColSecTag12_121 $ColTransfTag12_121;
element nonlinearBeamColumn 11121 111 21 $numIntgrPtsColBase $ColSecTag111_21 $ColTransfTag111_21;
element nonlinearBeamColumn 14124 141 24 $numIntgrPtsColBase $ColSecTag111_21 $ColTransfTag111_21;
element nonlinearBeamColumn 12122 121 22 $numIntgrPtsColBase $ColSecTag121_22 $ColTransfTag121_22;
element nonlinearBeamColumn 13123 131 23 $numIntgrPtsColBase $ColSecTag121_22 $ColTransfTag121_22;
element nonlinearBeamColumn 2131 21 31 $numIntgrPtsCol $ColSecTag21_31 $ColTransfTag21_31; #livello 1 2
element nonlinearBeamColumn 2434 24 34 $numIntgrPtsCol $ColSecTag21_31 $ColTransfTag21_31;
element nonlinearBeamColumn 2232 22 32 $numIntgrPtsCol $ColSecTag22_32 $ColTransfTag22_32;
element nonlinearBeamColumn 2333 23 33 $numIntgrPtsCol $ColSecTag22_32 $ColTransfTag22_32;
element nonlinearBeamColumn 3141 31 41 $numIntgrPtsCol $ColSecTag31_41 $ColTransfTag31_41; #livello 2 3
element nonlinearBeamColumn 3444 34 44 $numIntgrPtsCol $ColSecTag31_41 $ColTransfTag31_41;
element nonlinearBeamColumn 3242 32 42 $numIntgrPtsCol $ColSecTag32_42 $ColTransfTag32_42;
element nonlinearBeamColumn 3343 33 43 $numIntgrPtsCol $ColSecTag32_42 $ColTransfTag32_42;
element nonlinearBeamColumn 4151 41 51 $numIntgrPtsCol $ColSecTag41_51 $ColTransfTag41_51; #livello 3 4
element nonlinearBeamColumn 4454 44 54 $numIntgrPtsCol $ColSecTag41_51 $ColTransfTag41_51;
element nonlinearBeamColumn 4252 42 52 $numIntgrPtsCol $ColSecTag42_52 $ColTransfTag42_52;
element nonlinearBeamColumn 4353 43 53 $numIntgrPtsCol $ColSecTag42_52 $ColTransfTag42_52;
element nonlinearBeamColumn 5161 51 61 $numIntgrPtsCol $ColSecTag51_61 $ColTransfTag51_61; #livello 4 5
element nonlinearBeamColumn 5464 54 64 $numIntgrPtsCol $ColSecTag51_61 $ColTransfTag51_61;
element nonlinearBeamColumn 5262 52 62 $numIntgrPtsCol $ColSecTag52_62 $ColTransfTag52_62;
element nonlinearBeamColumn 5363 53 63 $numIntgrPtsCol $ColSecTag52_62 $ColTransfTag52_62;
element nonlinearBeamColumn 6171 61 71 $numIntgrPtsCol $ColSecTag61_71 $ColTransfTag61_71; #livello 5 6
element nonlinearBeamColumn 6474 64 74 $numIntgrPtsCol $ColSecTag61_71 $ColTransfTag61_71;
element nonlinearBeamColumn 6272 62 72 $numIntgrPtsCol $ColSecTag62_72 $ColTransfTag62_72;
element nonlinearBeamColumn 6373 63 73 $numIntgrPtsCol $ColSecTag62_72 $ColTransfTag62_72;
element nonlinearBeamColumn 7181 71 81 $numIntgrPtsCol $ColSecTag71_81 $ColTransfTag71_81; #livello 6 7
element nonlinearBeamColumn 7484 74 84 $numIntgrPtsCol $ColSecTag71_81 $ColTransfTag71_81;
element nonlinearBeamColumn 7282 72 82 $numIntgrPtsCol $ColSecTag72_82 $ColTransfTag72_82;
element nonlinearBeamColumn 7383 73 83 $numIntgrPtsCol $ColSecTag72_82 $ColTransfTag72_82;
element nonlinearBeamColumn 8191 81 91 $numIntgrPtsCol $ColSecTag81_91 $ColTransfTag81_91; #livello 7 8
element nonlinearBeamColumn 8494 84 94 $numIntgrPtsCol $ColSecTag81_91 $ColTransfTag81_91;
element nonlinearBeamColumn 8292 82 92 $numIntgrPtsCol $ColSecTag82_92 $ColTransfTag82_92;
element nonlinearBeamColumn 8393 83 93 $numIntgrPtsCol $ColSecTag82_92 $ColTransfTag82_92;
element nonlinearBeamColumn 91101 91 101 $numIntgrPtsCol $ColSecTag91_101 $ColTransfTag91_101;
# set up
wipe;
file mkdir Data
model BasicBuilder -ndm 2 -ndf 3;
set HCol35 350;
set BCol35 350;
set HCol40 400;
set BCol40 400;
set HCol45 450;
set BCol45 450;
set HBeam 500;
set BBeam 350;
set X1 0.;
set X11 2000;
set X12 4000;
set X2 6000;
set X21 7200;
set X22 8800;
set X3 10000;
set X31 12000;
set X32 14000;
set X4 16000;
set Y1 0.;
set Y11 225;
set Y2 4500;
set Y3 7500;
set Y4 10500;
set Y5 13500;
set Y6 16500;
set Y7 19500;
set Y8 22500;
set Y9 25500;
set Y10 28500;
node 11 $X1 $Y1
node 12 $X2 $Y1
node 13 $X3 $Y1
node 14 $X4 $Y1
node 111 $X1 $Y11
node 121 $X2 $Y11
node 131 $X3 $Y11
node 141 $X4 $Y11
node 21 $X1 $Y2
node 211 $X11 $Y2
node 212 $X12 $Y2
node 22 $X2 $Y2
node 221 $X21 $Y2
node 222 $X22 $Y2
node 23 $X3 $Y2
node 231 $X31 $Y2
node 232 $X32 $Y2
node 24 $X4 $Y2
node 31 $X1 $Y3
node 311 $X11 $Y3
node 312 $X12 $Y3
node 32 $X2 $Y3
node 321 $X21 $Y3
node 322 $X22 $Y3
node 33 $X3 $Y3
node 331 $X31 $Y3
node 332 $X32 $Y3
node 34 $X4 $Y3
node 41 $X1 $Y4
node 411 $X11 $Y4
node 412 $X12 $Y4
node 42 $X2 $Y4
node 421 $X21 $Y4
node 422 $X22 $Y4
node 43 $X3 $Y4
node 431 $X31 $Y4
node 432 $X32 $Y4
node 44 $X4 $Y4
node 51 $X1 $Y5
node 511 $X11 $Y5
node 512 $X12 $Y5
node 52 $X2 $Y5
node 521 $X21 $Y5
node 522 $X22 $Y5
node 53 $X3 $Y5
node 531 $X31 $Y5
node 532 $X32 $Y5
node 54 $X4 $Y5
node 61 $X1 $Y6
node 611 $X11 $Y6
node 612 $X12 $Y6
node 62 $X2 $Y6
node 621 $X21 $Y6
node 622 $X22 $Y6
node 63 $X3 $Y6
node 631 $X31 $Y6
node 632 $X32 $Y6
node 64 $X4 $Y6
node 71 $X1 $Y7
node 711 $X11 $Y7
node 712 $X12 $Y7
node 72 $X2 $Y7
node 721 $X21 $Y7
node 722 $X22 $Y7
node 73 $X3 $Y7
node 731 $X31 $Y7
node 732 $X32 $Y7
node 74 $X4 $Y7
node 81 $X1 $Y8
node 811 $X11 $Y8
node 812 $X12 $Y8
node 82 $X2 $Y8
node 821 $X21 $Y8
node 822 $X22 $Y8
node 83 $X3 $Y8
node 831 $X31 $Y8
node 832 $X32 $Y8
node 84 $X4 $Y8
node 91 $X1 $Y9
node 911 $X11 $Y9
node 912 $X12 $Y9
node 92 $X2 $Y9
node 921 $X21 $Y9
node 922 $X22 $Y9
node 93 $X3 $Y9
node 931 $X31 $Y9
node 932 $X32 $Y9
node 94 $X4 $Y9
node 101 $X1 $Y10
node 1011 $X11 $Y10
node 1012 $X12 $Y10
node 102 $X2 $Y10
node 1021 $X21 $Y10
node 1022 $X22 $Y10
node 103 $X3 $Y10
node 1031 $X31 $Y10
node 1032 $X32 $Y10
node 104 $X4 $Y10
fix 11 1 1 1
fix 12 1 1 1
fix 13 1 1 1
fix 14 1 1 1
set MassLat 11.1
set MassCen 18.5
mass 21 $MassLat 1.e-9 0;
mass 22 $MassCen 1.e-9 0;
mass 23 $MassCen 1.e-9 0;
mass 24 $MassLat 1.e-9 0;
mass 31 $MassLat 1.e-9 0;
mass 32 $MassCen 1.e-9 0;
mass 33 $MassCen 1.e-9 0;
mass 34 $MassLat 1.e-9 0;
mass 41 $MassLat 1.e-9 0;
mass 42 $MassCen 1.e-9 0;
mass 43 $MassCen 1.e-9 0;
mass 44 $MassLat 1.e-9 0;
mass 51 $MassLat 1.e-9 0;
mass 52 $MassCen 1.e-9 0;
mass 53 $MassCen 1.e-9 0;
mass 54 $MassLat 1.e-9 0;
mass 61 $MassLat 1.e-9 0;
mass 62 $MassCen 1.e-9 0;
mass 63 $MassCen 1.e-9 0;
mass 64 $MassLat 1.e-9 0;
mass 71 $MassLat 1.e-9 0;
mass 72 $MassCen 1.e-9 0;
mass 73 $MassCen 1.e-9 0;
mass 74 $MassLat 1.e-9 0;
mass 81 $MassLat 1.e-9 0;
mass 82 $MassCen 1.e-9 0;
mass 83 $MassCen 1.e-9 0;
mass 84 $MassLat 1.e-9 0;
mass 91 $MassLat 1.e-9 0;
mass 92 $MassCen 1.e-9 0;
mass 93 $MassCen 1.e-9 0;
mass 94 $MassLat 1.e-9 0;
mass 101 $MassLat 1.e-9 0;
mass 102 $MassCen 1.e-9 0;
mass 103 $MassCen 1.e-9 0;
mass 104 $MassLat 1.e-9 0;
set IDconcU 1; # cls nn coninato
set IDconcC 2; # cls coninato
set IDreinf 3; # acciaio
uniaxialMaterial Concrete01 $IDconcU -39 -0.002 -39 -0.004; # nn confinato
uniaxialMaterial Concrete01 $IDconcC -43 -0.0022 -43 -0.0128; # confinato
uniaxialMaterial Steel01 $IDreinf 495 206000 0.005;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 11 A PUNTO 111
set ColSecTag11_111 1;
# geometria della sezione
set coverCol 30;
set numBars11_111 3;
set barArea11_111 154;
set numBarsInt11_111 1;
set barAreaInt11_111 154;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag11_111 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars11_111 $barArea11_111 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars11_111 $barArea11_111 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt11_111 $barAreaInt11_111 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt11_111 $barAreaInt11_111 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag11_111 1; # associa una tag alla trasformazione
set ColTransfType11_111 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType11_111 $ColTransfTag11_111;
# PILASTRI CENTRALI CHE COLLEGANO PUNTO 12 A PUNTO 121
set ColSecTag12_121 2; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars12_121 3; # numero di ferri per lato (simmetrici) 2 phi 18 + 1 phi 16 per lato
set barArea12_121 274; # area delle barre
set numBarsInt12_121 1; # 1 phi 20 per lato
set barAreaInt12_121 314;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag12_121 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars12_121 $barArea12_121 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars12_121 $barArea12_121 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt12_121 $barAreaInt12_121 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt12_121 $barAreaInt12_121 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag12_121 2; # associa una tag alla trasformazione
set ColTransfType12_121 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType12_121 $ColTransfTag12_121;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 111 A PUNTO 21
set ColSecTag111_21 3; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars111_21 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea111_21 380; # area delle barre
set numBarsInt111_21 1; # 1 phi 22 per lato
set barAreaInt111_21 380;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag111_21 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars111_21 $barArea111_21 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars111_21 $barArea111_21 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt111_21 $barAreaInt111_21 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt111_21 $barAreaInt111_21 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag111_21 3; # associa una tag alla trasformazione
set ColTransfType111_21 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType111_21 $ColTransfTag111_21;
# PILASTRI CENTRALI CHE COLLEGANO PUNTO 121 A PUNTO 22
set ColSecTag121_22 4; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars121_22 4; # numero di ferri per lato (simmetrici) 4 phi 30 per lato
set barArea121_22 707; # area delle barre
set numBarsInt121_22 2; # 2 phi 30 per lato
set barAreaInt121_22 707;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag121_22 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars121_22 $barArea121_22 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars121_22 $barArea121_22 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt121_22 $barAreaInt121_22 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt121_22 $barAreaInt121_22 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag121_22 4; # associa una tag alla trasformazione
set ColTransfType121_22 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType121_22 $ColTransfTag121_22;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 21 A PUNTO 31
set ColSecTag21_31 5; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars21_31 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea21_31 380; # area delle barre
set numBarsInt21_31 1; # 1 phi 22 per lato
set barAreaInt21_31 380;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag21_31 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars21_31 $barArea21_31 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars21_31 $barArea21_31 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt21_31 $barAreaInt21_31 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt21_31 $barAreaInt21_31 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag21_31 5; # associa una tag alla trasformazione
set ColTransfType21_31 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType21_31 $ColTransfTag21_31;
# PILASTRI CENTRALI CHE COLLEGANO PUNTO 22 A PUNTO 32
set ColSecTag22_32 6; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars22_32 4; # numero di ferri per lato (simmetrici) 4 phi 30 per lato
set barArea22_32 707; # area delle barre
set numBarsInt22_32 2; # 2 phi 30 per lato
set barAreaInt22_32 707;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag22_32 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars22_32 $barArea22_32 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars22_32 $barArea22_32 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt22_32 $barAreaInt22_32 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt22_32 $barAreaInt22_32 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag22_32 6; # associa una tag alla trasformazione
set ColTransfType22_32 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType22_32 $ColTransfTag22_32;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 31 A PUNTO 41
set ColSecTag31_41 7; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars31_41 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea31_41 380; # area delle barre
set numBarsInt31_41 1; # 1 phi 22 per lato
set barAreaInt31_41 380;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag31_41 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars31_41 $barArea31_41 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars31_41 $barArea31_41 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt31_41 $barAreaInt31_41 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt31_41 $barAreaInt31_41 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag31_41 7; # associa una tag alla trasformazione
set ColTransfType31_41 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType31_41 $ColTransfTag31_41;
# PILASTRI CENTRALI CHE COLLEGANO PUNTO 32 A PUNTO 42
set ColSecTag32_42 8; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars32_42 4; # numero di ferri per lato (simmetrici) 4 phi 30 per lato
set barArea32_42 707; # area delle barre
set numBarsInt32_42 2; # 2 phi 30 per lato
set barAreaInt32_42 707;
# RC section:
set cover45Y [expr $HCol45/2.0];
set cover45Z [expr $BCol45/2.0];
set core45Y [expr $cover45Y-$coverCol]
set core45Z [expr $cover45Z-$coverCol]
set nf45Y 39;
set nf45Z 1;
set nfcover45Y 3;
set nfcover45Z 1;
section fiberSec $ColSecTag32_42 {;
patch rect $IDconcC $nf45Y $nf45Z $core45Y $core45Z -$core45Y -$core45Z; # cls confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $cover45Z -$cover45Y $core45Z
# cls nn confinato
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y -$core45Z -$cover45Y -$cover45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z $cover45Y $core45Z $core45Y -$core45Z
patch rect $IDconcU $nfcover45Y $nfcover45Z -$core45Y $core45Z -$cover45Y -$core45Z
layer straight $IDreinf $numBars32_42 $barArea32_42 -$core45Y $core45Z -$core45Y -$core45Z; # top layer reinfocement
layer straight $IDreinf $numBars32_42 $barArea32_42 $core45Y $core45Z $core45Y -$core45Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt32_42 $barAreaInt32_42 $core45Y $core45Z -$core45Y $core45Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt32_42 $barAreaInt32_42 $core45Y -$core45Z -$core45Y -$core45Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag32_42 8; # associa una tag alla trasformazione
set ColTransfType32_42 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType32_42 $ColTransfTag32_42;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 41 A PUNTO 51
set ColSecTag41_51 9; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars41_51 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea41_51 380; # area delle barre
set numBarsInt41_51 1; # 1 phi 22 per lato
set barAreaInt41_51 380;
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag41_51 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars41_51 $barArea41_51 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars41_51 $barArea41_51 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt41_51 $barAreaInt41_51 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt41_51 $barAreaInt41_51 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag41_51 9; # associa una tag alla trasformazione
set ColTransfType41_51 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType41_51 $ColTransfTag41_51;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 42 A PUNTO 52
set ColSecTag42_52 10; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars42_52 4; # numero di ferri per lato (simmetrici) 4 phi 28 per lato
set barArea42_52 615; # area delle barre
set numBarsInt42_52 2; # 2 phi 28 per lato
set barAreaInt42_52 615;
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag42_52 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars42_52 $barArea42_52 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars42_52 $barArea42_52 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt42_52 $barAreaInt42_52 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt42_52 $barAreaInt42_52 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag42_52 10; # associa una tag alla trasformazione
set ColTransfType42_52 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType42_52 $ColTransfTag42_52;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 51 A PUNTO 61
set ColSecTag51_61 11; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars51_61 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea51_61 380; # area delle barre
set numBarsInt51_61 1; # 1 phi 22 per lato
set barAreaInt51_61 380;
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag51_61 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars51_61 $barArea51_61 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars51_61 $barArea51_61 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt51_61 $barAreaInt51_61 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt51_61 $barAreaInt51_61 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag51_61 11; # associa una tag alla trasformazione
set ColTransfType51_61 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType51_61 $ColTransfTag51_61;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 52 A PUNTO 62
set ColSecTag52_62 12; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars52_62 4; # numero di ferri per lato (simmetrici) 4 phi 28 per lato
set barArea52_62 615; # area delle barre
set numBarsInt52_62 2; # 2 phi 28 per lato
set barAreaInt52_62 615;
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag52_62 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars52_62 $barArea52_62 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars52_62 $barArea52_62 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt52_62 $barAreaInt52_62 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt52_62 $barAreaInt52_62 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag52_62 12; # associa una tag alla trasformazione
set ColTransfType52_62 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType52_62 $ColTransfTag52_62;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 61 A PUNTO 71
set ColSecTag61_71 13; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars61_71 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea61_71 380; # area delle barre
set numBarsInt61_71 1; # 1 phi 22 per lato
set barAreaInt61_71 380;
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag61_71 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars61_71 $barArea61_71 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars61_71 $barArea61_71 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt61_71 $barAreaInt61_71 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt61_71 $barAreaInt61_71 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag61_71 13; # associa una tag alla trasformazione
set ColTransfType61_71 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType61_71 $ColTransfTag61_71;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 62 A PUNTO 72
set ColSecTag62_72 14; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars62_72 4; # numero di ferri per lato (simmetrici) 4 phi 28 per lato
set barArea62_72 615; # area delle barre
set numBarsInt62_72 2; # 2 phi 28 per lato
set barAreaInt62_72 615;
|-------- B --------|
#
# RC section:
set cover40Y [expr $HCol40/2.0];
set cover40Z [expr $BCol40/2.0];
set core40Y [expr $cover40Y-$coverCol]
set core40Z [expr $cover40Z-$coverCol]
set nf40Y 34;
set nf40Z 1;
set nfcover40Y 3;
set nfcover40Z 1;
section fiberSec $ColSecTag62_72 {;
patch rect $IDconcC $nf40Y $nf40Z $core40Y $core40Z -$core40Y -$core40Z; # cls confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $cover40Z -$cover40Y $core40Z
# cls nn confinato
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y -$core40Z -$cover40Y -$cover40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z $cover40Y $core40Z $core40Y -$core40Z
patch rect $IDconcU $nfcover40Y $nfcover40Z -$core40Y $core40Z -$cover40Y -$core40Z
layer straight $IDreinf $numBars62_72 $barArea62_72 -$core40Y $core40Z -$core40Y -$core40Z; # top layer reinfocement
layer straight $IDreinf $numBars62_72 $barArea62_72 $core40Y $core40Z $core40Y -$core40Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt62_72 $barAreaInt62_72 $core40Y $core40Z -$core40Y $core40Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt62_72 $barAreaInt62_72 $core40Y -$core40Z -$core40Y -$core40Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag62_72 14; # associa una tag alla trasformazione
set ColTransfType62_72 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType62_72 $ColTransfTag62_72;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 71 A PUNTO 81
set ColSecTag71_81 15; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars71_81 3; # numero di ferri per lato (simmetrici) 3 phi 22 per lato
set barArea71_81 380; # area delle barre
set numBarsInt71_81 1; # 1 phi 22 per lato
set barAreaInt71_81 380;
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag71_81 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars71_81 $barArea71_81 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars71_81 $barArea71_81 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt71_81 $barAreaInt71_81 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt71_81 $barAreaInt71_81 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag71_81 15; # associa una tag alla trasformazione
set ColTransfType71_81 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType71_81 $ColTransfTag71_81;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 72 A PUNTO 82
set ColSecTag72_82 16; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars72_82 4; # numero di ferri per lato (simmetrici) 4 phi 26 per lato
set barArea72_82 531; # area delle barre
set numBarsInt72_82 2; # 2 phi 26 per lato
set barAreaInt72_82 531;
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag72_82 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars72_82 $barArea72_82 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars72_82 $barArea72_82 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt72_82 $barAreaInt72_82 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt72_82 $barAreaInt72_82 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag72_82 16; # associa una tag alla trasformazione
set ColTransfType72_82 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType72_82 $ColTransfTag72_82;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 81 A PUNTO 91
set ColSecTag81_91 17; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars81_91 3; # numero di ferri per lato (simmetrici) 3 phi 20 per lato
set barArea81_91 314; # area delle barre
set numBarsInt81_91 1; # 1 phi 20 per lato
set barAreaInt81_91 314;
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag81_91 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars81_91 $barArea81_91 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars81_91 $barArea81_91 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt81_91 $barAreaInt81_91 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt81_91 $barAreaInt81_91 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag81_91 17; # associa una tag alla trasformazione
set ColTransfType81_91 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType81_91 $ColTransfTag81_91;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 82 A PUNTO 92
set ColSecTag82_92 18; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars82_92 4; # numero di ferri per lato (simmetrici) 4 phi 26 per lato
set barArea82_92 531; # area delle barre
set numBarsInt82_92 2; # 2 phi 26 per lato
set barAreaInt82_92 531;
|-------- B --------|
#
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag82_92 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars82_92 $barArea82_92 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars82_92 $barArea82_92 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt82_92 $barAreaInt82_92 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt82_92 $barAreaInt82_92 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag82_92 18; # associa una tag alla trasformazione
set ColTransfType82_92 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType82_92 $ColTransfTag82_92;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 91 A PUNTO 101
set ColSecTag91_101 19; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars91_101 3; # numero di ferri per lato (simmetrici) 3 phi 20 per lato
set barArea91_101 314; # area delle barre
set numBarsInt91_101 1; # 1 phi 20 per lato
set barAreaInt91_101 314;
|-------- B --------|
#
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag91_101 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars91_101 $barArea91_101 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars91_101 $barArea91_101 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt91_101 $barAreaInt91_101 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt91_101 $barAreaInt91_101 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag91_101 19; # associa una tag alla trasformazione
set ColTransfType91_101 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType91_101 $ColTransfTag91_101;
# PILASTRI LATERALI CHE COLLEGANO PUNTO 92 A PUNTO 102
set ColSecTag92_102 20; # do 1 tag alla sezione
# geometria della sezione
set coverCol 30; # copriferro
set numBars92_102 4; # numero di ferri per lato (simmetrici) 4 phi 24 per lato
set barArea92_102 452; # area delle barre
set numBarsInt92_102 2; # 2 phi 24 per lato
set barAreaInt92_102 452;
# RC section:
set cover35Y [expr $HCol35/2.0];
set cover35Z [expr $BCol35/2.0];
set core35Y [expr $cover35Y-$coverCol]
set core35Z [expr $cover35Z-$coverCol]
set nf35Y 29;
set nf35Z 1;
set nfcover35Y 3;
set nfcover35Z 1;
section fiberSec $ColSecTag92_102 {;
patch rect $IDconcC $nf35Y $nf35Z $core35Y $core35Z -$core35Y -$core35Z; # cls confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $cover35Z -$cover35Y $core35Z
# cls nn confinato
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y -$core35Z -$cover35Y -$cover35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z $cover35Y $core35Z $core35Y -$core35Z
patch rect $IDconcU $nfcover35Y $nfcover35Z -$core35Y $core35Z -$cover35Y -$core35Z
layer straight $IDreinf $numBars92_102 $barArea92_102 -$core35Y $core35Z -$core35Y -$core35Z; # top layer reinfocement
layer straight $IDreinf $numBars92_102 $barArea92_102 $core35Y $core35Z $core35Y -$core35Z; # bottom layer reinforcement
layer straight $IDreinf $numBarsInt92_102 $barAreaInt92_102 $core35Y $core35Z -$core35Y $core35Z; # ferri laterali +z
layer straight $IDreinf $numBarsInt92_102 $barAreaInt92_102 $core35Y -$core35Z -$core35Y -$core35Z; # ferri laterali -z
};
#trasformazione per passare al sistema globale
set ColTransfTag92_102 20; # associa una tag alla trasformazione
set ColTransfType92_102 Linear ; # options, Linear PDelta Corotational
geomTransf $ColTransfType92_102 $ColTransfTag92_102;
# TRAVI PRIMO PIANO
set BeamSecTag21_22 21; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeam21_22 5; # numero di ferri per lato (simmetrici) 2 phi 16 + 3 phi 18 per lato
set barAreaBeam21_22 233; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag21_22 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeam21_22 $barAreaBeam21_22 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeam21_22 $barAreaBeam21_22 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag21_22 21; # associa una tag alla trasformazione
set BeamTransfType21_22 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType21_22 $BeamTransfTag21_22;
# TRAVI SECONDO PIANO
set BeamSecTag31_32 22; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeamTop31_32 4; # numero di ferri per lato 4 phi 18
set barAreaBeamTop31_32 254; # area delle barre
set numBarsBeamBot31_32 5; # numero di ferri per lato 5 phi 16
set barAreaBeamBot31_32 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag31_32 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeamTop31_32 $barAreaBeamBot31_32 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # bot layer reinfocement
layer straight $IDreinf $numBarsBeamBot31_32 $barAreaBeamTop31_32 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # top layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag31_32 22; # associa una tag alla trasformazione
set BeamTransfType31_32 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType31_32 $BeamTransfTag31_32;
# TRAVI TERZO PIANO
set BeamSecTag41_42 23; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeam41_42 4; # numero di ferri per lato (simmetrici) 4 phi 18
set barAreaBeam41_42 254; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag41_42 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeam41_42 $barAreaBeam41_42 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeam41_42 $barAreaBeam41_42 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag41_42 23; # associa una tag alla trasformazione
set BeamTransfType41_42 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType41_42 $BeamTransfTag41_42;
# TRAVI QUARTO PIANO
set BeamSecTag51_52 24; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeam51_52 4; # numero di ferri per lato (simmetrici) 2 phi 18 + 2 phi 16
set barAreaBeam51_52 228; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag51_52 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeam51_52 $barAreaBeam51_52 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeam51_52 $barAreaBeam51_52 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag51_52 24; # associa una tag alla trasformazione
set BeamTransfType51_52 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType51_52 $BeamTransfTag51_52;
# TRAvI QUINTO PIANO
set BeamSecTag61_62 25; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeam61_62 4; # numero di ferri per lato (simmetrici) 4 phi 16
set barAreaBeam61_62 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag61_62 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeam61_62 $barAreaBeam61_62 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeam61_62 $barAreaBeam61_62 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag61_62 25; # associa una tag alla trasformazione
set BeamTransfType61_62 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType61_62 $BeamTransfTag61_62;
# TRAVI SESTO PIANO
set BeamSecTag71_72 26; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeam71_72 4; # numero di ferri per lato (simmetrici) 4 phi 16
set barAreaBeam71_72 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag71_72 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeam71_72 $barAreaBeam71_72 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeam71_72 $barAreaBeam71_72 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag71_72 26; # associa una tag alla trasformazione
set BeamTransfType71_72 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType71_72 $BeamTransfTag71_72;
# TRAVI SETTIMO PIANO
set BeamSecTag81_82 27; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeamTop81_82 4; # numero di ferri per lato 2 phi 16 + 2 phi 14
set barAreaBeamTop81_82 177; # area delle barre
set numBarsBeamBot81_82 3; # numero di ferri per lato 3 phi 16
set barAreaBeamBot81_82 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag81_82 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeamTop81_82 $barAreaBeamBot81_82 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # bot layer reinfocement
layer straight $IDreinf $numBarsBeamBot81_82 $barAreaBeamTop81_82 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # top layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag81_82 27; # associa una tag alla trasformazione
set BeamTransfType81_82 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType81_82 $BeamTransfTag81_82;
# TRAVI OTTAVO PIANO
set BeamSecTag91_92 28; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeamTop91_92 4; # numero di ferri per lato 2 phi 16 + 2 phi 14
set barAreaBeamTop91_92 177; # area delle barre
set numBarsBeamBot91_92 3; # numero di ferri per lato 3 phi 16
set barAreaBeamBot91_92 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag91_92 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeamTop91_92 $barAreaBeamBot91_92 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # bot layer reinfocement
layer straight $IDreinf $numBarsBeamBot91_92 $barAreaBeamTop91_92 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # top layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag91_92 28; # associa una tag alla trasformazione
set BeamTransfType91_92 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType91_92 $BeamTransfTag91_92;
# TRAVI NONO PIANO
set BeamSecTag101_102 29; # do 1 tag alla sezione
set coverBeam 30; # copriferro
set numBarsBeamTop101_102 4; # numero di ferri per lato 2 phi 16 + 2 phi 14
set barAreaBeamTop101_102 177; # area delle barre
set numBarsBeamBot101_102 3; # numero di ferri per lato 3 phi 16
set barAreaBeamBot101_102 201; # area delle barre
# RC section:
set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
set coreBeamY [expr $coverBeamY-$coverBeam]
set coreBeamZ [expr $coverBeamZ-$coverBeam]
set nfYBeam 44; # num fibre nella direzione y
set nfZBeam 1;
set nfcoverY 3;
set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTag101_102 {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeamTop101_102 $barAreaBeamBot101_102 -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # bot layer reinfocement
layer straight $IDreinf $numBarsBeamBot101_102 $barAreaBeamTop101_102 $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # top layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTag101_102 29; # associa una tag alla trasformazione
set BeamTransfType101_102 Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfType101_102 $BeamTransfTag101_102;
# TRAVI IN MEZZERIA
set BeamSecTagMez 30; # do 1 tag alla sezione
set numBarsBeamMezTop 1; # numero di ferri per lato sopra (pochissimi
set barAreaBeamMezTop 1;
set numBarsBeamMezBot 6; # numero di ferri per lato sotto 6 phi 16 per lato
set barAreaBeamMezBot 201;
# set coverBeamY [expr $HBeam/2.0]; # distanza dal centro della copertura nella direzione y
# set coverBeamZ [expr $BBeam/2.0]; # distanza dal centro della copertura nella direzione z
# set coreBeamY [expr $coverBeamY-$coverBeam]
# set coreBeamZ [expr $coverBeamZ-$coverBeam]
# set nfYBeam 44; # num fibre nella direzione y
# set nfZBeam 1;
# set nfcoverY 3;
# set nfcoverZ 1; # num fibre nella direzione z
section fiberSec $BeamSecTagMez {;
patch rect $IDconcC $nfYBeam $nfZBeam $coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # cls confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coverBeamZ -$coverBeamY $coreBeamZ
# cls nn confinato
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY -$coreBeamZ -$coverBeamY -$coverBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ $coverBeamY $coreBeamZ $coreBeamY -$coreBeamZ
patch rect $IDconcU $nfcoverY $nfcoverZ -$coreBeamY $coreBeamZ -$coverBeamY -$coreBeamZ
layer straight $IDreinf $numBarsBeamMezTop $barAreaBeamMezTop $coreBeamY $coreBeamZ $coreBeamY -$coreBeamZ; # top layer reinfocement
layer straight $IDreinf $numBarsBeamMezBot $barAreaBeamMezBot -$coreBeamY $coreBeamZ -$coreBeamY -$coreBeamZ; # bottom layer reinforcement
};
#trasformazione per passare al sistema globale
set BeamTransfTagMez 30; # associa una tag alla trasformazione
set BeamTransfTypeMez Linear ; # options, Linear PDelta Corotational
geomTransf $BeamTransfTypeMez $BeamTransfTagMez;
# connessione elementi
set numIntgrPtsBeam 3;
set numIntgrPtsCol 5;
set numIntgrPtsColBase 4;
#colonne
element nonlinearBeamColumn 11111 11 111 $numIntgrPtsColBase $ColSecTag11_111 $ColTransfTag11_111; #da terra a liv 1
element nonlinearBeamColumn 14141 14 141 $numIntgrPtsColBase $ColSecTag11_111 $ColTransfTag11_111;
element nonlinearBeamColumn 12121 12 121 $numIntgrPtsColBase $ColSecTag12_121 $ColTransfTag12_121;
element nonlinearBeamColumn 13131 13 131 $numIntgrPtsColBase $ColSecTag12_121 $ColTransfTag12_121;
element nonlinearBeamColumn 11121 111 21 $numIntgrPtsColBase $ColSecTag111_21 $ColTransfTag111_21;
element nonlinearBeamColumn 14124 141 24 $numIntgrPtsColBase $ColSecTag111_21 $ColTransfTag111_21;
element nonlinearBeamColumn 12122 121 22 $numIntgrPtsColBase $ColSecTag121_22 $ColTransfTag121_22;
element nonlinearBeamColumn 13123 131 23 $numIntgrPtsColBase $ColSecTag121_22 $ColTransfTag121_22;
element nonlinearBeamColumn 2131 21 31 $numIntgrPtsCol $ColSecTag21_31 $ColTransfTag21_31; #livello 1 2
element nonlinearBeamColumn 2434 24 34 $numIntgrPtsCol $ColSecTag21_31 $ColTransfTag21_31;
element nonlinearBeamColumn 2232 22 32 $numIntgrPtsCol $ColSecTag22_32 $ColTransfTag22_32;
element nonlinearBeamColumn 2333 23 33 $numIntgrPtsCol $ColSecTag22_32 $ColTransfTag22_32;
element nonlinearBeamColumn 3141 31 41 $numIntgrPtsCol $ColSecTag31_41 $ColTransfTag31_41; #livello 2 3
element nonlinearBeamColumn 3444 34 44 $numIntgrPtsCol $ColSecTag31_41 $ColTransfTag31_41;
element nonlinearBeamColumn 3242 32 42 $numIntgrPtsCol $ColSecTag32_42 $ColTransfTag32_42;
element nonlinearBeamColumn 3343 33 43 $numIntgrPtsCol $ColSecTag32_42 $ColTransfTag32_42;
element nonlinearBeamColumn 4151 41 51 $numIntgrPtsCol $ColSecTag41_51 $ColTransfTag41_51; #livello 3 4
element nonlinearBeamColumn 4454 44 54 $numIntgrPtsCol $ColSecTag41_51 $ColTransfTag41_51;
element nonlinearBeamColumn 4252 42 52 $numIntgrPtsCol $ColSecTag42_52 $ColTransfTag42_52;
element nonlinearBeamColumn 4353 43 53 $numIntgrPtsCol $ColSecTag42_52 $ColTransfTag42_52;
element nonlinearBeamColumn 5161 51 61 $numIntgrPtsCol $ColSecTag51_61 $ColTransfTag51_61; #livello 4 5
element nonlinearBeamColumn 5464 54 64 $numIntgrPtsCol $ColSecTag51_61 $ColTransfTag51_61;
element nonlinearBeamColumn 5262 52 62 $numIntgrPtsCol $ColSecTag52_62 $ColTransfTag52_62;
element nonlinearBeamColumn 5363 53 63 $numIntgrPtsCol $ColSecTag52_62 $ColTransfTag52_62;
element nonlinearBeamColumn 6171 61 71 $numIntgrPtsCol $ColSecTag61_71 $ColTransfTag61_71; #livello 5 6
element nonlinearBeamColumn 6474 64 74 $numIntgrPtsCol $ColSecTag61_71 $ColTransfTag61_71;
element nonlinearBeamColumn 6272 62 72 $numIntgrPtsCol $ColSecTag62_72 $ColTransfTag62_72;
element nonlinearBeamColumn 6373 63 73 $numIntgrPtsCol $ColSecTag62_72 $ColTransfTag62_72;
element nonlinearBeamColumn 7181 71 81 $numIntgrPtsCol $ColSecTag71_81 $ColTransfTag71_81; #livello 6 7
element nonlinearBeamColumn 7484 74 84 $numIntgrPtsCol $ColSecTag71_81 $ColTransfTag71_81;
element nonlinearBeamColumn 7282 72 82 $numIntgrPtsCol $ColSecTag72_82 $ColTransfTag72_82;
element nonlinearBeamColumn 7383 73 83 $numIntgrPtsCol $ColSecTag72_82 $ColTransfTag72_82;
element nonlinearBeamColumn 8191 81 91 $numIntgrPtsCol $ColSecTag81_91 $ColTransfTag81_91; #livello 7 8
element nonlinearBeamColumn 8494 84 94 $numIntgrPtsCol $ColSecTag81_91 $ColTransfTag81_91;
element nonlinearBeamColumn 8292 82 92 $numIntgrPtsCol $ColSecTag82_92 $ColTransfTag82_92;
element nonlinearBeamColumn 8393 83 93 $numIntgrPtsCol $ColSecTag82_92 $ColTransfTag82_92;
element nonlinearBeamColumn 91101 91 101 $numIntgrPtsCol $ColSecTag91_101 $ColTransfTag91_101;
too big of a model to check.
you can do an eigen command to check the period.
the convergence problem does not mean that your model is wrong.
please look at the examples manual for script on how to deal with convergence problem, what do you do when ok!=0.
which university are you at?
you can do an eigen command to check the period.
the convergence problem does not mean that your model is wrong.
please look at the examples manual for script on how to deal with convergence problem, what do you do when ok!=0.
which university are you at?
Silvia Mazzoni, PhD
Structural Consultant
Degenkolb Engineers
235 Montgomery Street, Suite 500
San Francisco, CA. 94104
Structural Consultant
Degenkolb Engineers
235 Montgomery Street, Suite 500
San Francisco, CA. 94104
-
alessandro.paparo
- Posts: 22
- Joined: Sat Feb 07, 2009 1:43 am
- Location: bologna