ࡱ> 85  !"#$%&'()*+,-./01234679@:;?=AKCDEFGHIJ<NOPQRST>Root Entry FP `Workbookb]CompObjeSummaryInformation(  !#$%&'()*+,-./012345678:;<=>?@ABCDEFHJKLMNOPQ FMicrosoft Excel 2003 WorksheetExcel.Sheet.89q Oh+'0@HTd 'tmtTo HiMicrosoft Macintosh Excel@M@Ω` ՜.+,0 PXl t| DocumentSummaryInformation8_VBA_PROJECT_CUR" @=ɩ``VBA ֩`s`ThisWorkbook ' individual  Julia Set  Worksheets<y \\#~f JvсƹF/<E MIdƒ!xME ZO\pTo Hi Ba= ThisWorkbook=h|.78@"1 `-3 000001 `-3 000001 `-3 000001 `-3 000001 `-3 000001 x`-3 000001Calibri1 Calibri1Calibri14Calibri1 Calibri1Calibri1Calibri1,6Calibri16Calibri16Calibri1>Calibri14Calibri1<Calibri1?Calibri1*h6 Calibri Light1Calibri1 Calibri""#,##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\)                                                                      ff ( &       P  P        `            a>   @  `@@  `@  `@  `  `P@   `P  ||EK.}A} .00\)_ *ef;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *ef ;_ @_ }A} .00\)_ *L;_ @_ }A} .00\)_ *L;_ @_ }A} .00\)_ *L;_ @_ }A} .00\)_ *L;_ @_ }A} .00\)_ *L;_ @_ }A} .00\)_ *L ;_ @_ }A} .00\)_ *23;_ @_ }A} .00\)_ *23;_ @_ }A} .00\)_ *23;_ @_ }A} .00\)_ *23;_ @_ }A}  .00\)_ *23;_ @_ }A}! .00\)_ *23 ;_ @_ }A}" .00\)_ *;_ @_ }A}# .00\)_ *;_ @_ }A}$ .00\)_ *;_ @_ }A}% .00\)_ *;_ @_ }A}& .00\)_ *;_ @_ }A}' .00\)_ * ;_ @_ }A}( .00\)_ *;_ @_ }}) }.00\)_ *;_ @_    }}* .00\)_ *;_ @_ ??? ??? ??? ???}-}/ .00\)_ *}A}0 a.00\)_ *;_ @_ }A}1 .00\)_ *;_ @_ }A}2 .00\)_ *?;_ @_ }A}3 .00\)_ *23;_ @_ }-}4 .00\)_ *}}5 ??v.00\)_ *̙;_ @_    }A}6 }.00\)_ *;_ @_ }A}7 W.00\)_ *;_ @_ }x}8.00\)_ *;_   }}9 ???.00\)_ *;_ ??? ???  ??? ???}-}; .00\)_ *}U}< .00\)_ *;_  }-}= .00\)_ *}(}?.00\)_ *}(}@.00\)_ *}(}A.00\)_ *}(}B.00\)_ *}(}C.00\)_ *}(}D.00\)_ * 20% - Accent1M 20% - Accent1 ef % 20% - Accent2M" 20% - Accent2 ef % 20% - Accent3M& 20% - Accent3 ef % 20% - Accent4M* 20% - Accent4 ef % 20% - Accent5M. 20% - Accent5 ef % 20% - Accent6M2 20% - Accent6  ef % 40% - Accent1M 40% - Accent1 L % 40% - Accent2M# 40% - Accent2 L˭ % 40% - Accent3M' 40% - Accent3 L % 40% - Accent4M+ 40% - Accent4 L % 40% - Accent5M/ 40% - Accent5 L % 40% - Accent6M3 40% - Accent6  L % 60% - Accent1M 60% - Accent1 23 % 60% - Accent2M$ 60% - Accent2 23 % 60% - Accent3M( 60% - Accent3 23 % 60% - Accent4M, 60% - Accent4 23f % 60% - Accent5M0 60% - Accent5 23 %! 60% - Accent6M4 60% - Accent6  23Ў % "Accent1AAccent1 Dr % #Accent2A!Accent2 }1 % $Accent3A%Accent3  % %Accent4A)Accent4  % &Accent5A-Accent5 [ % 'Accent6A1Accent6  pG %(Bad9Bad  %) Calculation Calculation  }% * Check Cell Check Cell  %????????? ???+ Comma,( Comma [0]-&Currency.. Currency [0]/Explanatory TextG5Explanatory Text % 0Good;Good  a%1 Heading 1G Heading 1 DTj%Dr2 Heading 2G Heading 2 DTj%?3 Heading 3G Heading 3 DTj%234 Heading 49 Heading 4 DTj% 5InputuInput ̙ ??v% 6 Linked CellK Linked Cell }% 7NeutralANeutral  W%"Normal 8Noteb Note   9OutputwOutput  ???%????????? ???:$Percent ;Title1Title DTj% <TotalMTotal %DrDr= Warning Text? Warning Text %XTableStyleMedium2PivotStyleLight16`%; Julia Set 8cc  PK![Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,3;rØJB+$G]7O٭VGR.e1a$n%N91G7Z(Lj$>{ҿQ>HjlIh촪b-{gv|g'=/:~E[7 r!7\&0;9$4 kas6r}SXi٬ kGAsPZxC}s7T A`?^R|{֯A)oViנt] f9dQ)/P yt),b-FO@)$zh QGpED 0\UF:W@?i i !SNy?yW޼W6Veda?~ǗH }˯S+.Lۯ_:w9:1c# $BĒ@v_#m' xg:J3F{; pOeXxJ=B5w%%WRُE!ED `)Ǝ}Nec2L>'^I& B ڲǨk|f#a[ ?2(v?B2r O/0epp<^ ø~Lױ䒜t!L䀝#/]1I"8EC&]cf~@^w?!rcH&"@7+̬aWʮ]N[->˜s4{A--FU+";V{IMGDX!; z+Q#O}i!T9g*}@&>itWYK w忋1ؗO-ؗ /-ݔym&Z3A`-X/DT]b+޴1$l~ڞ8vix܊uVg_J9jpۚZ%1Tݜu\w5}Wo/_2:^Ƈ㺗NV>N/S/٨ӎG{|ұ\S|$_4 *9}܉#en8#,Dz!%pbc6KO:UuVVd1^ q8),NrBn(ː0&I$Ae$} Fs+(,-~@- z!8|z]̏}ƴ"ZMn+{VM)u[}B^%UVLfQSwӰ٨];6  #76jt0xrQ CM_-[mvBv9h{4my&Oފv~-*pX A R7 aX zPXdW~Wt]xsKsc2eM\_Wk/=Iy6j۽F]J*^i7A?lG/|Ln4RFEoK͠Vnkt_dm ZO 4[<C@KDSH[LcPkTsX{\\  dMbP?_*+%&?'?(?)?"oQMb?Mb?&DbU } >@BBBBBBBB B B B B BBBBBBBBBBBBBBBBBBB?AAAAAAAA A A A A AAAAAAAAAAAAAAAAAAADl  B!B"B#B$B%B&B'B(B)B*B+B,B-B.B/B0B1B2B3B4B5B6B7B8B9B:B;B<B=B>B?B A!A"A#A$A%A&A'A(A)A*A+A,A-A.A/A0A1A2A3A4A5A6A7A8A9A:A;A<A=A>A?ADl @BABBBCBDBEBFBGBHBIBJBKBLBMBNBOBPBQBRBSBTBUBVBWBXBYBZB[B\B]B^B_B@AAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZA[A\A]A^A_ADl `BaBbBcBdBeBfBgBhBiBjBkBlBmBnBoBpBqBrBsBtBuBvBwBxByBzB{B|B}B~BB`AaAbAcAdAeAfAgAhAiAjAkAlAmAnAoApAqArAsAtAuAvAwAxAyAzA{A|A}A~AADl BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADl BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADl BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADl BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBD AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDl , >@5 Sheet1ggD PSLSS< <(<0<8<N0{00020819-0000-0000-C000-000000000046} ,`@ P%`%(a2_Mac%PPx"   A.oh`xAttribute VB_Name = "ThisWorkbook" Bas0{00020819-0C$0046} z@GlobalSpacFalse bCreatablPredeHclaIdTru @ExposeTemplateDeriv#@ustomizB0P Sub w_ope n() Call DrawJulia2 End <Y\\#MTܰO#[InC F#_JER5xMESheet1 "Module1B_VBA_PROJECTM+dir9GPSLSS< <(<0<8<N0{00020820-0000-0000-C000-000000000046}0p`PUM p x% %0  %xxxxxAttribute VB_Name = "She et1" Basp0{0002`0820- C$0046} zGlobalSpacFalse CreatablPredeclaIdTru @ExposeTemplateDeriv#ustomizB0C0* pHd' VBAProject4@j = r 1cX` J< rstdole>stdole %*\H{00020430-C 0046}#2.0#0#/Applications/Microsoft Excel.app/Contents/Frameworks/OLEAutom.f /Reso@urces/T2.tlb# RgOfficgOfic5gg2DF8D04C-5BFA-101B -BDE5gAAe42gSharedSupport/Type Librari_8mso]U 16.0 Obu Fy)@MSForms>BSFhrms3hD452EE@11" Option Explicit Const CalcSup As I@ntegerh1@00, ZZ.Singl4# Dim i, j, countl4a, b2cr(256, )5i d 5 Sub DrawJulia2(B)GiDat^A0rr(),ng rcVbMsgBoxResu lt Sheet1.Range("A1:I"VC").urior.ColoyhRGBF5S) Activate GInpDut:("i values of V b" & vbCrLf  "defaR ex.: f(z)$z*z + (@-0.75)0.05)i", "D:=",  "PIf St`rPtr(H0` ThenB)@E0xit TEl^s1ARSt!C, ",End If a@ Val(_0):b1 Æ= b1BWhiiU8`"(j - 128) /'!ci&-(is'//'h 0: . 3<=i'Aa * 1.25w:= dxey$Trzxx y5ya,= 2* AbFGL`*@2*3f;(>/$>= (C8 `4 e`Cells5OQB Hgws΁rz"Ai'h:DX@dBB/Microsoft Excel.app/Contents/SharedSupport/Type Libraries/Microsoft Excel.tlb#Microsoft Excel 16.0 Object LibraryD*\H{00020430-0000-0000-C000-000000000046}#2.0#0#/Applications/Microsoft Excel.app/Contents/Frameworks/OLEAutomati-E08F4A-8-02608C4D0BB4?4 4fm20L4B*F 3/;*1}+GA C00}#0B# h0@A;92C78480-A79@;1D0-8ADFA0C91110EBF;MacClass ic^2001//Visual Ba@ for ɱ\2#mU90.E .`PM `B}D\BrThisWdbookGThi`?W@kbAok2E` H1B",\""+BSheet1G Sekt1 2 @  `odule`o`ubA2$d Qˆ!bfice 16.0 Object LibraryThisWorkbookThisWorkbookSheet1Sheet1ModuPROJECTwmGVPROJECT I le1Module1soft Forms 2.0 ObjectID="{5C33DC6D-1647-11D6-A9BF-0040263F9A1B}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Module1 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="3032FDFB01FB01FB01FB01" DPB="6A68A70FE010E010E0" GC="A4A6694999829A829A7D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=15, 1,F\ˆxME HM(@8P " 0v  v*`x h *$  * *  0 @ P`p x ** 6   0R  (0 8 " @HP  p "    DXp $   $ H P h x]dP@]0]`]@]]($@A1:IV256 0%6!Z(\ 0B@^input values of a, b b b+default ex.: f(z) = z*z + (-0.75) + (0.05)i -0.75, 0.05d$`'R R$f|dx R,$h'TkX$T$j'J$T$j''H H @  D F D FAl F DoEvents D H 'HA@ D F D F+P F Ddrawing has done. draw again? p$n'V V rA.koH]] 8 H F  D F+L D  D F+N//cr(i, j) = 0: ci(i, j) = 0k D F$P B>a = (j - 128) / 128 * 1.25 - 0.75: b = -(i - 128) / 128 * 1.25 D F$L'v D F$N'x v v x x J 'z v x  '| z z | | D F+P D F$P B H  't t$ D F 0%~!Z(\d z D F+L | D F+N&kxkpoh`Attribute VB_Name = "Module5, 1196, 622, Sheet1=30, 30, 1211, 637, Module1=-4, -26, 958, 559, Z P0a  '@*\H{000204EF-0000-0000-C000-000000000046}#6.0#9#/Applications/Microsoft Excel.app/Contents/SharedSupport/Type Libraries/VbeEN6.tlb#Visual Basic For Applications^*\H{00020813-0000-0000-C000-000000000046}#1.9#0#/Applications/Microsoft Excel.app/Contents/SharedSupport/Type Libraries/Microsoft Excel.tlb#Microsoft Excel 16.0 Object LibraryD*\H{00020430-0000-0000-C000-000000000046}#2.0#0#/Applications/Microsoft Excel.app/Contents/Frameworks/OLEAutomation.framework/Resources/stdole2.tlb#OLE AutomationH*\H{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.8#0#/Applications/Microsoft Excel.app/Contents/SharedSupport/Type Libraries/mso.tlb#Microsoft Office 16.0 Object LibraryF*\H{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#/Applications/Microsoft Excel.app/Contents/SharedSupport/Type Libraries/fm20.tlb#Microsoft Forms 2.0 Object Library|*\H{92C78480-A79F-11D0-8ADF-00A0C91110EB}#2.0#0#/MacClassic/Microsoft Office 2001/Office/Visual Basic for Applications\2#Microsoft Forms 2.0 Object Library#Microsoft Forms 2.0 Object Library.E .`M  1cX` \ThisWorkbook0r60586331)ThisWorkbook\ Sheet10q605863311 Sheet1\Module10s60586331>Module1ˆ0P0u IʘgA񓏋 -K{(5}7396.HJ:0C>83 bExcel+VBAWin16~Win32Win64xMacVBA6#VBA7#MAC_OFFICE_VERSIONHG VBAProjectstdole`OfficeuMSFormsC ThisWorkbook| _Evaluate workbook_open DrawJulia2Sheet1Worksheet_SelectionChange4TargetFRange  UserForm1)TextBox3SShowModule1bCalcSup:FZZSupi`jacount0vaXcr\ci\d[iDataPArr urc^VbMsgBoxResultڱInterior;Color2FActivate|InputBox vbCrLfDefaultStrPtr6Split)ValJUDGEƹMsgBoxRvbYesNovbYesa?colcode\xoylrz _iz]CellsQBColor8Workbookk WorksheetSelectionChangenl "$&)1? 6