ࡱ> .  +,! "#$%&'()/092345678*p;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmno-qrstuvwxyz{|}~Root Entry FI 0Workbookz _VBA_PROJECT_CUR"k~ V~ VBA @t~  /~   !"#$%'()*+,-./0123456789;<=>@BCDEFGHIJKLMNOPQRSUVWY[\]^_`acdefghijklmnopqrstuvwxyz{|}~ @\pValued Sony Customer Ba=& ThisWorkbook=X,<X@"1Arial1Arial1Arial1Arial1Arial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)"\"#,##0;"\"\-#,##0"\"#,##0;[Red]"\"\-#,##0"\"#,##0.00;"\"\-#,##0.00#"\"#,##0.00;[Red]"\"\-#,##0.0072_ "\"* #,##0_ ;_ "\"* \-#,##0_ ;_ "\"* "-"_ ;_ @_ .)_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?:_ "\"* #,##0.00_ ;_ "\"* \-#,##0.00_ ;_ "\"* "-"??_ ;_ @_ 61_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\) 0.0000.0 0.000000 0.0000000 0.00000                + ) , *  `fSheet1DT:ITMAX:PRMUL:8 @   dMbP?_*+%"??U>@7 Sheet1 Drfb`b#<J=lweFThisWorkbook&__SRP_6:__SRP_7 ?BSheet1 AJ=lwexJ=lweJ=lweME(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H@h % %Xp@@0R:$*\Rffff*063adc53d24 xpİAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit rU  1Y4`rU @nDrfb9#<J=lwe FJ=lwexJ=lweJ=lweME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H@h % %Xp@@0R:$*\Rffff*073adc53d24 xpAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Option /licit rU 9a4`__SRP_8T__SRP_9XBMenus 0__SRP_21rU @nrU $`$`(`#(`#(!`#$I`$q`$`$3d2*\R1*#cd*\R1*#c0*\R1*#b8S""k 0>@B(!L(6(@>(x:(:(>(8>x6.,  PX`"hwp" j.>" j">(PX" `jh&>">"0 "   " A(@"HPX` "hUx(0@LP (/Ze (O8*PhOp " "@*fbgyxMEL@> L*L LLL`H k i8  @` k& 0 `zk) F``($k. L`^k1`x@Nh d `k F`x`@ @%@PhX8p" 0pping@x plif@h @X um a@H @D amp@(4 ]@$ @ @ @ |@ @ X X@`$@, x`6<> values@z  H`@0`"  @x @xh @X @H +@D @ 4 icat@$ @ @ @ X`%@ ( p @   8 " @ x @X h @ X @ H @ D @ 4 @ $ @ @ @ 0 `%  H   " @` x @0 h @ X @x H @ D @ 4 @ $ @ @ @  `%  ( " @@ x @ h @p X @X H @ D @ 4 @ $ @ @  @ @ DB@l @\ @L @x< @, @0 @H @` @ @ @ @ @ @h @ @ | @8l @P\ @L @< @, @ @ @ @ @ @ (H@px @h @@X @H @X8 @( @$ (@XphRTBVXZb@d @T @D @4 @$ @ @ @ @0 @H @` @x @ @ @ @t @Pp @l KK RA lX@hO kP@ , k9@d ee ~e$ @` (b (>i| AgkiF@^ sPh(8RTB>@Fc@t y@d h"$@T @D qQ@4 -@$ ş@ , &@ $ܥ@ .9@ Or h(R:$*\Rffff*053ad76da1*\R1*#3e*\R1*#229*\R1*#c4*\R1*#189*\R1*#18a*\R1*#18b*\R1*#18c*\R1*#18d*\R1*#c4*\R0*#f*\R0*#14*\R1*#182*\R1*#181*\R0*#1$*\Rffff*083adc5UZ3     ( X EERA "$ !%$. !&Process Earthquake Data(Read_Earthquake*C@$Calculate Compatible Strain(Main_Calculation*C@$Calculate Output !&%..,"Acceleration/Velocity/Displacement( Get_History* ,!&B@$ Stress-Strain( Get_Strain* ,!&B@$ Amplification(Get_Amplification* ,!&B@$Fourier Spectrum( Get_Fourier* ,!&B@$Response Spectra( Get_Spectra* ,!&B@$All of the above(Recalculate_All* ,!&B@$Duplicate Worksheet(Duplicate_Worksheet*C@$Delete Worksheet(Delete_Worksheet*C@$ Remove EERA( Remove_EERA*C@$ About EERA( Display_Info*C@$qA@0o@EERA "$ %B@4ohEERA "$ % 8Calculate Compatible Strain7&(:qoEERA "$ % 8Calculate Output7&(:qo@EERA "$ % 8Duplicate Worksheet7&(: 8Delete Worksheet7&(:q ooA@6A@<A@>o EERA$H(Jo`]]P R!'  Earthquake Profile  IterationGWOnly Worksheets Mat, Acceleration, Strain, Ampli, Fourier and Spectra can be duplicated TEERAA@BF|j $Mat$Enter a Number for New Material TypeEERA $V'N N N G|j X Z!\ X!Mat NGMaterial number is already used TEERAA@BF|j X $b` RB@^Mat N R(dx $b` RB@^kX|PPHA@>o8]P  R!'  Earthquake Profile  Iteration Mat 1  Acceleration Fourier Strain Ampli SpectraCSelected worksheet cannot be deleted because it is required by EERA TEERAA@Bd RB@4k|PA@>oEERA $D3Equivalent-linear Earthquake site Response Analysis $D $DAuthor: J.P. Bardet $D Latest Revision: August 20, 2000 $D $D;Documentation is available from http://geoinfo.usc.edu/geesEERAA@BɵAttribute VB_Name = "Menus" Sub Auto_Open() Shet t0Bars(xlWorksheet).*s.Add(@"EERA"jWithlSng BmatOn Error GoTo_HandOtt eSq.s!Ifc@8 Orf@file"9@/cz" Then'Only,s Mat, i},dPat, o $pa can b(e dddvbExcla0%: Exit Left( , ;/qa)  NsKIn2 ntwa NumbEfNewA erial Typwao#50 C!"{C 8 6ch Wks In!tivelbook.Fmb op "0&o z# n 2lry use1 Nextq !Copy Af:="s2Ae $m EC4/&/IfP;r,+x: uo7=lxeteg?3532r?222B2 "2(51 592ş7?)Ra3)!bSctHw57not27҆dca$ 5%redr by8Fsn.V(bx td4 >__SRP_3ZCompute:__SRP_4Pc__SRP_5b`$ `nrU `&p0)9IYiy9****(((((***pl)9y9 !9IYiy8$*\Rffff*083adc53d2$*\Rffff*053ad76da1*\R1*#229*\R1*#c4*\R1*#b8*\R0*#13*\R1*#175*\R0*#1*\R0*#14*\R0*#15*\R0*#10*\R0*#f*\R1*#cd*\R1*#c0*\R1*#6c*\R1*#b3*\R1*#a0*\R1*#19e*\R1*#19f*\R1*#171*\R1*#c4*\R1*#b8*\R1*#cd*\R1*#c0- Z J`  $Z Z08"@h00$&.8&h*6*(D`[>@&,($@.h.60@0@p.40*HJx. D`h( ( ( ( ( ( ( "     ("0 84H &1 2 8 "5P x T  * rU~|  N)! I q a ! a ) i 9) aq!aq!)! ! "1"Q""" $*y%A&%*Y&8i))!*i*I*i+++ '9'a' ,)-y=dk:$%h%x$ xHDDa4O)xD6H4AHq:h%:$ %l  :h %:$%l  !:h%=HB4N5H(:h%:$%=4  54(:h%:$%=4  54(:h%:$%=4  54(:h%:$%=4  54(:h%:$%=4  54(:h%:$%=4  54:h%:$%l  :h%:$ %l  :h!%:$"%l  :h#%:$$%l  q %d0b$xDH4|w:$%h%x$ xHDDa4Ou)xD6H4|$b (xDH4j:$%h%x$ xHDDa4O)xD6H4> $%:h %aHQ)xx4C*x6H$4c(b$xDH4j:$%h%x$ xHDDa4O)xD6H4> $%:h%aHQ)xx4C*x6H$4c(b$xDH4@j:$%h%x$ xHDDa4O)xD6H4> $%:h%aHQ)xx4C*x6H$4> $%:h%aHQ)xx4C*x6H$4c(b$xDH4h l +  +  +  + | + \ +'':N  :\lL:<,, :-:M|l\L:dh?/d">X H?>dF$]:D@hT36$T3'':4N$$0:DANTT 06T$ >h?IOplxFD%d$ d dBQpoT%`$ @`CD)d`5T*:D@hT%d$ @d2d5TOplxFD%d$ d dBQpoT%`$ @`CD)d`5T +^ ( 4lhhx< ddp`T$t0K"t$ @tWd2`1xt5dUlx30lx40lx50lxE0lxF0lxG0lxH0lxI0lxJ03'':DN440:TKNdd 06d4t$ @tLt + ( L    rj( 4> f /@ -` "x     F - 0 8  P  ` h -p      -       (Pr8t,V~VfX|k`TmVfbCD@_EARTHQ@44====_ITERATE@108td_FOURIER@72hn_AMPLI@648@ _HISTORY@88P_STRAIN@80==d==_SPECTRA@92_EARTHQ@48_ITERATE@108_FOURIER@72_SPECTRA@92_HISTORY@88_SPECTRA@92_STRAIN@80_HISTORY@88_AMPLI@64_STRAIN@80_AMPLI@64_AMPLI@64xMEd@0> LL*LLLLLLL`B xP8`v` t`r`pl` h` d```\`X`T`P`L`H`HD    8 X x   `x6k II`B xx``t ;p% p iH h  ( P x >`|H gg`B`@x`Bv`Dt`Fl`h`d```HP `JN    @ ` fp!`A@k >>]`B x  t@ ( i/X" `bl`dh  ! (! P! h#`pF(3?83 P3Bp3 `3B3D3  3I3 3IH4NX4p @ *X4( `x4O4p4`44P4 4R4 4R5 5T(5 @5Z`5 P5Zx5^5 5b5 5b5b5 6e 6 6e86jH6 `h6kg`6`gm0H70777`78:x7ZR<@H7l @h @7d 7`7@(8`O @87@P8\ @7L @8< @8, @: @89 `8(8 @ 7tz@8 88@9  98@8 @9 @ (98P97@`9 x989$@9O 9`9$@ `99'@9 99)@ 0:9)h8TB@ @:9D`9G0 h8XA;g|RZb;H @D @4 ;0 :.V 0;, `<< @ @ h<X @ @ @ @ @( @ @ `8=H=p @t @d h;\TBH=` `= p=\ = =X =!=T =!=#=$>P ` >(0>L `H>.X>H p>0>D >0>0>@ `>5><>`@?6(?(~(?8 @?D`?4 P?D?D?0x?`@?E?,?`@?I?( @L @$ @L8@NH@  `@R@ p@R@R@@`@HATXA @ pA@ @ @ @A`pA`g(g   C@BBXBBEPEB|0bR.@pBd @BT @hEP @EL `EB @B< @B, @XC @C @(C @@C @pC @E @ (Bln~CrpztjC @C @D @D @0D @HD @`D @xD @D @D @D @D @D @ @ Ex @8Eh @X C0xv@T PE`%EE@EL EE@FH FE@(FD @FF@@ PF(F`F(F8E9@"""!Hp"!IG@GGH(GpGIIG|0<XZ@ IV @XGP @pJL @GH GpG@PHDO hHG@@ @G0 @ H @xH @8I GR npTB@J `IPH@H @H @H @H @H @I @ @ @PIx @h 8Hrpnl@Id II@J` IIJIhI0@J\ @(JX @@JT @XJP @L @H @JD JJ!@@ JJ!KJ!<K`%KJ#G(H#`### NxLKLLKN(LMXO@L|0<XZ@xMj @Ld @pO` @PL\ hL(L @MXO MPL @T @LD @L4 @0M$ @ KRnp@O `MM @HM @`M @N @ @M MM@ MMOML~rpnlMj @8N @PN @hN @N @N @N @N @ @ @O @(O @@O @p N0v@l hO`%OOPL$P8QPQPQPbR~hjTB@Px @Ph @d @` `P@QP @ Q@ @Q0 @PQ @hQ @Q @ @ hP>0@Rpn@ h$$$$T0SRHSxSRR0TUR|0<XZR@n `@Rh @Ud @S`  SR@S\O SS@X @`SH @S8 @S( @ @pV ` HTS R n@T @T @U @XT pT0T@V TXT(VXTS~rpnTlj0t@T @T @U @ U @8U U@PU @hU @ @U @U @U @| @x Tx@@8Vt PVV@p `V8VV8VnpvlV` %VpV"S' %p%%%%dXWXHXhWW@deW|0<XZ@Yf @W` @f\ @WX WW @XTO XW @P @0X@ @`X0 @X @ PWR npv~@ f `XdX @X x@X `@Y @ @0Y @e xXrpn%h&0'&&&&'\Z8ZZ[ Z]hZ\\Z|0<XZ@[^ @PZX @]T @ZP ZhZ @H[LO `[Z @H @Z8 @[( @p[ @ ZR npv@] `\H[@[ @[ @[ @ @[ @] @(\ @\\@`\ P\(\x\(\@\ \`\@ \\^\0[~rpnl\j0@] @ ] @8] @P] @h] @] @ @ @]p @` @\ X^`%(^]%Z*^'@_(_^_^`nz _^,TB@X_h @p_X @_H @_8 @_( @_ @_ @` @ @ ` aa````z ``Z0@t @p arthvxb(((bPc cbbbb`pxbbcR.TB,@t @p `b@8c` @cP @hc@ @c0 @c @c @c @(d @c @d @ @ @hd d@d@`e dhdxehdHYl@d @d p@e X@e @0e @He @ @e e`e@ ee8fe d0@@e| @l @h d`Y`Hf fW!]   DhEpC8EE(Fe(X))@-p^ R:*\R1*#22$H p  .@g ( T8>4FN0@8HXddhH PD`D NV( x(44> (  T|ZFn8Fn tOP Xbcx .=0HX "D(8 0@"H P`hp ,x/5  "<8 (PxRN$#RN8$#   "xZ<a 8 Phx "`<a /5 (:<Z,0 "/Z| HX p  x X!`!h!p!!!"/!Z|! "0""H#P#X#h#p# x### ##"# #&#&#$$ *@$"p$,$$$$$ % % 0%8% @% P% 'p%1%%T%&&U& $0&@& X&6dp&(&*& &''.I0' `' p'' '1''0''' (1(0(0T8(Jjh((( *(%()<)6*X)*-)DD)d^*\p* *.[%*pa*`+h+ +B+ ,+DL ,2h,,,,D, &-0-@-<GX- -@k- -.LW .p.Dx. &.7.Jd/P/-X/p/x/ 4/ //Li[D/0P80h0 p0 x00"0 0B0J0"81*`1"11111 "2 (2>a02-p2-2,H2<[2 (3O83 4&(42@4x44 "444$$445(54@5":`5&D5&B5&B5&D66Z(6,H`66`6$ 7%(7H7X7``77$ 77"77"7 8H8BaP88":8"888 9 9( 989@9X9"`9 h9"x9&9,9(9, :$P:0x:8:: :;(;1H; 7`; ;;0n;,;;,;;0.(< X<FNx<XD<&8=6P@=DHx= (=l= X>Bp> "><A>0P ?DP? ???? ??"? ?&?*@FH@$@ @@@1A&7 A HAXA%`A,;xAA&<ADLA (0BXB BBC "XC.C&>C*;C(C&>D*;8D&>hD*;DDD EE E(E 0E@E"HE PE&`E&E"EEE1F 70F PF`F8hF,;F%FDLF (G8GHG GBG "@HhH xHHDUHvH hI 8xI 8I&>I*I 8I 8J 88JDXJJJJJ JJ"J J&J*K*HK(xK(K KKK1L"70L XLhL8pL,;LL+L.L%MDL M hMM 8NZf0N NBN "NDO`OhOpOxO OO"O O&O*O*P68PpP(P*P PPQ18Q"7PQ xQQ8Q,;QQ";Q.RHN8R R!RJfRR S!Sb\ SS SS PTBhT "T(T(TDUPUXU`UhU pUUB UUgUVB V(V&=0VXV"`VhVpVxVVVVB VV V'V8aVW WFAW`W\_pWWWW"WW W X1 X8X(H@X0hX*X(KX0X* YPY.3XYYYY YYY<<YY ZZ[T====================================================================================DEERA Equivalent Linear Model for Earthquake site Response AnalysisA*Author: J. P. Bardet DiT====================================================================================] X)$unit weight of water] )$ earth gravity] $"low strain amplitude damping ratio] )$"low strain amplitude shear modulus] )$thickness of sublayer] )$unit weight of sublayer]  *$ material type number of sublayer] H*$depth at top of sublayer] p*$depth at middle of sublayer] *$(number of data point per material curves] *$number of data points in FFT]  $NX/2+1] $0number of data points in earthquake input motion] +$number of input sublayer] $0 if layer INP is outcropping] @$ time interval] 8+$frequency interval for FFT]hCut-off frequency] `+$total number of layers] $total number of sublayer layers] $total number of material curves] +$(maximum number of data points per curves] $"strain abscissa of material curves] +$1ordinates (G/Gmax and damping) of material curves] +$10 if filtered acceleration is used in calculation] ,$ Real part of FFT of input motion] $%Imaginary part of FFT of input motion] (,$ time array] P,$ work array] x,$Maximum number of iteration] ,$;Coefficient relating maximum and effective strain amplitude] x$0 if original shake computation] ,$Stress for output] $5Check strain softening of shear modulus-strain curves] ,] - ] H] @-H h h ' G|jhjA@ G|j(lA@ G|jA@fA@<o]] %vertical stress at middle of sublayer]X]p]]]0H`xtProfile$bB@H R,compute total number of layers and sublayers'F'(x    7 $a  'z   7 $G  'cG    7 !" 'j 7 (" dimension dynamic arrays l n r p0 tP vp  xFRead soil properties for each layer and assign values to each sublayer'  'F   7 $G   7 !"'jS"total number of sublayers in layer(   7 !"' % unit weight( G   $ B@HFCheck unit weight TEERAA@BF'F|jX   7 $   7 5"'%shear wave velocityItalic5$(&5$((hq   j'%&shear modulus from shear wave velocity   7  9"Regular5$(&5$((q`dX   7 5"'Italic5$(&5$((iq   7   $*9"Regular5$(&5$((iqk   i'F   7 $G   7 !"'j G'F   $ B@HFPlease check layer height TEERAA@BF|jk G'F3Please check shear wave velocity or modulus in row   $, TEERAA@BF|j    '  +n   +pthickness of layer +tF   7 $G   7 !" +tj $tG   7 !"d +lj? Damping ratio $t $t G   7 $G'F&Initial damping ratio is not specified TEERAA@BF|jj  j +r unit mass  'determine layer number with water table  '     7 $$.WG 'Fyj Mcalculate average depth and effective vertical stress at middle of each layer +p$r j' F G  h ' j$p+xF$p +   $r j'F   G  h 'j  $x $p@  $p@ +x  $ $p @  $p @ + '    $    $ $0F x9"Fq  $    $ $0F 9"Fq'F'    $p 'F  $p $n $r$* '   'F 7 ("@  'F 7 ("!detect the layer for input motion''     7 $$.OG 'F'j   7 $$.IG 'F'j  G=Please select a layer in Column J for the input ground motion TEERAA@BF'F|jqDepth at top of sublayer+vF  F  $v  $p +vF Array for plotting profile  F'    ' $v +F $n +F $n $r$* +F $r j +  '  $v +F $n +F $n $r$* +F $r j +  RF52!4!6'Fq$  $ $0B@8$  $ $0F 9"Fq  ro ]0]H]]%Determine dimensions of dynamic array'F' : Z!\ :!$Mat  :B@H Rread number of soil property5$ $<'"check that soil properties is used   $t   ''F   7 $aF  'FF  '   G  'j'F   7 $aF  'FF  '   G  'jyk qk :08z@+++z  G|j  H  p z' : Z!\ :!$Mat  :B@H R  read soil propertiesVariable modulus and dampingoperti $t   ''F    7 $a  'F   7   +F   7   +   $   $ G'F   7 B@HFStrain must increase TEERAA@BF|j  $   $ G'F   7 B@HFShear modulus must decrease TEERAA@BF|j   $   $   $   $    $   $ G'F   7 B@HFStrain softening occurs TEERAA@BFxjkk  +z  ''    7 $a  'F   7   +F   7   +   $   $ G'F   7 B@HFStrain must increase TEERAA@BF|j  $   $ G'F   7 B@HFDamping ratio must increase TEERAA@BF|jk  +zyk qxkp :o]]name of earthquake file]number of data per line] total number of lines]8desired maximum acceleration]Pmaximum acceleration]hmaximum filtered acceleration]mean square frequency]] P L(N Check for new analysis'|A@R G|j open external input file Z!' Earthquake$bB@H R'JF7 $G7 !"$$.Y'Jjq J*.* V L%TB@X Z!'@ @ G|jread input motion RF52!4!6'DF52!Z!6'BFq B D$  D B$ $0!"'H'  D  B  'F  $H +   Hr \B@B Earthquake$bB@H R @; 'name of earthquake fileqd '@ Earthquake$bB@H R52!4!6  'F&   F   7 !" +F qk# Read Setting for Input Motion file 8 R $   $ $0FC@8Fq  7 ("'total number of data read7 !"'' time interval GPlease specify time step TEERAA@BF|j'FF7 $G7 !"'FjKdesired peak acceleration'F7 $G7 !"'jKcut-off frequency'7 $7 !"$$.YG'jA10 for use of filtered acceleration in calculationk` G'j erase previous data52!4!6'F  $  $ $0B@8% print time and original acceleration  F    +F   $    $ $0 9"0.0009^q  $    $ $0F 9"Fq calculate maximum acceleration'    $ G $'F 'j  $ 7 ("F   7 (" scale acceleration F  F $ F  +F kP  $    $ $0F 9"Fq define number of points for FFT$ $ $`@$` '|F |7 ("dp7 !"'|kP | '~ ~X ~x filter acceleration? | '  $    $ $0F 9"Fq  7 ("F  7 ("qA@6A@<o ]]3maximum shear strain in sublayers at each iteration] ;time of maximum shear strain in sublayers at each iteration]maximum acceleration] maximum error on convergence] error on convergence |GA@0F|j Iteration$bB@H Rdefine type of shear modulus'7 !"$$.SHAKE91G'j7 !"'7 !"'  @l  @n   !  H! h!"perform main iterative calculation$$ | ~ $$$$r$p$n$l$$$z$t j          A@erase old results52!4!6'F  $   $ $09fFC@8q print results of calculation'b        '   7 ("      7 (" $t   7 (" $x   7 ("  $   7 ("  $   7 ("  $n   7 ("  $n $n   7 ("  $ld   7 ("    $n   $n  $nd'dF d   7 ("   d b G d'bj $l'dd   $l   $l  $ld'dF d   7 ("k   d b G d'bjd   7 ("   7 ("k0  $n  $d   7 ("   $v   7 (" $   7 ("k   b7 ("q@     ro p!]!]!Number of iteration]!Number of first sublayer]!0 if layer L1 is outcroppping]"Number of second sublayer]("0 if layer L2 is outcroppping]@"Maximum amplification]H"Frequency of maximum amplification]p")Frequency step for amplification spectrum]" Work array G|j |GA@0F|j GA@<F|j X Z!\ X!$Ampli XB@H R$ $$ $7 !"'F $nG|j7 !"'F $nG|j $p'F $p'define frequency values'F    7 $aF  'F G,Please enter equally-spaced frequency values TEERAA@BF|j " l#  7 !"  7 !" 'j  F   j +F "Calculation amplification spectrum  $l j$r$p $n $l        A@erase old results52!4!6'F  $  $ $0B@8print results of calculation  F $l +F  7 ("F 7 ("  $    $ $0F 9"Fq  lrk>q>k> Xo>#] H#]`#Number of first sublayer]x#0 if layer L is outcroppping]#8Index of maximum acceleration, velocity and displacement]#Mean Square frequency G|j |GA@0F|j GA@<F|j X Z!\ X! $ Acceleration XB@H R7 $7 !"'F $nG|j $p' $ $  F    +F "Calculation amplification spectrum$$ | ~ $r$p $n $l j   $ $     A@erase old results52!4!6'F  $  $ $0B@8print results of calculation $v7 ("$$7 ("$  7 (" 7 ("$$7 ("$  7 ("$$ 7 ("$   7 ("  $    $ $0F 9"Fq  rk`9qX9kP9 Xo89($] h$]$Number of first sublayer]$Index of Maximum strain]$Stress time history |GA@0F|j GA@<F|j X Z!\ X!$Strain XB@H R$ $7 !"'F $nG|j %  F    +F "Calculation amplification spectrum (%$$     $$ | ~ $r$p $n $l   j A@erase old results52!4!6'F  $  $ $0B@8print results of calculation $t'+   $ +F $d +  G  $ $ $  $ Y@ +j  $x7 (" $7 (" $ 7 (" 7 ("  $n7 (" $7 (" $7 ("  $    $ $0F 9"Fq rk3q3k3 Xo30%]p%]%Number of first sublayer]%0 if layer L is outcroppping]%Number of moving average(s)]%index of maximum FFT value]%maximum absolute FFT value G|j |GA@0F|j GA@<F|j X Z!\ X!$Fourier XB@H R$ $7 !"'F $nG|j $p'7 !"' $v7 (" ~ &  ~F    +F calculate Fourier spectrum$$ ~  $r$p $n $l $       A@ $7 ("  ~F $ | @ +F erase old results52!4!6'F  $  $ $0B@8print results of calculation  $   ~ $ $0F 9"Fq rk.q.k. Xo.(&]h&]&Number of first sublayer]&0 if layer L is outcroppping]&damping value in real value]&'Number of data points in spectral array]&Spectral array]'Maximum spectral velocity]0'Maximum spectra acceleration G|j |GA@0F|j GA@<F|j X Z!\ X!$Spectra XB@H R$ $7 !"'F $nG|j $p'7 !"Y@' $v7 ("'F    7 $bF  'F   h'  F   7 !" +F d0+'  '  F       +F k*calculate Fourier spectrum$$ | ~ $r$p $n $l         jd  $  A@erase old results52!4!6'F  $   $ $0B@8print results of calculation 7 (" 7 ("  $    $ $0F 9"Fq rk(q(k( Xo(''n    G7The sublayer number should be smaller than or equal to $, TEERAA@BF'nji('' Z! G'FA@0ji'8(A@rA@tA@hA@vA@xo'x( R'p r |7 $ r |7 !"$$.OG'pjk('  pG Sublayer 1 should be outcropping TEERAA@Bj  e pG Sublayer $, should not be outcropping TEERAA@BjkX&qP&iH&)P8&'detect metric unitsProfile$bB@H R7 !"$~(m)Q#@'h unit weight of water in MPAQ#@'j earth gravity in m/s27 !"$~(ft)e(\@'h unit weight of water in kcf@@'j earth gravity in ft/s2d$Units are not recognized TEERAA@BP$k$q$A@>|$Px$'FPlease use an EERA data file TEERAA@BA@0'o $P$   7 $G  'cG    7 !" 'j[Constant modulus and damping 5$ $<'read number of soil property[Last revision: August 21, 2000$$    | ~  $  A@ ]  $5Number of data points in FFT before frequency cut-off$[H GNo7 ("j[Attribute VB_Name = "Comp" '=PEERA Equivalent Linear Model for Earthquake siResponse AnalysisFAuthor: J. P. BardetLast revision: Augu21,` 2000 SOpt7 ExpliciDBaZ@1 Pub WF As Si0ngle 'unit weight of waterGTth graviDtyD()'low stra in am-tu0de d' rNa4/shtm`oduluk@Hthickness?sLayH@Nr ONTPL(ong^mZial type n umber!DEPT1'depa@at topM2midd@1NV1G.data poip2A8curvedNFX!D" ' s" FFFTCNYAYNX/2+'`NZ/ be`e frequency cut-offCy vbgin moy INP H$36OUw,'0 if l\ i@_utcropppFDti`=ergz(":ML)tote*bJl#!CVX/Mv\P/'maximumϨiOagLfGAx s$bscissaG'ordins (G/G and) FILTEREDR'#Nfiled accele^n 'us@>calculA`rn%XRK #'Re p{ p$a4ic XIogImagpry iut9T B'1arra'qAwork 0ITMA?R4'M#fPRMU0 VCoeff0rei5)ectivzGTYPEC orial shacbStr7wb'BBout`RCheck_SoftenBoolean'usFm-t36Error_Flag di5, jkvW`kSngks1a`qPrDeclare Sub EARTHQЪb "e 3.dll" Alias "_@48" (ByRef LXRAC, 4I-?AZuS? NmU{xw+AuA Do FǡH1le)@ IHATEq@10% X} OuWACj eE_T_PrH/G/X{ 0dG Np% Tֈ55N6yq&C' u hUO?IUEZL%28FOURIER%s%x@72_8 וo%fMo% O$0f _! _! _!  8 Nh .L_OUT As Long, ByRef M GTYPEP) Private Declare Sub AMPLI Lib "eera.dll" Alias "_8@@64" (AmaxSingTlexFA(DFrHGD L1 L_L2 4NL NfNZ!HISTORFY@88X&R3 XI NX{J(YN,_GwBK*PRCM%Q[SЎNnMINPg@NALyS`TRAINUyC@80yBKNStress$LTMAOz?MfMf OdM}OKIR?8b SPECG8V8@92u 8u?' ߤФrf DyJkӀOpkDbpk#5SA۹ SVN-cm?aMain_calculation(` Error_Flag = False  IZew_WorkBook Then ExitaRead_ProfilCurvesC xComputa Act_Menus2 Tru`xEnd# Y Const I0Integer0 5 Dim SIG() @'verti  scHat middle of sublayerNLB3MW":IՈZGMO*bW, W|WrzVSCS 1SHVVSAT-H TPt Sheets("T").Select WPith eB  'cc total numbs aP1DMLp0: 9= 0@ Do Until IsEmpty(.CelHls(+ + 1, 8))>=4)OA, x4))*r@` >E-1.Val% Loop4, 5) NLP dimens3 dynamic arr$ay!ReA&D(NL, 1), ZGrHcTPsDEPT$)ebM Q'1. soprop*es for `each assign v ^sp,Fi 1 Top@jN:r?o 4_ ~i5'c! inS qW P\85/ 10@00 'unPGwPeigh(  W 0 Or .<7׀7]7]Initial d  is nDspecified")n rDUW4GT!` 'u@ mass4Next j@i 'determineg numbe1ith tablWMWLIiMLACUC(Left)Mr111D= "W"giD@I&calculate rage dep@%and effectirti strat middleAeach0#@W1.$r(* J* $@5 (@ - WF) DE@PTHM(1HA/ 2: SIGK*  JF2  W2i) (< [BL(% Di#D - + H(@#v`!z)@B2ei 2BN= H WER`ange(x2>H2)): o=@; >3 j SH@-0#@4HV" %2W`' BC(%S** Sqr(G((/ ni)B VSA A/ c3, 25=  TT4#@@`/2 TTDuct theuf`inpu@^o!@ INPa `$&u4+ 1 El`I4!؀08ĀOĀ : @OU"0? }( I8 A3@ 0#$sel aColumn8 J -A/.grouUm.سv7.DMopKsubr=QF@: D:3>d4J(<);: ' Array plottnprofi]ReDim A(2(1(4P:kC$:$3k!A(kI0 :02Q$3$3!4R4rQ Q ia/ //*a AgSheet: o .UsedBO.Rows.c0!w3 QP27KD30)).CPrContentzr_, SDQ@B2 2ANErO, 8A aB@ Read_CurvXes(K s@0 As Ig0= 2@a Y()]S"1NWBs!Worketb,ńdimensPdynam0ic a(0NP">)C"Y &EzPInbooS<j@'r@soil 1pertyBR(Mid$(e'th@ies u!# _W j+icH NQ+RNЉDo Unt@ [+ N7,N0: Loop0NA~%s< bsP=O@wOO Ob REQ 1,IҐ3ԡ2Q+&:W"'-an?aq! NGD!, GA, NVV !!&PaAbZ^'Varifo m PTBqP'`%3@93y3 3.3O0)O1)O5M5 1.B94 3QQp,r3Tr'3b:!:I6CV82  N > (1 Then  If GAM(NCV, N) <h - 1) Error_Flag = True: .Cells(I0 + N,R.Select: MsgBox "Strain must increase", vbExclamation, "EERA": Exit (Sub D> &G *2)hear modul$usOdeOCheck_Softening (Z)[ a) / (--!]|/:s0o ccursiDoqiEnd:LHoopNVs)e@NCV@+, 10Do Until IsEmpty(ʝ1, 3)) N:HI̫3)G=ͳ4a@qN > S3_Έr4Damp\rw?{4{_D= FDFor$p1 9Dp10A>? Er !1`lt10ErPH*ق A >pSYr#7 `A$ å 6 -F6 * ? 11> . f=`! H,$ w-(!=Wl1b/(110CƠSc 74c3_B0AKr k r, ! , XPAM@D t@ Get_Amplificr4ntt7Q}NAaQ}Longt'NF}L1?R8firЖ5L]'0 if  is outcropppИM2omsed T}2 !r܏ '.?I a PFrequya/ DF ''0step  spectrum AXWork arrayINew_1Book1 ExFN/ JelEWkQe b . Ҝ.Name4}4""0PtiveSheet If Not IsEmpty(Cells(1, 4))P Andp3pThenL1 = .n.Value:Bad_Layer(L1) b Exit Sub:2:U:"2:OUTxOutcrop(2, e: LX42) 'define frequency vUsFNAF0: Do UntilmI0 $+ + 1)4):=:oop#A <= 1wMsgBox "Please enter >ally-spacedG", vbExclamation, "E ERA":ReDim A(NA, 2), AXr DFe[1) -B43C/For i+B@/o6:i, o= (i@*@?ext iTCalcul* amplificCspectrumAMPLI Amax, FB+1-+, r*(HBGITMAXA L+Aw@4z, NL@NZ, GTY$PE$er[old resultBx5.UsedRange.Rows.count: BE, @@ 2)).CprC o@pn'print of cGBR@=jiAPz d5i@ I:6PWith\/3 I7{ E"&(AX@If Ef!ANWk@*!By Get_History(P%s0 As Im`&g^b1` VLALong '0Numb`)fir@subla{r'0 if B L is oAcppingN$A(s 'I0ndex8`.imum accelHpvelocity a!dis4pl wmy SF%aS le 'Mean Squar莠ew_WorkBookX0CDeac ate_Mexnus"fA2 Falsa}Each 9U@4 "eb.sāg Left(@.NameI`2)"A$""`S'cABTc Dz& )CW: ˔`@`6LBCi(3+ CTon HISTORY XRXINX@Y``GT!DF`A S@ #a, INP@e5ߢ oQoQoZfQ.oQoQb!LDEPTH(34q{Pmq|Rune@#VjTSSF7Ut(tc!ݴ8:q/-qqpy93`l42&103)[ 23Oic]b,o] 1f]NAKo]5 o] e]Strain_]V]9O]xPO]K]N~O]wYMaxrYs Xess3]W' time hci0`LNOUvOUOU)XOU OUOULU62U TT?=T45Toa&0"7R3R/RY(NC"3STRAINGQ9AH1#pP` pOOVNV 61V1WS]3j@NTPdRb_4#0#oC!pE= i) * 100A(r r)i >5JKr* (2Q# / E¦[Qy]_M(1RKbYpBnA Tnb$pPRMlUL۵jaGq 8~bob(#* /]u/]bmA'index maximum FFT value;A S,lex'abs olute If New_WorkBook Then Exit Sub-X <= 0 Deactivate_M enus: IT aA2 False For Each Wk eHbH.@sheetsFLeft( .Na@me, 7)|"Ą"( SelectithDVS 5o@sEmpty(Cells(1, 4))x= .H.V[:Badd_L(L IA "L= OÆ(2, Lx M@+3AA$D4G DEPTHReAA(NY,, 2ANj@ 1 To NY: A (j, 1AD(j -A* DF:@xxt j '@calculo DL spIrumAFOURIER XR(1), XINZ,, rBHBGK{ D NL,"}@S2@@?@E,0 INPM, GTYPE?~5?@;4-r4 k dy b, 9aRNbaPKa2CiEr 153?Ah?1h10 ^ (-2p 3Y(i#i/Zq IKK/j*jSPECTRA-jX,o0`j/j/jC@m*TiPiDpjGTp , 9@VkVAna`Nk'e > eeAe9)ee|e$ tp q6uJi0&Aw, n(a%0")Aie ikiiFun@on X[WPvs 0L < 1 Or > NL MsgBox "= nshoupbe smallthan equ0`to " & S tr(NL#vb@ExclamRW, "EERA":s TrA )#e7 =c AܰAAk_Ll@Fܺc ReV_AllHistorjtrai2уAmplificuh"D r, cfB |*Cż`1qQUrӨ@UC(12-/!L"O#i000QJLq?6À(1 'P", &p&X!@p Q,&np 0/.97=$A(Analysis$Orrp5Go0E_Hand 71Flag <'det metric unis("Profile").Select With ActiveSheeIf Right(.Cells(5, 5).Value, 3) = "(m)" Then WF$9.81 'unit we| of water in MPATGT*earzgravity!#m/s2$Else4ft 6.24kcfa32.2AftBMsgBox "Uks are not recognized", vbExclamation, "EERA"4oTo Error_Handler End ~IC _Menus3 T(ruexSuhb ": *Flag: TPlease uan F data VDea?F!"@/B$ntst ntstTntntT f c p`%Ia\X$ \ X$P֔TaPT\PTXP$ P/hl$ Hl $Qh[pl% 5\p H%>\FL<  <:,&]36L<  ',%p %l$ @Ql<WL''<L\ ( # )2\6L<Hd  PPst/ntj,%(%L  5L} ntst8ntj,%(%L *PntX5L8ntj,%(%L *Pnt\5L ntv2PntXPntX *ntj,%(%<  5<3'':N<<0:,*NLL 6rU~| [9!")! !*Q-y-y2--!.A.a...2.Y3" 0*q/0001 292Y2i)1"y55' 444Y6Q"6666A& 77 8&q"y89'8!+ '+qa' q9qIa::1; =;; <!<X    ,  @  +z X$b h1,:0%@$ @ d , )@,@$ @Q@( H L5Hi0%(%(  56HH.Hi0%(%(  5LL1FLiHi0%(%( A "L6a*Li%(0%(%( C 5LL LLLLLxL  LHdf pv/i0%(%(  54i0%(%( A Upv6>i0%(%( A (*sh6 nhAi0%(%@$ X@ @53'':N0:0N 6 /i0%( %(  5-i0%( %( q|l|A *s\5:0%l|=C5(0%l|=C5 q|n\nhsl-i0%(%( llqhnlj0%lhC :0%lh=C5(0%lh=C5 qh-i0%(%( XXqTlTA *sl5:0%lT=C5(0%lT=C5 qT-i0%( %( DDq@nlnh9 k0%l@C :0%l@=C5(0%l@=C5 q@HsH/i0%(%(  5d5i0%(%( A *sH6nH Ai0%(%@$ X@ @53'':N0:0N 6nlg Oi ' '0:N0: 6 0 kvdZ LLnlL nHkv붔LL/i0%(%(  5<=i0%(%( A "L6LPi0%(%( A (d*L6(L۔L8 /i0%(%(  58 3'':N0:0N 6nhL f} fsLptHd Wi0%( %(    :]36 pt f Lsd ktK ndsd& (ndlxLd s`kt n`s`d @@ hlxn`@nd@lxn`sd f (0%( %@$ X@Li%( %,$ X,$ Q)@,6 M0 %,c(0%( %@$ X@Li%( %,$ X,$ Q)@,6lxM0 %,csXsTLd nXsXB 9 tnTosT fI nTnXsP(nPj%(0%(%( C 5@nXnPsL(nLj%(0%(%( C 5 8pvHd.i0%(%(  5 kvpv@kvDi0%(%( A Upv6Wi0%( %(    :]361 kv8 <Wi0%( %(    :]36 kv8 < fG83'':N0:0 N 6 c(Lde:f)1Lp Ldg"p, p> 9 p-볔p(p, p> 9 p-볔p f@$ @Q@&W!="A#"6c(0%(%@$ X@i%(%,$ X,$ q)@,6(0%(%@$ X@i%(%,$ X,$ Q)@,6pM0 %,c pZxZTb: (lXDx0 @,0 T  T P/hl$ Hl $Qh[dpl`%.5\p H%>\FL<  <:,&]36L< ',%p %l$ @Ql<WL''<L\ ( # )2\6L<Hd  PPst+ntj,%(%L  5Ldntst* ntstTntntTst+ntj,%(%L  5LL<2Pnt\Pnt\j *ntj,%(%<  5<3'':N<<0:,+NLL 6L< tPnt\Pnt\PntXPntXPnt\PntXt *ntj,%(%<  5<3'':N<<0:,,NLL 6L<}}ntP$PPst/ntj,%(%L  5L ntst8ntj,%(%L *PntX5L8ntj,%(%L *Pnt\5L nt 2PntXPntX *ntj,%(%<  5<3'':N<<0:,*NLL 6L<2Pnt\Pnt\ *ntj,%(%<  5<3'':N<<0:,-NLL 6L<ntP$  fMc p% L2d`px `,\lhL< H$ H .H ( / B'DH$ HH $>DH10:40%H$ H d 0 )H0H$ @QH,pN%(4%( %,  55Y(4%( %, =    :1]/VpN6c,kNU: 2%4%0H$ H .03)H05$DH$ HH $>D1xHlx0H$ @QH#W!="A#Upt6#W!=4A#Upv6c(kvktp(4%( %H$ XHktD%kvDt%0$ X0$ aP)H06 4ktd\kvdTs447@@P*4p5 fT f\P5ZH$ DHH10:40%H$ H d 0 )H0H$ @QHP(4%( %lxF%P cP,5Cx10:40%H$ H d 0 )H0H$ @QHL/LW!="A#(4"46%4p4dD$Qi4%( %L A *p6fDcL%4lH$ @QH@~(4 %( %H$ XH( %(t%0$ X0$ Q<)H06 pnlnhpfh (4%( %H$ XH4i%(t%0$ X0$ Q)H06pM4 %,c7(4%( %H$ XH H5 :49 8t@ 8too(*(i%(4%( %@ C 5 -(4%( %@ A "(6(,4,d,h?(춖@DipDp.`0,(4`dh.@d.@ 90<---(4%( %H$ XH4i%(t%0$ X0$ Q)H06pM4 %,c(n`j%(4 %( %@ C 5(ndj%(4 %( %@ C 5c@ + : + Tb< ,PL@<0,xP< DH0 ( ;1P:T<%d$ d d P )dPd$ @QdL |U(T%(,%L =    :=]36  |-(T%(,%L A "t6 -(T%(,%L A *x6 HLtLt [LtxLttLp|tx<84PTL@.@$.@\.X.. ..@.@lt.lx.lp.@0,(h.@d.@ >l<-------------&LW !="A#"6 (T%(,%d$ Xd i%(h%P$ XPT $ QTP)dP6 fT%P,  PqcPsltdH $L4i%iT%(,%L C 5 Ld@ 4i%iT%(,%L C 5 :i%iT%(,%L C 5 D j%iT%(,%L C 5 Blxj%iT%(,%L C 5 Bltj%iT%(,%L C 5 D j%iT%(,%L C 5 Z  j%iT%(,%L C 5 Hdj%iT%(, %L C 5 1Q   dsh2nhj%iT%(, %L C 5 tnhnlQnhsl%sh Qdsh2nhj%iT%(, %L C 5 tnhnl.nhsl7%iT%(, %L C 5 7%iT%(, %L C 5 a lxdj%iT%(, %L C 5 t :j%iT%(, %L C 5 8lpj%iT%(,%L C 5  f@ fH(nlj%(T%(,%L C 5 cL\ZXZtZxZpZ< Lb2LPtxp`dPT Op () ;tH +V 1LP$ HP $QL[HPD%7@_ H%>@F0   :?]360  '%_ %P$ @QPn(%(%P$ XP0 (%(%L$ XL  )PL60 +(%(%0 A "qt60 t @+(%(%0 A "ql60 l @t++V^A qpl++V^A qh qx3lxi%(%0  50;lxqxlx3'x':N  0:BN00 60 x8lxplxXP( %(%0 A (%(% Ax h*s\60 xlxd`O1n\pf`|0xLhlptt.Lt .P.T@.X@\lX.\@`d C@<-\-X-T-P-L&W0!= "A#"60 (%(%P$ XP0i%(%L$ XL H 0$ Hq)PLH60 lxd@*lXpf@(ndj%(%(%0 C 50(n`j%(%(%0 C 50(%(%P$ XP0lxi%(%L$ XL H 0$ QH<)PL60 pM %<,c< XZpZcD%y@@&HD<XD\XTPL@PLH0 xh () ;tH +j 1`d$ Hd $Q`[\dX%7T_ H% >TFD4  4:$D]36D4 '$%_ %d$ @Qd%($%(%D  5D+($%(%D A4 "qx6D4 x @;x++j^A qt<4pp4d3@pf|Y<8txp.llp.@D4Lt.t ..@.@0,(h.@d.@ EX<--------&WD!=4"A#"6D4($ %(%d$ XdDi%(%`$ X`4l4D$ lq)d`l6D4.lxj%($%(%D C 5D>lppj%($%(%D C 5D;lp@k%($%(%D C 5D(nlj%($%(%D C 5D>lppj%($%(%D C 5D;lp@k%($%(%D C 5D>lppj%($ %(%D C 5D;lp@k%($ %(%D C 5D($ %(%d$ XdD 4i%(%`$ X`4l4D$ Qlh)d`6D4pM$ %h,ch pZpZcX%y@&\XhpHTd`lD4d( ;t; +n 1dh$ Hh $Qd[`h\%7X_ H%>XFH8  8:(F]36H8 '(%_ %h$ @Qh8((%(%h$ XhH h5H+((%(%H A8 "qx6H8 x @A%4p4d3@pf}4p|DLt.t ..@.@0,(h.@d.@<8x4tlp.@p. GP<--------&WH!=8"A#"6H8(( %(%h$ XhHi%(%d$ Xd8x8H$ xq)hdx6H8lx p4dp%lp볔p0pd볔pppppY@p fp8lx j%((%(%H C 5H8ltpj%((%(%H C 5H>ltpxj%((%(%H C 5H*i%((%(%H C 5H8lxt j%((%(%H C 5H8ltpj%((%(%H C 5H8ltpj%((%(%H C 5H(( %(%h$ XhH 4i%(%d$ Xd8x8H$ Qxl)hd6H8pM( %l,clpZc\%l@&`\lpHXhdxH8  () ;tH +f 1\`$ H` $Q\[X`T%7P_ H%>PF@0  0: H]36@0 ' %_ %`$ @Q` 8( %(%`$ X`@ `5@+( %(% @ A0 "qx6@0 x @Nx++f^A qt+( %(% @ A0 "qp6@0.lxj%( %(% @ C 5@%,p,d/3Dpf|p<8txlp.Lt.t ..@.@D0,h.@d.@ IH<-------8llpj%( %(% @ C 5@,dMp(@@pfA& W@!=0"A#"6@0( %(%`$ X`@i%(|%\$ X\0h0@$ hq)`\h6@0( %(%`$ X`@,i%(|%\$ X\0h0@$ Qhd)`\6@0pM  %d,cdpZc T%y? 4XT dDP`\h@0h () ;tH +^ 1TX$ HX $QT[PXL%7H_ H%>HF8(  (:J]368( '%_ %X$ @QX8(%(%X$ XX8 X58+(%(%8 A( "qx68( x @Nx++^^A qt;(%(%8 A( Y@*sp68(.lxj%(%(%8 C 58 ql3lli%(%8  58llqlll!ll hlldOi%(%8 A( *lh68(f`= ql!ll hlld=E ll춫ϔlhf|llh.d`dȄp<8tx@4Lt.t ..@.@0,(h.@d.@ K\<-------&W8!=("A#"68((%(%X$ XX8i%(p %T$ XT(\(8$ \q)XT\68((n`j%(%(%8 C 58(ndj%(%(%8 C 58(%(%X$ XX8lli%(p %T$ XT(\(8$ Q\X)XT68(lhM %X,cXhZcL%y$@&PLXhDHXT\8(tpz р LpHLMh@X '':(N0:HLX8 6 X8pzt$b X8Lpz/pt$ Ht $lp0/ptFpz ; L$b ptX( M N O P Q($b |t$ @Qtp qx'l @l@p@  5@Wl @l@p@ =0 0    :]36@0  qxlx3'' :PN000:`RN@@ 6@0 l8llxlQlM`@@ '':N0:PS@0:T 6 @0 cp|(bp(t@0 K 1d:h%x$ x d d )xdx$ @Qx`H(h%(@%` =  U :V]36 Q#@Q#@gH(h%(@%` =  U :W]36 -(\@@@g3'':PN0:hXN  6 c` + Y 3'':PN0:hZN  6  ; (b`$xd      %i 1Ia**(((*********((**((((((*((|q pH)9y99IYiy a**((*****(*(((((((t!p@9IYi !1I9a********((((((((pX)9y99IYiiIY Ya**(((*****((*(**((((((dpPqy )9y99IYia**(((((**(((****(**( p\)9y99IYii a**(((****((*((((*****(($`$`$`$`$!`$I`$q`$`$`$ `( `($9 `$a `0 ` 9&&($`(n곀0* pH"dDEE RASDComputer program for Earthquake Site Response Analysis with LineaZquivalent model@Xomputer rg ba f EathqQ_VBA_PROJECTdir__SRP_0 R__SRP_1G(AX(ITMAXq(PRMUL-(GTYPEv(Stress(Check_Softening  (Error_Flag(i`(ja(kb (WorkBook_Name WorksheetEARTHQ28AF\SF_eera.dll^ITERATEΛACmaxEmax(>TmaxfFOURIERNMAX41LcLOUTMdAMPLIAmaxq'Fmax26L1^LOUT1%L2^LOUT2&NA\^HISTORYH+IALL>STRAINE\NeSPECTRA+DP\SAMSVMYl(Main_calculation (New_WorkBookK (Read_Profile@ (Read_CurvesuI0]SIGNLNMWLŵITYPEQGMODWmW1t_W2u_VS_SH_SHVVSAV~TTM_HL]TPLVIsEmpty CellsValueKFontU FontStyle ColorIndexSqr(StrUCase5 Range  UsedRangeȉRowsUcount0v ClearContents{Ws_Val(Read_EarthquakeEQ_FileNPL@NTLԺXmaxAA{\ Import_Data7 Application*DisplayCommentIndicator׋xlCommentIndicatorOnlyF  (New_AnalysisjDialogs xlDialogOpenShowColumnsp9 ActiveWindow+ NumberFormatRLogdErr_MaxSEr ]Locked (Get_AmplificationCDFAIAX\ (Bad_Layer(Outcrop0s (Get_History (Get_StrainNi (Get_Fourier4 (Get_SpectraNH(Recalculate_Allq4cZRight Workbookk_Defaultj _B_var_Menu0 _B_var_Menu1 _B_var_ForjL(NZu^ _B_var_Chr\; _B_var_LeftQ _B_var_Str _B_var_UCasea _B_str_MidX _B_var_Right9 _B_var_IfPx g H8P$ G@٧o(      !-ak/ iQ9 Rs=oPnsA aPlyi w-h2LFn) E)iTv1l n) >odlрT=  R: <stdole> Zs,dh2 m\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# AutomationDMSForms>OFWJmG3;"D452EE1-E08F-101A-8-02608C4D0BB4"FM20.DLL#MicrosPoft  @. @Object@brary/;!~1?9??00}#0?# 50 rAC7EC6749-6194-11D4-A7DCA17588936c:\windows\WP\VBE\DO.exd`7.E .`M COfficDO@f@c@h z p,2DF8D04C-5BFAcB-BHDE5,AA@42cMSOFF0ICE\97Ìc 8.01@E@BfbVThisWorkbookGT qjWBHkbor2` H1h"E,`b""+jSheetT1G Se't12 R` 9 `MenusG A@ ns F2L/ */gy! \%tĭGtC+Gy2\C"rU~~{ a   SComputer program for Earthquake Site Response Analysis with Linear Equivalent modelam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{00020813-0000-0000-C000-000000000046}#1.3#0#c:\Program Files\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{C7EC6749-6194-11D4-A7DC-000102658893}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\MSOFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Library  Computer program for Earthquake Site Response Analysis with Linear Equivalent modelR:fbThisWorkbook063adc53d2ThisWorkbook`b Sheet1073adc53d2 Sheet19 Menus053ad76da1 MenusgyH0*Compute083adc53d2fComputeC0H\h0H 7te 7te 7te 7te A_IfNameSubThen Excel+ VBAWin16~Win32MacVBA6# EERAstdole`MSFormsCOfficeu ThisWorkbook| _Evaluate Sheet1 Menus!L (Auto_OpenV Menu0KMenuBars% xlWorksheet,Addr MenuItemsCaptionxOnActionMenu1KAddMenu(Deactivate_MenusT (Auto_ClosewDeletex(Activate_Menus1KFlagEnabled۪(Activate_Menus2L(Activate_Menus3M (Display_InfoMsgBoxRChrK~ (Remove_EERAAddIns Installed(Duplicate_Worksheet3Nmat01 Error_Handler4 ActiveSheet%N vbExclamationInputBox (WksVActiveWorkbook WorksheetsCopyƿAfterXSheets (Delete_Worksheet>(Compute(WF_(GTl](D[(G^(H_(ri(TPI_(DEPTHi5(DEPTHM(NVq^(NXs^(NYp^(NC^^(INP=(INPOUTW(DT\(DF\Fmax(MLB^(NLg^(NCVi(NPTH(GAM(GD\](FILTERED(XR_(XI_(Tkis+   $X\dhlpgFJ=lweFJ=lweDFWorkbook @FJ=lwe FJ=lweDF Worksheet fEquivalent-linear Earthquake site Response Analysis &Author: J.P. Bardet @Latest Revision: August 17, 2000  vDocumentation is available from http://geoinfo.usc.edu/geesVBE6.DLL  !` @  !S `WFName Earthquake Profile Iteration fPlease check shear wave veolcity or modulus in row - Only Worksheets Mat, Acceleration, Strain, Ampli, Fourier and Spectra can be duplicated Mat HEnter a Number for New Material Type    _EARTHQ@48 ay& Strain Ampli Spectra (Strain must increase+ h xt#D $X)x\t#d h%lQpx Mat  >Material number is already usedF AfterCopy  !i P  !T p Mat 1 Acceleration Fourier# Selected worksheet cannot be deleted because it is required by EERA Delete Select Cells Value "Check unit weight ItalicFontFontStyleColorIndex Regular 2Please check layer height  !  LInitial damping ratio is not specified W O I zPlease select a layer in Column J for the input ground motionUsedRangeRows count  !.   !f   !e  6Shear modulus must decrease .Strain softening occurs 6Damping ratio must increase  !w   !E 0K*mrU~~~~~~~~~~~~~~~~(~~~~~~ (~~~~~~~~~~~. Nzwe  a a  A  !Iq )Y!A  (Ay1Ay9Ii9Q9! EERA ThisWorkbookSheet1MenusComputeF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA Q y 0F 3c:\Program Files\Microsoft Office\Office\EXCEL9.OLBExcel q @0FC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole yP.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms aa`Igǔaec:\windows\TEMP\VBE\MSForms.exd 9aapL-[DRC:\MSOFFICE\OFFICE\MSO97.DLLOffice )q Auto_Open Auto_CloseActivate_Menus1Activate_Menus2Activate_Menus3 Display_InfoDeactivate_Menus Remove_EERADuplicate_WorksheetDelete_Worksheet  EERAFFdFeFfFMenuItems .Process Earthquake Data Read_EarthquakeCaptionOnActionAdd 6Calculate Compatible Strain Main_Calculation Calculate OutputAddMenu DAcceleration/Velocity/Displacement Get_History Stress-Strain Get_Strain Amplification "Get_Amplification Fourier Spectrum Get_Fourier Response Spectra Get_SpectraF All of the above Recalculate_All &Duplicate Worksheet &Duplicate_Worksheet Delete Worksheet Delete_Worksheet Remove EERA Remove_EERA About EERA Display_InfoEARTHQ eera.dll _EARTHQ@44 _SPECTRA@92Enabled aITERATE _ITERATE@108 aFOURIER _FOURIER@72 aQAMPLI _AMPLI@64 aHISTORY _HISTORY@88 a8STRAIN _STRAIN@80 aaXSPECTRA axMain_calculation Read_Profile Read_CurvesRead_EarthquakeGet_Amplification Get_History Get_Strain Get_Fourier Get_Spectra Bad_Layer New_WorkBookRecalculate_AllOutcrop New_AnalysF Y *.*zFColumns 0Please specify time step 0.000   !K P SHAKE91 XPlease enter equally-spaced frequency values nThe sublayer number should be smaller than or equal to  @Sublayer 1 should be outcropping Sublayer  4 should not be outcropping (m) (ft) 0Units are not recognized 8Please use an EERA data file  !k p @Latest Revision: August 20, 2000>FlagXRXIAFSFNCNXNYFILTEREDADFFmaxACmaxEmaxTmaxrHGDGAMGDNVTPGTDTNLNPTNCVINPINPOUTPRMULITMAXGTYPENMAXLLOUTMAmaxFmax2L1LOUT1L2LOUT2NAIALLEStressNDPSAMSVMYc ! !NZWThisWorkbookThisWorkbookMenusMenusComputeComputeSheet1Sheet1ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Menus Module=Compute Document=Sheet1/&H00000000 HelpFilPROJECTwmhPROJECTSummaryInformation(DocumentSummaryInformation8Xe="" Name="EERA" HelpContextID="0" Description="Computer program for Earthquake Site Response Analysis with Linear Equivalent model" VersionCompatible32="393222000" CMG="8587297729BF2DBF2DBB31BB31" DPB="C9CB656A826A82957E6B82DA846560E6059AE2D2CDE526D7E14489EECD8DDCD6BA40CD55" GC="0D0FA1FFA142A242A242" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=135, 135, 701, 567, C Menus=32, 18, 792, 660, Z Compute=-53, 19, 743, 593, Z Sheet1=66, 66, 600, 506, C  Oh+'0dHP p|Valued Sony Customer@$~~ EERA ՜.+,D՜.+,$ X` hpx  Sheet1  WorksheetsCompObjf FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q Excel add-in4Equivalent-linear Earthquake site Response AnalysisJean-Pierre BardetaCompatibilty eera.dll: August 21, 2000 eera.xls: August 21, 2000 eeram.xls: Earthquake Engineering4 $, August 21, 2000