ࡱ> b  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~Root Entry FH1L8Workbook\_VBA_PROJECT_CUR"01LH1LVBA01L:1L \pICT Ba= ThisWorkbookM̯=h<%8s@"1Arial1Arial1Arial1Arial1Arial1 Arial1$Arial1Arial1Arial1 Arial1 Arial1 Symbol1 Arial1Arial1 Arial1Arial1 Arial1 Arial1Arial1>Arial1>Arial1Arial1Arial1Arial1Arial1Arial1Arial1Symbol1Arial1Arial1Arial1Symbol1Arial1Symbol1 Symbol1 Arial1 Arial1Arial1Arial1 Arial1 Arial1Arial""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.005*0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=,8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)72_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)61_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_) ###0###000 mmm\-yyyy00 0.000 0.00000.00_ ;[Red]\-0.00\ 0.0000_ ;[Red]\-0.0000\ 0.000_ ;[Red]\-0.000\ 0.00_ ;[Red]\-0\  mm:ss.000                + ) , *     "   " " " "  " "  "  "@ "  "  " "  "  " "@ "  "  " "  "        Q      ! $ $ " " "  &                             >  >   >  >   >  P>   > >   >  >  >  >  > P>  P>   > & &   >      1 1  )Q        >  >   >  P>  >  P>  `7 InstructionspQICPeel, Alpha; b; Compute_One Compute_Series# Condition;$ Correction; E; Ea;  emax; ey; Gc; Gd; Ginf; GoToICPeel GoToInstructions Gtot; h; ha;  k0; Mode= n; No= P;   ;1  ;^ R0;  smax_i;   smax_o; sy; Theta;   theta0;"( 9b1,Q. B2M n,Q. B2MPNG  IHDR7SN0PLTE\̨ju-y]CbKGDH cmPPJCmp0712OmZIDATXoheQe/]OSJOʅk&J1z5Wt68Z;Re]i~#/Fienh}! ˔y\ 2թ=iM_ss`=u~x]K9>.f+.޹|?i^#Tmjw6T+0|ݯ37Ŧ9%40PYi w_`n*).M*Z XU'dh7_eW\yJ栒QuČRZ`4YF+*3z?-sn`gxJO4 Z '7dnÀM֌B BƇ_wXj%Sa(Gp˘mImڗl ¯J{F.l= M:}O"Nߋ :[iԃ]¾BG"p['%#IpaitxҥK6G680rci([enqJ(-hM6-}fC9Fo0lXFm}Z[|έ4Sn"'%72?a6Ӭ%^hE'd[~7ghҺ!6=KR{L~RH~C=hZ3'{Oa/Y:!)YIu+=1ZglQ`4 1nŔh/1Z[_Õpe,u}>s&̎y cф 7Ǿ7J3qt/1ʦ *~+Iŭ2&>VK'zC 2='r8R.h`q|>=&SiU`jJ(/sYi=YϿH;IENDB`3  @@  LabNmmnPGPa%EeyhThetadegTest ParametershaEaMPaResultsAdhesive Layerq CorrectionsyAlphak0 (choose one) Power LawBilinearsmax_ismax_ohaEasmaxkoJ/m2GC (optional)eysyLoading / Unloading conditionGd)Gc analysis for peel testing of adhesives3. Activate the row by clicking on any of its cells. GcGdGtot=. Choose any available row and enter the required parameters.6. Explanation of symbolseysyGCGdk0smaxhaEa;If nonzero, the Limiting Maximum Stress Approach is chosen.0G 1. TheoryLoading / Unloading ConditionElastic loading and unloading..Elastic-plastic loading and elastic unloading.&Elastic-plastic loading and unloading.[%][MPa][mm][GPa][N][deg][J/m2]Input parameters:Output parameters:)Young's modulus of the peel arm material.Thickness of the peel arm. Thickness of the adhesive layer.)Young's modulus of the adhesive material.Average peel force. Peel angle.1Nondimensional maximum curvature of the peel arm.One of the three cases:Maximum Stress^Maximum, limiting stress. If zero (or blank), the Linear-Elastic Stiffness Approach is chosen.2S[1. Kinloch AJ, Lau CC, Williams JG, International Journal of Fracture (1994), 66, pp 45-70.$Ex2. Georgiou I, Hadavinia H, Ivankovic A, Kinloch AJ, Tropsa V, Williams JG, The Journal of Adhesion (2003), 79, pp 1-27.Lc1The theory has been also published in two papers:3. Calculating a single case5. TipsShortcut key: CTRL + AShortcut key: CTRL + Z Importantoto the adhesion of packaging laminates, from the Department of Mechanical Engineering, ý.& 4. Calculating a series of cases}The theory behind the calculations was outlined in the PhD thesis by C. C. Lau (1993), entitled A fracture mechanics approach`g. The program will calculate the cases one by one, from the first downward, until a blank row is found.T]8. Enter the parameters for all cases in successive rows.(7-. Activate the first row (top) of the series. 2. Choosing the approachH. Click the button 'Compute a single case' or press the keys 'CTRL + A'.)>FL. Click the button 'Compute a series of cases' of press the keys 'CTRL + Z'.-BJx. The sheet can be scrolled up and down for more rows, and it is not necessary to follow a sequence when entering cases.GtotGinfsmax (o)smax (o)GtotAdhesive fracture energy.Plastic work in bending.Total input energy.Gd / G4 (If both sy and ey are given, only sy is considered)   #$%gPower law n of the peel arm material. If nonzero, the power-law model is chosen (a must be left blank).  QReBilinear a of the peel arm material. If nonzero, the bilinear model is chosen (n must be left blank).  OPx. The Linear-Elastic Stiffness Approach is a more standard option; it yields a single characteristic fracture parameter,'.There is an option from two types of analysis:.l. The Limiting Maximum Stress Approach is a cohesive zone analysis; it describes the fracture process by two&K(If the Limiting Maximum Stress Approach was chosen, then smax (o) = smax) (:;BEFI+ 'Maximum Stress' in the appropriate cell.3Theory by A.J. Kinloch, C.C. Lau and J.G. Williams.)Program by L.F. Kawashita and D.R. Moore.a.kinloch@imperial.ac.ukPeel Arm Propertiesq0#theta0q0Root rotation. Conditionj necessary to define the value of smax precisely. To conduct this analysis, enter a nonzero value for the#"$'U\m the fracture energy Gc. To conduct this analysis, input the data but leave the 'Maximum Stress' cell blank.!gl{. This spreadsheet accepts the same 'drag-and-drop' and 'auto-complete' functions available in standard Excel spreadsheets.SYield stress of the peel arm material. If sy is given, then ey need not be defined.*+,<=>SYield strain of the peel arm material. If ey is given, then sy need not be defined.*+,<=>K(For an elastic-perfectly plastic peel arm, leave both n and a cells blank)78=>$Width of the peel arm and bond line.YInput energy corrected for stored strain energy and tensile dissipations on the peel arm..Calculated maximum stress for the damage zone.Further considerations of the plasticity of the peel arm during peel fracture have suggested that a zero constraint approach is }an appropriate description of the peel arm. This is based on two further papers; one on modelling and one on experimentation:]4. Kawashita LF, Moore DR, Williams JG, Journal of Material Science (2005), 40, pp 4541-4548.(Dr3. Williams JG, Hadavina H, Cotterell B, International Journal of Solids and Structures (2005), 42 , pp 4927-4946.)W^_nThis program is an alternative to the previous version of the ICPeel, which was placed on the Website in 2003.>%D 8This previous version is now called "ICPeel (Historic)".BTo request copies of those, please contact Prof. A. J. Kinloch on:02006 Kinloch, Williams, ý.R0'emaxemaxR0(3Maximum bending strain in the peel arm at the root.0Radius of curvature of the peel arm at the root.;(If both n and a are given, an error message will be shown)  n parameters, the fracture energy Gc and the maximum stress for the damage zone, smax. In this approach, it is"#!$Q R!U ICPeel (2006) ICPeel (2006)*  /N f ^!vB"Z"#$/%&0)H * , .035cc:   e+;@wDK)L  dMbP?_*+%MTEPSON Stylus Photo 830 Seriespv 4dxx64 *** qxx DLLName32=E_DU16BE.DLL L dL 2EPSON Stylus Photo 830 Series ***" =hh??cU}  4} q 4}  4} 4e@@@@@@559 @ @ 9 @@@ @ @ @ @ @       @ @ @ H GGGp 555 6(555555555j5&5555555555555555 7t 4u 4"88888888888888 7X k" kkkkkkkkkkkkkG k" kkkkkkkkkkkkkG 79 7 4[ :Y 4S 4Q 4R llllllllll llllllllll llllllllll mlllllllll mlllllllll mlllllllll 4  rv  rr 7_>0(>*&44 ***** @!@"@#@$@%@&@'@(@*@+@,@-@.@0@1@2@3@4@5@7@8@9@:@<@=@>@?@ 4p "4o #4~ %4q &4 '4} (4s *7T ,4- -4) .4` 07Z 24] 34^ 44a 54\ 77U 94 :4b <7.<;=7=; ><E ?< ?4A ?4G<@@A@B@C@D@E@F@G@H@I@J@K@L@M5N@O@P@Q@R@S@T@U@V@W@X@Y@Z@[@\@]@^@ @=0 @4? @4 A=/ A4> A4B= B4l C< C4m D= D4nE= E4F= F4 G< G4@ G4H H< H4@ H4 I<5 I4@ I4I J<6 J4A J4J K< K4B K4K L> L5C L5LL5555555555 M=4 M4? M4PM4444444444 N= N47O= P<F Q<1 Q4D Q4h R<2 R4D R4i S<g S4D S4 T<8 T4D T4j U? U4> U4k V=f V4? V4W= W4r Xz X4C X4{ Y<3 Y4M Z< Z4@ Z4 [= [4> [4 \q:~ \@? \4;]q ]4N~ ]@@ ]4<^q~ ^@@ ^4=BX*******HH **********4c8d5(8 (     s A?nlogoICyK yK Bhttp://www.me.ic.ac.uk/AACgroup/M}]&`~~  <lcCC@?,M ],Blc lc9 $(<Go to ICPeel >><(,1  $~~  <mcCC@?ab],Bmc  lc9 $(<Go to ICPeel >><('-  $`Xr  S  @\Mp^]`!>@\^ 7 yK a.kinloch@imperial.ac.ukyK @mailto:a.kinloch@imperial.ac.uk Sheet1gg  UbkOt}߅oIѧYiy!1AQaq   dMbP?_*+%MTEPSON Stylus Photo 830 Seriespv 4dhh04 *** qhh DLLName32=E_DU16BE.DLL L dL 2EPSON Stylus Photo 830 Series ***" 7cc??cU} E} F}  U } -}  .} .}  .} .} 3} .} D!Column GColumn HColumn IJ%Bf"IhLQL x, @ @ @ @@@@@@@@@@@@@@@@@@@ !"            # $* $+ $, $d $ $ $y 1 11 $| h iiBBBB~ C CC~ Bo  o&))) sV sss sW sss ' ((((((( ( uU zwzzzzz{  x y  x  y  XOU J KKK uVY vw vwYY\]\]  ^#VMNNOOO t& uW _ `% a$ b c _ _  d  e  d  f  gW P" P' Qc Q8 R Se Sx T T nt uV Y Z [ Z [ Y Y  \  ]  \  ]  \V L! L! L! L! L L L O O Lt: *+++++++222+~ E? A~ E@  ~ E@  ~ E@  ~ E@ A~ E@ ~ E@~ E @ ~ E"@ ~ E$@~ E&@ ~ E(@ ~ E*@ ~ E,@ ~ E.@ ~ E0@ ~ E1@ ~ E2@ ~ E3@ ~ E4@ ~ E5@ ~ E6@///0///////0 D lLrPLLVR>(,&2,(.(..,4,,4... @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@~ E7@ ///00/////00 ~ !E8@!////000///00 ~ "E9@"000000/00000 ~ #E:@#///////////0 ~ $E;@$///////////0 ~ %E<@%000000000000 ~ &E=@&000000/00000 ~ 'E>@'///////////0 ~ (E?@(///////////0 ~ )E@@)000000000000 ~ *E@@*000000/00000 ~ +EA@+///////////0 ~ ,EA@,///////////0 ~ -EB@-000000000000 ~ .EB@.000000/00000 ~ /EC@////////////0 ~ 0EC@0///////////0 ~ 1ED@1000000000000 ~ 2ED@2000000000000 ~ 3EE@3///////////0 ~ 4EE@4///////////0 ~ 5EF@5///////////0 ~ 6EF@6///////////0 ~ 7EG@7000000000000 ~ 8EG@8///////////0 ~ 9EH@9000000/00000 ~ :EH@:///////////0 ~ ;EI@;///////////0 ~ <EI@<000000000000 ~ =EJ@=000000/00000 ~ >EJ@>///////////0 ~ ?EK@?///////////0 Dl0000000000000000000000000000000@@A@B@C@D@E@F@G@H@I@J@K@L@M@N@O@P@Q@R@S@T@U@V@W@X@Y@Z@[@\@]@^@_@~ @EK@@000000000000 ~ AEL@A000000/00000 ~ BEL@B///////////0 ~ CEM@C///////////0 ~ DEM@D000000000000 ~ EEN@E000000/00000 ~ FEN@F///////////0 ~ GEO@G///////////0 ~ HEO@H000000000000 ~ IEP@I000000000000 ~ JE@P@J///////////0 ~ KEP@K///////////0 ~ LEP@L///////////0 ~ MEQ@M///////////0 ~ NE@Q@N///0///////0 ~ OEQ@O///////////0 ~ PEQ@P000000/00000 ~ QER@Q///////////0 ~ RE@R@R///////////0 ~ SER@S000000000000 ~ TER@T000000/00000 ~ UES@U///////////0 ~ VE@S@V///////////0 ~ WES@W000000000000 ~ XES@X000000/00000 ~ YET@Y///////////0 ~ ZE@T@Z///////////0 ~ [ET@[000000000000 ~ \ET@\000000/00000 ~ ]EU@]///////////0 ~ ^E@U@^///////////0 ~ _EU@_000000000000 Dl0000000000000000000000000000000`@a@b@c@d@e@f@g@h@i@j@k@l@m@n@o@p@q@r@s@t@u@v@w@x@y@z@{@|@}@~@@~ `EU@`000000000000 ~ aEV@a///////////0 ~ bE@V@b///////////0 ~ cEV@c000000000000 ~ dEV@d000000000000 ~ eEW@e000000000000 ~ fE@W@f000000000000 ~ gEW@g000000/00000 ~ hEW@h///////////0 ~ iEX@i///////////0 ~ jE@X@j000000000000 ~ kEX@k000000/00000 ~ lEX@l///////////0 ~ mEY@m///////////0 ~ nE@Y@n000000000000 ~ oEY@o000000/00000 ~ pEY@p///////////0 ~ qEZ@q///////////0 ~ rE@Z@r000000000000 ~ sEZ@s000000/00000 ~ tEZ@t///////////0 ~ uE[@u///////////0 ~ vE@[@v000000000000 ~ wE[@w000000000000 ~ xE[@x///////////0 ~ yE\@y///////////0 ~ zE@\@z///////////0 ~ {E\@{///////////0 ~ |E\@|000000000000 ~ }E]@}///////////0 ~ ~E@]@~000000/00000 ~ E]@///////////0 Dl0000000000000000000000000000000@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ E]@///////////0 ~ E^@000000000000 ~ E@^@000000/00000 ~ E^@///////////0 ~ E^@///////////0 ~ E_@000000000000 ~ E@_@000000/00000 ~ E_@///////////0 ~ E_@///////////0 ~ E`@000000000000 ~ E `@000000/00000 ~ E@`@///////////0 ~ E``@///////////0 ~ E`@000000000000 ~ E`@000000000000 ~ E`@///////////0 ~ E`@///////////0 ~ Ea@///////////0 ~ E a@///////////0 ~ E@a@///0///////0 ~ E`a@///////////0 ~ Ea@000000/00000 ~ Ea@///////////0 ~ Ea@///////////0 ~ Ea@000000000000 ~ Eb@000000/00000 ~ E b@///////////0 ~ E@b@///////////0 ~ E`b@000000000000 ~ Eb@000000/00000 ~ Eb@///////////0 ~ Eb@///////////0 Dl0000000000000000000000000000000@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ Eb@000000000000 ~ Ec@000000/00000 ~ E c@///////////0 ~ E@c@///////////0 ~ E`c@000000000000 ~ Ec@000000000000 ~ Ec@///////////0 ~ Ec@///////////0 ~ Ec@000000000000 ~ Ed@000000000000 ~ E d@000000000000 ~ E@d@000000000000 ~ E`d@000000/00000 ~ Ed@///////////0 ~ Ed@///////////0 ~ Ed@000000000000 ~ Ed@000000/00000 ~ Ee@///////////0 ~ E e@///////////0 ~ E@e@000000000000 ~ E`e@000000/00000 ~ Ee@///////////0 ~ Ee@///////////0 ~ Ee@000000000000 ~ Ee@000000/00000 ~ Ef@///////////0 ~ E f@///////////0 ~ E@f@000000000000 ~ E`f@000000000000 ~ Ef@///////////0 ~ Ef@///////////0 ~ Ef@///////////0 Dl0000000000000000000000000000000@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ Ef@///////////0 ~ Eg@000000000000 ~ E g@///////////0 ~ E@g@000000/00000 ~ E`g@///////////0 ~ Eg@///////////0 ~ Eg@000000000000 ~ Eg@000000/00000 ~ Eg@///////////0 ~ Eh@///////////0 ~ E h@000000000000 ~ E@h@000000/00000 ~ E`h@///////////0 ~ Eh@///////////0 ~ Eh@000000000000 ~ Eh@000000/00000 ~ Eh@///////////0 ~ Ei@///////////0 ~ E i@000000000000 ~ E@i@000000000000 ~ E`i@///////////0 ~ Ei@///////////0 ~ Ei@///////////0 ~ Ei@///////////0 ~ Ei@///0///////0 ~ Ej@///////////0 ~ E j@000000/00000 ~ E@j@///////////0 ~ E`j@///////////0 ~ Ej@000000000000 ~ Ej@000000/00000 ~ Ej@///////////0 Dl0000000000000000000000000000000@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ Ej@///////////0 ~ Ek@000000000000 ~ E k@000000/00000 ~ E@k@///////////0 ~ E`k@///////////0 ~ Ek@000000000000 ~ Ek@000000/00000 ~ Ek@///////////0 ~ Ek@///////////0 ~ El@000000000000 ~ E l@000000000000 ~ E@l@///////////0 ~ E`l@///////////0 ~ El@000000000000 ~ El@000000000000 ~ El@000000000000 ~ El@///////////0 ~ Em@///////////0 ~ E m@000000000000 ~ E@m@///////////0 ~ E`m@///////////0 ~ Em@~ Em@~ Em@~ Em@~ En@~ E n@~ E@n@~ E`n@~ En@~ En@~ En@D l000000000000000000000@@@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@~ En@~ Eo@~ E o@~ E@o@~ E`o@~ Eo@~ Eo@~ Eo@~ Eo@~ Ep@~ Ep@~ E p@~ E0p@~ E@p@~ EPp@~ E`p@~ Epp@~ Ep@~ Ep@~ Ep@~ Ep@~ Ep@~ Ep@~ Ep@~ Ep@~ Eq@~ Eq@~ E q@~ E0q@~ E@q@~ EPq@~ E`q@D@l @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@~ Epq@~ !Eq@~ "Eq@~ #Eq@~ $Eq@~ %Eq@~ &Eq@~ 'Eq@~ (Eq@~ )Er@~ *Er@~ +E r@~ ,E0r@~ -E@r@~ .EPr@~ /E`r@~ 0Epr@~ 1Er@~ 2Er@~ 3Er@~ 4Er@~ 5Er@~ 6Er@~ 7Er@~ 8Er@~ 9Es@~ :Es@~ ;E s@~ <E0s@~ =E@s@~ >EPs@~ ?E`s@D@l@@A@B@C@D@E@F@G@H@I@J@K@L@M@N@O@P@Q@R@S@T@U@V@W@X@Y@Z@[@\@]@^@_@~ @Eps@~ AEs@~ BEs@~ CEs@~ DEs@~ EEs@~ FEs@~ GEs@~ HEs@~ IEt@~ JEt@~ KE t@~ LE0t@~ ME@t@~ NEPt@~ OE`t@~ PEpt@~ QEt@~ REt@~ SEt@~ TEt@~ UEt@~ VEt@~ WEt@~ XEt@~ YEu@~ ZEu@~ [E u@~ \E0u@~ ]E@u@~ ^EPu@~ _E`u@D@l`@a@b@c@d@e@f@g@h@i@j@k@l@m@n@o@p@q@r@s@t@u@v@w@x@y@z@{@|@}@~@@~ `Epu@~ aEu@~ bEu@~ cEu@~ dEu@~ eEu@~ fEu@~ gEu@~ hEu@~ iEv@~ jEv@~ kE v@~ lE0v@~ mE@v@~ nEPv@~ oE`v@~ pEpv@~ qEv@~ rEv@~ sEv@~ tEv@~ uEv@~ vEv@~ wEv@~ xEv@~ yEw@~ zEw@~ {E w@~ |E0w@~ }E@w@~ ~EPw@~ E`w@D@l@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ Epw@~ Ew@~ Ew@~ Ew@~ Ew@~ Ew@~ Ew@~ Ew@~ Ew@~ Ex@~ Ex@~ E x@~ E0x@~ E@x@~ EPx@~ E`x@~ Epx@~ Ex@~ Ex@~ Ex@~ Ex@~ Ex@~ Ex@~ Ex@~ Ex@~ Ey@~ Ey@~ E y@~ E0y@~ E@y@~ EPy@~ E`y@D@l@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ Epy@~ Ey@~ Ey@~ Ey@~ Ey@~ Ey@~ Ey@~ Ey@~ Ey@~ Ez@~ Ez@~ E z@~ E0z@~ E@z@~ EPz@~ E`z@~ Epz@~ Ez@~ Ez@~ Ez@~ Ez@~ Ez@~ Ez@~ Ez@~ Ez@~ E{@~ E{@~ E {@~ E0{@~ E@{@~ EP{@~ E`{@D@l@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ Ep{@~ E{@~ E{@~ E{@~ E{@~ E{@~ E{@~ E{@~ E{@~ E|@~ E|@~ E |@~ E0|@~ E@|@~ EP|@~ E`|@~ Ep|@~ E|@~ E|@~ E|@~ E|@~ E|@~ E|@~ E|@~ E|@~ E}@~ E}@~ E }@~ E0}@~ E@}@~ EP}@~ E`}@D@l@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ Ep}@~ E}@~ E}@~ E}@~ E}@~ E}@~ E}@~ E}@~ E}@~ E~@~ E~@~ E ~@~ E0~@~ E@~@~ EP~@~ E`~@~ Ep~@~ E~@~ E~@~ E~@~ E~@~ E~@~ E~@~ E~@~ E~@~ E@~ E@~ E @~ E0@~ E@@~ EP@~ E`@D@l@@@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@~ Ep@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E @~ E(@~ E0@~ E8@~ E@@~ EH@~ EP@~ EX@~ E`@~ Eh@~ Ep@~ Ex@~ E@~ E@~ E@~ E@~ E@~ E@~ E@D@l @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@~ E@~ !E@~ "EȀ@~ #EЀ@~ $E؀@~ %E@~ &E@~ 'E@~ (E@~ )E@~ *E@~ +E@~ ,E@~ -E @~ .E(@~ /E0@~ 0E8@~ 1E@@~ 2EH@~ 3EP@~ 4EX@~ 5E`@~ 6Eh@~ 7Ep@~ 8Ex@~ 9E@~ :E@~ ;E@~ <E@~ =E@~ >E@~ ?E@D@l@@A@B@C@D@E@F@G@H@I@J@K@L@M@N@O@P@Q@R@S@T@U@V@W@X@Y@Z@[@\@]@^@_@~ @E@~ AE@~ BEȁ@~ CEЁ@~ DE؁@~ EE@~ FE@~ GE@~ HE@~ IE@~ JE@~ KE@~ LE@~ ME @~ NE(@~ OE0@~ PE8@~ QE@@~ REH@~ SEP@~ TEX@~ UE`@~ VEh@~ WEp@~ XEx@~ YE@~ ZE@~ [E@~ \E@~ ]E@~ ^E@~ _E@D@l`@a@b@c@d@e@f@g@h@i@j@k@l@m@n@o@p@q@r@s@t@u@v@w@x@y@z@{@|@}@~@@~ `E@~ aE@~ bEȂ@~ cEЂ@~ dE؂@~ eE@~ fE@~ gE@~ hE@~ iE@~ jE@~ kE@~ lE@~ mE @~ nE(@~ oE0@~ pE8@~ qE@@~ rEH@~ sEP@~ tEX@~ uE`@~ vEh@~ wEp@~ xEx@~ yE@~ zE@~ {E@~ |E@~ }E@~ ~E@~ E@D@l@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ E@~ E@~ Eȃ@~ EЃ@~ E؃@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E @~ E(@~ E0@~ E8@~ E@@~ EH@~ EP@~ EX@~ E`@~ Eh@~ Ep@~ Ex@~ E@~ E@~ E@~ E@~ E@~ E@~ E@D@l@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ E@~ E@~ EȄ@~ EЄ@~ E؄@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E @~ E(@~ E0@~ E8@~ E@@~ EH@~ EP@~ EX@~ E`@~ Eh@~ Ep@~ Ex@~ E@~ E@~ E@~ E@~ E@~ E@~ E@D@l@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ E@~ E@~ Eȅ@~ EЅ@~ E؅@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E @~ E(@~ E0@~ E8@~ E@@~ EH@~ EP@~ EX@~ E`@~ Eh@~ Ep@~ Ex@~ E@~ E@~ E@~ E@~ E@~ E@~ E@D@l@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ E@~ E@~ EȆ@~ EІ@~ E؆@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E @~ E(@~ E0@~ E8@~ E@@~ EH@~ EP@~ EX@~ E`@~ Eh@~ Ep@~ Ex@~ E@~ E@~ E@~ E@~ E@~ E@~ E@D@l@@@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@~ E@~ E@~ Eȇ@~ EЇ@~ E؇@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E @~ E(@~ E0@~ E8@~ E@@~ EH@~ EP@~ EX@~ E`@~ Eh@~ Ep@~ Ex@~ E@~ E@~ E@~ E@~ E@~ E@~ E@D@l @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@~ E@~ !E@~ "EȈ@~ #EЈ@~ $E؈@~ %E@~ &E@~ 'E@~ (E@~ )E@~ *E@~ +E@~ ,E@~ -E @~ .E(@~ /E0@~ 0E8@~ 1E@@~ 2EH@~ 3EP@~ 4EX@~ 5E`@~ 6Eh@~ 7Ep@~ 8Ex@~ 9E@~ :E@~ ;E@~ <E@~ =E@~ >E@~ ?E@D@l@@A@B@C@D@E@F@G@H@I@J@K@L@M@N@O@P@Q@R@S@T@U@V@W@X@Y@Z@[@\@]@^@_@~ @E@~ AE@~ BEȉ@~ CEЉ@~ DE؉@~ EE@~ FE@~ GE@~ HE@~ IE@~ JE@~ KE@~ LE@~ ME @~ NE(@~ OE0@~ PE8@~ QE@@~ REH@~ SEP@~ TEX@~ UE`@~ VEh@~ WEp@~ XEx@~ YE@~ ZE@~ [E@~ \E@~ ]E@~ ^E@~ _E@D@l`@a@b@c@d@e@f@g@h@i@j@k@l@m@n@o@p@q@r@s@t@u@v@w@x@y@z@{@|@}@~@@~ `E@~ aE@~ bEȊ@~ cEЊ@~ dE؊@~ eE@~ fE@~ gE@~ hE@~ iE@~ jE@~ kE@~ lE@~ mE @~ nE(@~ oE0@~ pE8@~ qE@@~ rEH@~ sEP@~ tEX@~ uE`@~ vEh@~ wEp@~ xEx@~ yE@~ zE@~ {E@~ |E@~ }E@~ ~E@~ E@D@l@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ E@~ E@~ Eȋ@~ EЋ@~ E؋@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E @~ E(@~ E0@~ E8@~ E@@~ EH@~ EP@~ EX@~ E`@~ Eh@~ Ep@~ Ex@~ E@~ E@~ E@~ E@~ E@~ E@~ E@D@l@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ E@~ E@~ EȌ@~ EЌ@~ E،@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E @~ E(@~ E0@~ E8@~ E@@~ EH@~ EP@~ EX@~ E`@~ Eh@~ Ep@~ Ex@~ E@~ E@~ E@~ E@~ E@~ E@~ E@D@l@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~ E@~ E@~ Eȍ@~ EЍ@~ E؍@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E @~ E(@~ E0@~ E8@~ E@@~ EH@~ EP@~ EX@~ E`@~ Eh@~ Ep@~ Ex@~ E@~ E@~ E@~ E@~ E@~ E@~ E@D@l@@@@@@@@@@@@@@@@@~ E@~ E@~ EȎ@~ EЎ@~ E؎@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E@~ E @~ E(@~ E0@~ E8@&B@8 (    s A?nlogoICyK yK Bhttp://www.me.ic.ac.uk/AACgroup/]&``$~~   <cCC@?4$], Bc$<lc9 $#<$Compute a single case (active row) <~4 #~~   <cCC@?!$ ], Bc%X4c9 $,<-Compute a series of cases (successive rows) <O ,~~  <HcCC@? I v],BHc&tЂc9 $ <<< Back to Instructions<  * CM><d A      J    7 Sheet7ggH Sheet7__SRP_8 __SRP_9BThisWorkbook  !"#$%&'()*+-./02456789;<=>?@ABCDEFGHIJKLMNOQRSUVWXYZ[\]^_`abcdefhijlnopqrstuvwxyz|}~Lz N#<maNR{Q F0 1dO>AsWx0 1dO>AsWmaNR{QME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H0(p % %pxH@HH8BG3A $*\Rffff*024446111c4xAttribute VB_Name = "She@et7" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU (Qy)4`rU @n<jx 2#<~GCV2,tF$Im BWV1x$Im BWV1~GCV2,tME(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H` % %`h8@TT0BG3A $*\Rffff*0D4444defb4xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2rU 1Y #4__SRP_4 ,0__SRP_51BModule1{__SRP_7z)`rU @nrU <$`(`+(`+$`$!`$I`(1*#e8*\R1*#e8*\R1*#e8*\R1*#e8J  P p  8    " " *  ,H "X   V  "4  10  P  1h    ( ,& <&'   Da 8  @RyX   @    *: H T)(D*|h 8xME,> <0<4<8<<<&€  @€$P@ @€&P @€(p @€, @€.0 @€2X @€6@ @€8 @€< @@ @€B( @FH @€J0\ @€L l @€PH @€T @€Vp @Z @€^  ""@€` ##@€d %%@%% h`8,k xH` ( 00i t` k <<i v` + ""*+n(` k kkL z`k € @€ @€"(0 @€x` @€* @0 @€4 @:h@€> @€D8 @€HL @€NX| @€R @X@€\ !!@bH $$@€f  &&@0''@ ` j\n*(rL@ x @x h  ( 0 8 H0HHh (Xx@pX0(hP @ X @ H @@ & JPH"$@ 0 @ @P   dD6N<F2@8 @ @h @ @ @ @ @ @X  tv,.RB>x@( p @@ ` @P @p @ @0 @Tz~@, (  HpX Xp @tl  X @X \ HH``nz  pH(dZ\~@h H@` @(P @L @< @8 @@( @X @p @ @ @  "$&,.*@ @ (TDF@L 4:2 ,&@`< @x, @ @ @ @ 0.06XD$"Lf@  04@8 AA@P Mi@h DLL@ ryC@ S@| 52E@l C4@\ \@(L 0}@< FFD@, -779@@ ~1\l@X cel@p .E @ @ t@ @ @ @ @ @0| @Hl @`\ @xL @< @, @ @ @ @ @  @8 @ @P @h @ @| @l @\ @L @< @(, @@ @X @p @ @ @ @ @ @ @ @0| @Hl @`\ @xL @< @, @ @ @ @ @  @8 @P @h @ @ @| @l @\ @L @< @, @( @@ @ (rJ8d @ @ @`$x$0$@P%X@zl h@(\~<NHL00$H@vl  X0(2^N6D$V"@\ @L @< @, @ @( @X @@ @p @ @ @ @ @ @| @l @0\ @HL @`< @x, @ @ @ @ @ @ @  @8 @ @P @h| @l @\ @L @< @, @ @( @@ @ @X @p @ @ @ @ @| @0l @\ @HL @`< @x, @ @ @ @ @8 @ @ @ @P @h @ | @ l @ \ @ L @ < @ , @! @(! @@! @X! @p! @! @0" @! @! @! @!| @"l @"\ @H"L @`"< @x", @" @" @" @" @# @" @(# @# @@# $@X# @p#| 9$@#l @#\ @#L $@< @#, @$ @ hJ@H$\ @$L @$H @ %8 @4 @$$ @$ 8@$ @% $@% $@8% @h% xR0Z2& ^$@% @ E$@ &X @ @ $@  &@ @ %Z2^%h&p&x&&&&(h(p<FH BG3A $*\Rffff*0444464f6a*\R0*#14*\R1*#10*\R0*#15*\R1*#1c8*\R1*#e8*\R1*#2ac*\R P(h        V   V p   "  |$ &! !  "   $ `$ x&$        l  Zh             ' '  ( @   X  `  x "             (  Z0    8('  0`'  %%%   "j]`H%   B     ( 0 `@          v  X ` Bh  4         ( 0  .8  h  x         B       " f  ` p  [ v   Be(  4p         .  (  #  ""  8@ 28# &p# # (# x"  p% $%% H P B 6X            <U         R 8|@    ( 0 B(8  ` h &o&o$l_"_$l@$lh$l&o_.y*o0  ]` ]]]&]"]]0"]P&]x "j,]     ( HP   )H %,` X,x hP, x " V)  , `,h 8,@,(& 0  $    ,! <P!"(P  Xh )         "!H0Php x B  "j`` ` `(2oH*i.l`6',oH(&` ( (]h(Px0]X@]hx]]0 XHp]] ]H#Programmer: Luiz Kawashita 28.11.03 j!l'\Read and check input values nppkhPStart calculations according to ICPeel flowchart ------------------------------- --> block 1 *  ($r 'L  & 'J --> block 2 *  &  'P--> blocks 3, 4, 5 P L J P 'H DeBilinear model L J P $  P   $ 'HdPower law model L J " P "  " "  "  'HkH:Pre-calculate the criterion for choosing f1(k0) and f2(k0) DBilinear model $  $ '6dPower law model " '6kp --> block 6'N H'<OChoosing approach ------------------------------------------------------------- FOLINEAR STIFFNESS approach ----------------------------------------------------- --> block 7'2 --> block 8A@v --> block 9 H N '<Sets output value of smaxV-? ,  & . ?  < &?'RSMAXIMUM STRESS approach -----------------------------------------------------------d'B B <'> --> block 7'2 solve_ko_smax (0.01)A@xMbP?A@x --> block 8A@v --> block 9 H N '<--> Gc convergence criterion < > '@ @ 'Bk--> End of loopSets output value of smax T'RkXSOutput parameters -----------------------------------------------------------------A@z|p  \Gc$!$~( \Gc$!+~|XoP''4 _B':  2 4 '2  2?  < &? T ?'0 2 6 2'Xd D $ $  2 $  $  $  2  $  $  $  2  $  $  'Xd "  2 "  "  " "  "  2 "    "  "  "  " "  "  "  " "  2  "  "  2 " 'XkHk@ L ($r  ( 0 $r  J X '8-Checking if k0 must be increased or decreased 8 '4 8 e '4d'kp(Checking if convergence has been reached 8'8 8 :'d 8':kiH''4yCxD':  2 4 '2  2?V-? ,  & . ? ?'0 2 6 2'Xdh D $ $  2 $  $  $  2  $  $  $  2  $  $  'XdX "  2 "  "  " "  "  2 "    "  "  "  " "  "  "  " "  2  "  "  2 " 'Xk k L ($r  ( 0 $r  J X '8-Checking if k0 must be increased or decreased 8 '4 8 e '4d 'k (Checking if convergence has been reached 8'8 8':k i  )Equivalent to block 8 in ICPeel flowchart 2'^'Nd 2 6'^ D $  2 2  'Vd 2 " "  "  2 "   "  "  2  "  "  'Vk d '^ D $ $  $   2 $  $  $  2  $  $  2 $ $   $    $  $ $   $   'Vd "  "  2 "  "  " "  "  2 "    "  "  "  "  "  "  " "  "  "   2  "  "  2 "  "  "  'Vkk J V'Nki)Read and check input values'd$'Z \E$!$~ʚ;' \sy$!$~@B' \ey$!$~d'  \n$!$~'" \Alpha$!$~'$ \h$!$~'& \b$!$~' \ha$!$~', \Ea$!$~ʚ;'. \P$!$~'* \Theta$!$~ Z'( \smax_i$!$~@B'T \Ginf$!+~ \Gtot$!+~ \Gd$!+~ \Gc$!+~ \ Correction$!+~ \smax_o$!+~ \k0$!+~ \theta0$!+~ \ Condition$!+~  \Gc$!$~( Processing... \Gc$!+~Checking input values  delastic modulus - 'd'k  '   '  ' k'D'"k & dpeel arm thickness - 'dk`  dspecimen width - 'dk('. dadhesive modulus - 'dk * d peel force - 'dkH ( (  d peel angle - 'dkSet approaches T'Fd'FkChecking errorsd Errors found'n Errors: d'd'nk0i((! Write results  \Gc$!$~( < \Gc$!+~ N \Gd$!+~ H \Gtot$!+~ L \Ginf$!+~d N L \ Correction$!+~ R@B \smax_o$!+~ 0 Z \theta0$!+~ 2 \k0$!+~ ^ \ Condition$!+~ixp'D " $ e#'D " $ e " $e8# " $8If both n and a are zero, a power-law n=0 mode is chosen$Choosing stress-strain model#Peel arm thickness    e   e##   e"2If both sy and ey are given, only sy is considered$ Yield point# ,No bondline consideration($ .e*Bondline consideration but invalid modulus0$ d No errors found@$ Wend& k0 = k0 + 0.001 k0 = k0 - 0.001#$%H%X%%p%p%`%p% End If'dP$8&X&H&h&X&]'  'P&p&&&& Else'K'+ If k0_error < precision * 1000 Then"c" k0_converged = True"! prev_error = k0_error 8 :>~$'& ('&'8' 'solve_k0_linear (1)'&'h'H'''solve_k0_linear (0.1)#p'MbP?A@tear (0'''u While theta >= 2 * ey * 6 * k0 ^ 3 / (1 + 5 * k0 ^ 2) * (0.2 + (0.058 + ha * E / 3 / h / Ea) ^ 0.5) ^ 0.5<#'' d \Gc$!+~#' 0 ( `W$k' dCould not converge k0 'da#'k dF(p8(8(8( dyield point - 'dng cH(X(x( dwork-hardening coefficient - 'dH((`(((solve_k0_linear (0.01)p(x(( d-tensile stress greater than ultimate stress - 'dXH( " $e(p)(1 Cells(activeRow, Range("k0").Column).Activate) MsgBox ("No. of iterations: " & iter)( solve_ko_smax (1) solve_ko_smax (0.1))8 &  2 \R0$!+~''h(( 2 d \emax$!+~P(Attribute VB_Name = "Module1" Dim E, sy, e n, a, h, b@, thetP E"0 As Doublek0, k0_inccri`terioTerror, prev_ Gg?' ious_ gc2_convergedilin ean_app roach9Bo olean ^gt@ot, gbgEdg#chimaxof1,H f2]Pi activeRowD, VditmodeNoInteger PMsgфf> Sub ICPeel_Fast() 'Programmer: Luiz Kawashita 28.11.03 ,A/Cell.rowBRead and check input @valuesEIf Not r@ @s The_GoTo E?*H@l>E@IfBStart c@alculaMs accordi ng toD8 flowch ---> bloM@-1A"g0@9P / b * (1 - Cos(}B)@N\A E hey ^ 2 2Ed'G/ h EeyK$s 3, p4, 5&PA< 1NA/~+$ $g#Else nx ,~a"2MF+ "tensile stress g:|an ultima-a<bvl'Bfl( +8a)@":2c#)).ag###'Power law Z( nC @B(@+ na +7-? #E^te-^e & fo"r`noosA`f1(k0)pf2A =*` n=[db)/*a c?(e(7. ^ .nKnȁgk6dgd;XcB 'ChD%\C4+i 8LINEAR STIFFNESS (7ka0yb= 5WfhapL* 6+^ 3 2*52b40.2Aq50.058h>aQLM"^ 0.5) 0`|K @+`00W'U qWend =e-eU5'solve_0&%Ǥ*0.1 0 *f8)<_G 9mge,hgSets outfv of syo01` ojrKl /h'MAXIMUM,R,o+sSC10 Fak73,]gc7 51'415$o_% (&"$5t&5_&P& &&&15GcqBncehbAbs(-46;Tf !TruEit5 3loopWG66r7q6.i8O:paes _0 @_ 'Paqs((Range("k0").Column)."atrX0Box ("No.Edc: " <& p&<> "" acnd@5iN:u Gc HorizontalAlignment(xlLeftoo "D   Pic FDun0on Z>(JcisioQ dJprev_error = 10# $While Not k0_converged dk0b+RincFRthetaF2 * ey,* (0.2 + (Egc / 3h) ^ 0.5 smaxiP Ifs <=ycriterion Then#f2^ 2U3Else )bilinearS$&(1$6[a!(3 -,* aUhp5+ V- y1a2^)*d+ 8 3 &,/ '/- 4  9) py5AGd+ n'12^@!oAn4n@l4& 2" D)|8{A/4 *@OA@n@2)V"G%1HD' ^MKnd IfGPEGg0=Cos(¿)D- C* gb* f2CC'Checking iBmust be @reased decItB> 0`@ `cprecisgcD)<;-T fTruos+j nce has`!en  chuAbs(b4<%= %h b'##Wen AFunct2 Public E solve_ ( c8 As Doec FaF C@0#J1E+24#<`;n+!A`+ 1CaaqO0.058hEEB`j B;Ġo` @ =/ !"碝2)H1/Qt b`S1\^2`5_d bW-e_p1tbc"b!b2nN b b4%<%$7?&bababubbb b 2baBvF7 "bb &bq1Qb@bbb bt @o X5  '5P"dQ`/ 3 ?O (Z]> / "Msg0& "Could not ^" Sso`  scalculate_Gd() 'Equivalent to@ blockin ICPeel flowcharte1  di1|o1 gd4w !2R@krf1 [fВap]ӰBR1bl[hba`Vd4r$l(fCB2@{Q??Q92 - 8f 0smam?R"2 - a) + 4 * (1p^ 3)Hp`+4 2a 2) ElseC "8f1 =/A+ n) 2 * k0 ^q -&nn(2<1 <)P^ "+P/ j32]3qn))4(, WH6BWp- [b*z-]tnd IfK E gdgbar~f1  AFunction P@ublic  read_inputs() As BooleanH 'R@ a c heck  v`alueserrorMsg"d""PiAtn(1'E@Cells(a#veRow, Range("E").Columf0* 10CsyYsyee / nn a Alpha h h AAb b h9* EEN4PPCthety fTH* J480smaxLJ_i Ginfh= [c]tot^G6dcCoxrre"~&o_Hk0>_ICondi |8H&.HorizontalAli@gnmentUxlLeftFAProcessi`ng...@B 'CAIf E <= 0 @[aa(F& "elastmodulusd a!$a`Yield po|in` SA\ Q_ _g PyC> ?1W/ EA+0= N*u 'bpoth pjare given@, onlyis consideredO  2oo str -`ain elSnaW nrta zero, aPwer-law (n=0R A hose!bilineP~= FaqjPn H3 QFab;Truo%Ђ%work-hardena3coe ffici9- C.Peelm thickns Shg3 o-}b-p-02b  speciF wid@) q Pzb 'No bN*asQ1z?  8B butIid&1ECAobadhesP4O POOforceO33 Or> |18/TF 5l?>Set approa F0pi 8_E@d0 q;-c  1c!0" foun(MO n'Es׭:"akQȧout`_Vul@'Write soOCGCyFerc  gcggg_5tiveRow, Range("Correction").Column) = 100 * gd / g0 Cells(aV smax_o zm$ot0~theta0 ?H180FPiAkU =kR h02eyk{[8eyX *Condic End Funˁ ,(( @(<(@(Μ|(l@\L,((@ ((@|((l@\(L@<, ((@(|6  (<(\0L,(0 (0μ((0|(,(L0l\0( <(0(L(0(\ά|lk( (,(<0(0(l0(|\L,(<0 (((0(0|\(L(l0<,0( k(0(0|l\L(((<0, (0(0Ό|l(\0L(<0, 6 L \|,l L,\L|%p0(4l @L, |l\<|l|\L, |\<, |l\L, |lL, |(  :h 9 t`o`o @L'P%:h%$ La<"i%8$ X8ʚ;)L86<o @L'P%:h%$ La<"i%8$ X8@B)L86<l @L'P%:h%$ La<"i%8$ X8(d )L86<_ @L'P%:h%$ La<"i%8$ X80)L85<_ @L'P%:h%$ La<"i%8$ X8@)L85<l @L'P%:h%$ La<"i%8$ X8(P)L86<l @L'P%:h%$ La<"i%8$ X8(`)L86<l @L'P%:h%$ La<"i%8$ X8()L86<o @L'P%:h%$ La<"i%8$ X8ʚ;)L86<_ @L'P%:h%$ La<"i%8$ X8)L85<y @L'P%:h%$ La<"i%8$ X8k(p)L86<o @L'P%:h%$ La<"i%8$ X8@B)L86<] @L'P%:h%$ La<"i%: %8$ X8)L85<] @L'P%:h%$ La<"i%: %8$ X8)L85<] @L'P%:h%$ La<"i%: %8$ X8)L85<] @L'P%:h %$ La<"i%: %8$ X8)L85<] @L'P%:h%$ La<"i%: %8$ X8)L85<] @L'P%:h%$rU~| 3! i ! I9 Y 1Yq !Aay )i!i a Q yyP,x$ (xah"iXx5h >4pB9 t@`ho@kXHl1Ph (XH0( \1`hPH0 (X]g(l\(XhH0LE)0(X]/h@( ]/H'0Z:X0hE 8al\(Xh( @H((0@L5Eyl\(X0h( 0H00(0(0L6H 8:( (X@hH((@0((( (X0hH0 (X| L H (X 0MbP?@h 5h h 5hL|h( V-?h(XHP0?(p(`PP?@05 fX((h  (XMbP?@h 5h h 5hL|hhHB  y cX(  h 5h:X ]@j`% @x' %:X %$ xah"i%,$ X,HC )x,6hH] @x' %:X %$ xah"i%:` %,$ X,)x,5h` @x' %:X %$ xah"i% @,$ X,)x,5hP$ Hx,hH0@00    fL\ (LyCxD\<<0뫜0(L <,Č?V-?( PĬ?Μ|l?\LB6|M#(L<( ,B 8kL@<(( @,(((<(l@|(@(,\L ((@kL(@|(l\<( @(,((@|(,(l@\(L<(@( B6|( (L0<,(0((0μ(<(l0|0(,\L (0((0(ά|\<k,(l0(L( 0(0(ά|(,(l0\(L0<(( 0(0|(L(l0\<0(, (((0|(l0\L(<0, B6<|<<\epB9 tpkL 0&#2 + 1qend#-+@2Ci:d3ogp boxl">@MlAc1d_$cb''>MsgBox("You have bsied l .-c@ '." _ A & Ch`r(10)'"Do y@ wis0h toZue?",NQu\+OKO,- : Batchr esZeKc3,ZOKCElse,=,C  (>aڳ7ҳ2#հ <"2?!AaH Offset( 0M{ WL\!Ioons>mpleteb>Info>Only, <#0 ` c& QHanstru`x ? zx @x @h @d LHD@t5P <$ (LHD@t`Pp$1@:D%T$ T d@)T@ pZ*T$ (Ta0"iDlT50 l\l(D ]g!f\ @T' %:D %$ Ta0"i%@$ X@(]@)T@60\(D0\\(D0\ \ltzHT'%:Dl0: \%$ TT60 pZ \l3 kZ/T$ (Ta0"iD]\MT50 E(D%(%T$ (T0@@0)T@50$,\l T@0p81d:h%x$ x dd)xde8$ xdp81d:h%x$ x dd)xd8$ xd\ (  cxME46 L LLLLLLL<8<<<( ``@@ka 14`\zH `HkBBz 14@l @\ `Z 0``dk\ ` dk`0`XL%8HhjhhPp@t @@@d p@` ``@P ``@L ``@H @#@(D `@@ P`0 p0@@0x `@h `@d P`X(j~h@@T @pD j$@@ @0 @ `$@ @ @ @ j$@ @ 0@x @h @d 0pBG3A $*\Rffff*0C4444defb*\R1*#e8$*\Rffff*0444464f6a*\R1*#1c8*\R1*#dc*\R1*#e8*\R1*#2ac*\R1*#dc*\R0*#2*\R1*#e8*\R1*#dc*\R1*#e8*\R1*#dce"  1  &(  $8  `px  $ &S   *  "  1     *  0 $8  `px  $  & "f     &H(   P  X h p  x  6 /   E   l h p *( x "1h "1 ]HICPeel$B@al j!l'\4149Testing validity of active row \ 2|kC \:N \$B@HA@h|0o`]ICPeel$B@erInitialising variables ' j!l'Re 'Testing validity of active rowp  PSt|XkPCalculating the number of cases P$!$~  '  'rU $`a$`y$`$`nLz #<?bI"S] FހȚiLtzV86xހȚiLtzV86?bI"S]MESheet1T__SRP_ag__SRP_bkB_VBA_PROJECT(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H0(p % %pxH@HH8BG3A $*\Rffff*05456da30d4xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU )yQ)4`rU @n=0* pHd VBAProject4@j = r BG3A J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\Syst em32\e2.vbCancel'MsgBoxRChrK~ vbQuestion vbOKCancelx?vbOK%Offset (GoToICPeel(GoToInstructions[ Sheet1Workbookk _B_var_ElseIfqm_Defaultj_B_var_k0_converged;beta. _B_var_beta[* _B_var_WhileIfko] Worksheetiterz errHandler }ICPeel_HistoricV_B_var_ICPeel_Historic\@ Z@ 00AA0044DE52}#2.3#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.D     dirmA__SRP_0 {__SRP_1PROJECTwmtlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\Microsoft 6\MSO9.DLL#  9.0 Ob LibraryCMSForms>SFrms3D452EE1-E08FXA-8-02608C4D0BB 4POsEOFM20 'B \&/;"1fmAm00}#0m# 10@Z5FFD1A98-469CDE-A5BE-779939A4706DH.DOCUME~1\lfk\LOCALSTemp\Excel8.0\DL.exd[3".E .`PM D S@heet7GSet7UH2NHB1B,N"B+BBThisWorkbookG@T@iWkbok@ [ 2 op2kbRoduleT1GdRo`zubz1ۀ2-!!b %! 2J222/c=@a+==1 =i+"K*yrU~~~~~~~~~~~~~~~~H~~ iM E\V!  a a a x 1 Y )a X9YAa Y!  VBAProjectSheet7 ThisWorkbookModule1Module2Sheet1ay  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{5FFD1A98-469C-46DE-A5BE-779939A4706D}#2.0#0#C:\DOCUME~1\lfk\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   BG3A   Sheet7024446111c Sheet7NThisWorkbook0D4444defbThisWorkbook2Module10444464f6aModule10hModule20C4444defbModule2c0H Sheet105456da30d Sheet1`xH0`GVAsWDF Worksheet# <  0@P`p(8L\l|  &No. of iterations:  S p ,Could not converge k0 yield point -  Ztensile stress greater than ultimate stress - ICPeel_Historic Instructions?bI"S]ހȚiLtzV86 R0 emax(rU~~{    a 14z 14 ! precision !bThisWorkbookThisWorkbookSheet7Sheet7Module2Module2Sheet1Sheet1Module1Module1ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet7/&H00000000 Module=Module2 Document=Sheet1/&H00000000 Module=Module1 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="1E1CB2BF5E41D145D145D44AD44A" DPB="95973934C7B6E4B6E4491CB7E47166DB9F820B9881FF5F84782B5AB8E773DC266A6FD8DC33DB" GC="0C0EA0CD604561456145" [Host Extender Info] &H00000001={3832D640-CF90-PROJECTSummaryInformation(DocumentSummaryInformation8CompObjm11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet7=0, 0, 0, 0, C Module2=110, 145, 774, 631, Sheet1=0, 0, 0, 0, C Module1=88, 116, 711, 590, Oh+'0HPp| Luiz Fernando KawashitaICTMicrosoft Excel@=@*@1L՜.+,D՜.+,< PXt | Imperial College  InstructionsICPeelAlphab Condition CorrectionEEaemaxeyGcGdGinfGtothhak0nPICPeel!Print_AreaInstructions!Print_AreaR0smax_ismax_osyThetatheta0  Worksheets Named Ranges 8@ _PID_HLINKSAhR !http://www.me.ic.ac.uk/AACgroup/3 mailto:a.kinloch@imperial.ac.ukR!http://www.me.ic.ac.uk/AACgroup/ F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q