ࡱ> 87  !"#$%&'()*+,-./0123456W_:;<G>?@ABCDEF9HIJKLMOPQRSTUVXbYZ[\]^`acjdefghiklR F"qN5Workbooki_VBA_PROJECT_CUR"Aq=BqVBAAq=Bq 0\p Tomita Hisao Ba= ThisWorkbook=,8@"1Osaka1Osaka1Osaka1Osaka1Osaka1xOsaka"$"#,##0;"$"\-#,##0"$"#,##0;[Red]"$"\-#,##0"$"#,##0.00;"$"\-#,##0.00#"$"#,##0.00;[Red]"$"\-#,##0.007*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.00\)""#,##0;""\-#,##0""#,##0;[Red]""\-#,##0""#,##0.00;""\-#,##0.00#""#,##0.00;[Red]""\-#,##0.0072_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ ?:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_                  & (    @  @  @"  @ 8dq:F3ffff̙̙3f3fff3f3f33333f33333\` GaussPNumQai ipp j0 `4 1ȿ:Oʼ;   @sR`mica n ` sADP1ȿ`nHʼj0Ps@LP`p p((.  sBlsAD:@p+XZlsB$s@v`ip@p+XZl vp+X@HP0ipsBl\pv PZl ipp+Xp+`tpipp dtp6:pj0n ipLD"D@iptpnHj0  n `tpKKKK PKKKKKF@wM ꌿt `  ~`nHj04  0 T ltT^0^EJNRUzXB[ ^`cbf*ii  dMbP?_*+%h"hMb?Mb?U } W     0PP`v(4     Dl  !"#$%&'()*+,-./01203P4P`56v789:;(<=4>? !"#$%&'()*+,-./0123456789:;<=>?Dl @ABCDEFGHIJKLMNOPhQhRh0ShPThP`UhVhvWhXhYhZh[h(\h]h4^h_h@ABCDEFGHIJKLMNOPQRSTUV W~XYrYxY|YYYYZwZ}ZZZ[z [~[\m\o\w\}\\\\\]j]p]t]v]z]]]]]]^k^w^}^^^^_h_p_r_z_|______Dl  F2$ZnF`\a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\pWqWrW0sWPtWP`uWvWvwWxWyWzW{W(|W}W4~WW`e`k`o`u`y`{```````aharataaaabobubyb{bbbbbcfcpcrczcccccdidkdud}ddddde`efejetevez e~eeeeeefcfefgfifofqfsfyf{ffffffffffgfglgz g~gggh_hahihkhmhshwhhhhhhhhidifihinipiriziiiiiiiij]jejuj{jjjjjk^k`kdkhklkrktkxk| k~kkkkkkkkklglklolqlulylllllllm\mhmnmxmzmmmmmmninmnsnunwn}nnnnnnno\o`obofolovoz o~ooooooop]p_pcpipqp{p}ppppppppqfqlqpqtqv q~qqqqqrYr_rarcrirkrsrurwr}rrrrrrrrrrrsfshsnsrsxsssssst]tatetktqtyt{ttttttttu`ubudujulunuruvuxu| u~uuuuuuuuuuv]vevovqvuv{vvvvvvvwZw\w^whwnwrwxwzw|wwwwwwwwwwxYxkxmxsxuxwx}xxxxxxxxy`ybyfylytyz y~yyyyyyz[z]z_zczezgzizmzozwzyz{z}zzzzzzzzzzzzzz{`{b{f{j{p{t{v{z {~{{{{{{{{|Y|_|k|u|w|}|||||||}Z}\}^}d}n}p}r}x}z}| }~}}}}}}}}}}~W~[~e~g~k~o~q~u~y~{~}~~~~~~~~~~`hltx|DlFZZZLZntnWWWWWWWWWWWWWWWW\\\0\P\P`\\v\\\\\(\\4\\W[egkoquy{}Z\^dnprxz| ~Y_kuw}`bfjptvz ~[]_cegimowy{}`bfltz ~Ykmsuw}Z\^hnrxz|]eoqu{`bdjlnrvx| ~]aekqy{fhnrxY_aciksuw}flptv ~]_ciq{}\`bflvz ~imsuw}\hnxzgkoquy^`dhlrtx| ~]eu{dfhnprz_aikmswflz ~cegioqsy{`fjtvz ~iku}fprzouy{hrtekouy{hprz|DlntnZLZZZFjjjjjjjjjjjjjjjj0PP`v(4kw}jptvzmow}z ~w}rx| ~D4lFnZ$2F  0PP`v(4Dl 0PP`v(4Dl ````````` ` ` ` ` `````0`P`P```v`````(``4```Dl `!`"`#`$`%`&`'`(`)`*`+`,`-`.`/`0`1`20`3P`4P``5`6v`7`8`9`:`;(`<`=4`>`?`Dl@`A`B`C`D`E`F`G`H`I`J`K`L`M`N`O`P`Q`R0`SP`TP``U`Vv`W`X`Y`Z`[(`\`]4`^`_`Dl``a`b`c`d`e`f`g`h`i`j`k`l`m`n`o`p`q`r0`sP`tP``u`vv`w`x`y`z`{(`|`}4`~``Dl``````````````````0`P`P```v`````(``4```Dl``````````````````0`P`P```v`````(``4```Dl``````````````````0`P`P```v`````(``4```Dl``````````````````0`P`P```v`````(``4```Dl`>@ 5 Sheet1 Module1= (__SRP_2 __SRP_3+ ThisWorkbook 0"  !"#$%&'()*,-./123456789:;<=>?@BCDEFGHIJKLMNOPQRSTVWX[\]^_`abcdefghijklmnopqrstuvwxyz{|}~@ X @  B&   "      h B( @H "( "6  "0$    "p ,| 0 H.~ x.~  ,| 0 .~ 8.~ hx x d$(A1:IV256  %"!$(&@AZ $Da $A.lh` PITIAL fPhZ 4 4$  %BLACK is unused 4$  $( 2 4$6!$(&h 4 $ 4$ 4 $    4+HRULE 4l@Z 4 4$  %BLACK is unused 4$  $( 2 4$6!$(&h 4 $ 4$  4 $   4+HRULE 4( B > B8 N P  P N$\`x  B > > B  B  $\> P'Hx'HEd'HEdp` $( B  $6!$(& $(  B $6!$(& $(  B $6!$(&$( A128:IV128  %"!$(&8Axis-RA1$( DX1:DX256  %"!$(&8Axis-IZ  B B   'N B $H' $ffpxQJH$#KEM @ ><H<<< <<<<LLLL"<L<P<T<X<\<`<d<h<l<p<t<x<|<D]*\Rffff*2445dffb8*\R1*#c4 *\R1*#180*\R0*#11*\R0*#12 *\R1*#13f*\R1*#b5*\R1*#c0*\Rffff*6445a36a5*\R0*#108$$$$iB$$$$$`B$$$$@N  X>(BX@h @ `P$$$iB 8H $$$$ <h`k`hp$( >fl\H @B @ `@ $X f` `k i`P HX` dk *P    @  PP @ @ @ `8@8 @p 8  @p p  @`   @P Pp8 @@ @0 @ @ @   0@ @  P  P ( @f  h P\  @@ x  P @/ x@ x h(6 @ @ @ (@ @ @ @H  @ h @ @ H @ `    P 8  (@ @ xx @h \ @ f  @d/ B X @ d/ B@  ӡ l` k =i4i2؄i  @X@hI$ " (h6h6h D p (  :Rh &P Xl B$f'B P B$\ B P 'fEdh Phd B 'fEdH $(  B $6!$(& $(  B $6!$(& $( B  $6!$(& B > B $( B  $6!$(& $(  B $6!$(& $(  B $6!$(& $(  B $6!$(& $(  B $6!$(& $( B  $6!$(& B Al B  All $( B  $6!$(& $( B  $6!$(& $(  B $6!$(& $(  B $6!$(& $(  B $6!$(& $(  B $6!$(& $( B  $6!$(& $( B  $6!$(&'HEd'fEd Z $( 4 2 $6!$(&& $( 4 2 $6!$(& $( 2 4 $6!$(& $( 2 4 $6!$(& $( 2 4 $6!$(& $( 2 4 $6!$(& $( 4 2 $6!$(& $( 4 2 $6!$(& @'f ( N  N   Z(@upper limit is 127 h(4m+3̎fKEXf<a^2+b^2fȂKEXf =Call Plot(1, 0, 1) 'Pił1ɑj̃vbg ````$H8L\  StEpLAttribute VB_Name = "Module1" Option Explicit Const RADIUS As In tegerf40 'upplimit is 127 Sub GaussPrimeNum() Dim a,` b, cF+heet1.Range("A1:IV256").hrior.ColooQB (15H) S 528712874) 'A xis-RDXp1:DX;I } 'Call Plot(1, 0, 1) 'Pił1ɑj̃vbg!Flap2 To !c Chk(a)/ ::c Next aL+1+ baSqr (v* - (va3*E&Norm%tK'{ (b2DoEv0ents.End FuncB?ByVal aHZ'4m+H3YfZKEX›^pIA.B@p@3@a) Step 2 IfA> p)@ 0 Th !I/YH : AORkQ, cbl+ 'a^2+ b^2b+Ȃb+n, ,"n"a *@5+ b=Bn > 2) A =(n ,20) , 15l+$  9n9 9x < A8(q/b+col(,.row))#z@Cells(+`8, !B8$c--r(&@_B4Ch3 & _C_..NUr~}  a  Y 1 A 9!ph"i  h|iii0h"i  h|iii0h"i  h|iii0(h   ~V(h`hR((h0P@ 2* khP&  ~ , ~`pD,p` 8$P@ ""-* !kd*R&#"7((` D"h6p/x'hr""2* !kd$h/d ,xh4|"i hh|i\i"i hh|i\i~"i hh|i\i~"i hh|i\i|"i hh|i\i"i hh|i\i~"i hh|i\i~"i hh|i\i X   l#t $xa$x/Ur `$`) `.1` pxJW#vEM (LSSS<'0{00020819-0000-0000-C000-000000000046}8($HxAttribute VB_Name = "ThisWorkbook" Bas0{00020819-0C$0046} zCreatablAFalse PredeclaDIdTru !E xposeTemplateDeriv#bCus`tomiza<ݥFڸˌ7 FݟqFڸˌ7x JU#ݟqFڸˌ7ݥFڸˌ7jF4EM(LSSS"6Sheet1 A__SRP_4U__SRP_5Y@_VBA_PROJECTZp '0{00020820-0000-0000-C000-000000000046}D]*\Rffff*6445a36a5($H0h $  $ $p@8xAttribute VB_Name = "She et1" Basp0{0002`0820- C$0046} zCreatablFalse PredeclaIdTru !@ExposeTemplateD0eriv#bCustomizaUr  1 4 Y }eUr @pad '*\H{000204EF-0000-0000-C000-000000000046}#3.0#9#Macintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications\0#Visual Basic For Applications*\H{00020813-0000-0000-C000-000000000046}#1.4#0#Macintosh HD:Applications:Microsoft Office 2004:Office:Type Libraries:Excel 11 Type Library#Microsoft Excel 11.0 Object Library*\H{00020430-0000-0000-C000-000000000046}#2.0#0#Macintosh HD:システムフォルダ:機能拡張:Type Libraries:Standard OLE Types 2#OLE Automation*\H{92396810-A79F-11D0-8ADF-00A0C91110EB}#2.0#0#Macintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications\3#Microsoft Forms 2.0 Object Library*\H{92C78480-A79F-11D0-8ADF-00A0C91110EB}#2.0#0#Macintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications\2#Microsoft Forms 2.0 Object Library E..`M *\H{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#Macintosh HD:Microsoft Office 98:Office:Microsoft Office 98\0#Microsoft Office 8.0 Object Library D]JModule1 2445dffb8*DH0$ ThisWorkbook 2445a2fb0*D9W~Sheet1 6445a36a5*D!U0NP07pAڸˌ78Aڸˌ79]Aڸˌ706J'8 As bbooleanByValCall=DimDelseHEndifSFalseUFor_Goto`IfkIntegerModStepSubThenToTrue ExcelA+ VBAAWin16A~Win32AMacA VBAProjectAstdoleA`MSFormsACOfficeAu Module1Ab _EvaluateACOLORSAJHDIVISORAcellfracAiA`cAZ Sheet1ARangeA ڀInteriorA;ColorAF2QBColorA8SETTINGA|EVENTURNAxCODDTURNAjAarowAωcolAHCellsA ThisWorkbookA|WorkbookAk (GaussPrimeNumACRADIUSAVrAiaAXsqrtA%^flagA(NormChkAtureAQnAsAnAepAgiiA]jjA]nestA  WorksheetA _B_var_sqrtASqrA(_DefaultAjxAoyAlOUTAZ(PrimeChkAC NormA>P_B_var_jA (PlotAXl!   9 6ᲀ0 H  VBAProject4@ Z= r ]D %J< rst dole>stdole %*\H{0002`0430-C 0046}#2.0#0#Macintosh HD:VXetH_:@\g:Type Libraries:Standard OLE s 2#Automatidir__SRP_0 __SRP_1PROJECTwmVonEMSForms>SF[rms/; 1*\G\PU \00}#:0\#0092C78480-A79F-11D0-8ADF5A0C91110EB@Applic6s:Microsoft Offic(e 2T::Visual Basic for \2#BE b ObDXy*.E .`M OfQ@ic:2DF8D04C-5BFA-101B-BDE5:A+42:N7986\C(8.04B"Jodule1 2Ċou¸16(HB1ɻ$XB,BHT!B+BThisWorkbookN2A Thi@W¦kbokP~W" uSheetUg2bS e5tZqN`mU " K*dUr~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ .݇ڇz$2" 'a  A Q )q a  !y VBAProjectModule1 ThisWorkbookSheet1FVMacintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications0VBA 1 Y(F[Macintosh HD:Applications:Microsoft Office 2004:Office:Type Libraries:Excel 11 Type LibraryExcel ya80FJMacintosh HD:VXetH_:@\g:Type Libraries:Standard OLE Types 2stdole  H9hЊVMacintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications3MSForms iAX E..`M DŽЊVMacintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications2 ih-L[DR=Macintosh HD:Microsoft Office 98:Office:Microsoft Office 980Office  x GaussPrimeNumNormChk  M $|FݥFڸˌ7 FݟqFڸˌ7DF Worksheet  @/ FF&| pF) A1:IV256f $|FF%x)1 )InteriorColorV  #x  A128:CX128  CX1:CX128  A128:IV128  DX1:CX256  DX1:DX256PrimeChkPlot/Ur~}  iijj y YabccolrowbModule1Module1ThisWorkbookThisWorkbookSheet1Sheet1ID="{AE24D71E-BFFD-11D7-A36C-B60F1135001E}" Module=Module1 Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Name="VBAProject" HelpContextID="0" CMG="7072836187618761876187" DPROJECTSummaryInformation(DocumentSummaryInformation8CompObj[PB="E0E213D414D414D4" GC="5052A344A444A4BB" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=210, 24, 708, 316, CZ ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C  Oh+'08@Ld |tmt Tomita HisaoExMicrosoft Excel@L  T ՜.+,0 PXl t|  individual  GaussPNum ワークシート FMicrosoft Excel [NV[g8FIBExcel.Sheet.8