참고 : 수학으로 배우는 파동의 법칙
1st.txt 파일 내용
과거 1등 번호의 첫째 자리
26,38,37,37,23,29,29,29,34,24,37,27,44,37,33,34,26,33,37,35,39,37,38,31,32,29,37,29,27,42,51,22,30,71,42,62,32,28,41,36,59,26,30,36,37,32,30,35,33,42,34,31,31,40,30,29,41,43,26,35,33,27,33,36,37,36,34,36,35,35,32,34,46,33,35,36,21,47,51,41,63,33,30,37,45,43,48,41,37,31,44,33,41,33,41,42,27,41,26,28,41,31,35,39,34,31,48,36,43,32,39,47,52,46,30,32,39,37,78,46,55,33,33,33,27,30,23,36,48,33,34,33,35,34,50,34,30,53,32,33,29,46,33,52,29,31,40,27,40,44,46,30,35,46,68,61,31,42,29,38,33,29,31,34,25,37,52,54,36,35,32,40,34,32,37,53,39,43,36,41,49,29,86,33,40,42,26,44,55,31,40,35,48,42,26,40,26,47,47,42,55,54,46,35,58,32,45,52,41,46,41,43,51,42,40,41,51,38,32,39,35,53,50,36,38,33,53,50,33,45,54,42,43,46,42,39,57,51,32,45,46,43,43,42,31,38,28,62,42,54,41,46,50,43,41,28,42,30,36,40,44,35,32,47,34,47,59,30,46
<?
/*
불연속 푸리에 전개 1st.txt 에 있는 로또 번호 읽기
*/
$n = $_GET["n"]."st.txt"; echo $n."<br>";
$fp = fopen( $n, "r" );
$fr = fread($fp,filesize("1st.txt"));
fclose( $fp );
$fs = explode(",",$fr);
// echo sizeof($fs); 614출력
// Ao 구하기
$sum = 0;
for($i=0;$i<sizeof($fs);$i++)
{
$sum += $fs[$i];
}
echo "Ao = ".$sum / sizeof($fs)."<br>";
// An 구하기
$W = 360/sizeof($fs); //0.5863 각속도
for($k=1;$k<=sizeof($fs);$k++)//각속도 증가
{
$sum = 0;
for($i=0;$i<sizeof($fs);$i++)//614번 반복
{
$sum += $fs[$i] * cos($W*$k*$i*M_PI/180.0);
}
$An = $sum / sizeof($fs) * 2; // 주기로 나누고 2 곱하기
echo "A".$k." = ".$An."<br>";;
//파일저장
$fp = fopen("An.txt","a");
fwrite($fp,$An.",");
}
fclose( $fp );
// Bn 구하기
for($k=1;$k<=sizeof($fs);$k++)//각속도 증가
{
$sum = 0;
for($i=0;$i<sizeof($fs);$i++)//614번 반복
{
$sum += $fs[$i] * sin($W*$k*$i*M_PI/180.0);
}
$Bn = $sum / sizeof($fs) * 2; // 주기로 나누고 2 곱하기
echo "B".$k." = ".$Bn."<br>";;
//파일저장
$fp = fopen("Bn.txt","a");
fwrite($fp,$Bn.",");
}
fclose( $fp );
?>
실행 결과 An.txt
-0.150164662549,-1.19891029738,-0.464295067309,-0.973984647123,-0.936429984125,-0.623029165605,1.55527523649,-0.611839011079,1.43325225024,-0.386705943973,-1.33442175878,0.739720222095,-0.2750022677,1.22014990489,0.139868828231,2.09934979765,-0.385070685358,0.184043195827,-0.35038776768,-0.717097538077,0.053586192549,-1.43255887553,0.613866873752,0.614096535877,0.165273188819,-0.0629022863735,0.767329788493,0.439868028801,-0.0646811127999,-0.773465537175,0.434778775797,-0.236626468251,-1.34044710578,1.58336512658,-1.2217179203,-1.22250798038,-0.470834081708,0.730796192052,-0.409682914472,1.11790490752,-0.0116551311013,-0.643860668503,-0.58252612466,-0.921005534634,-0.329947625027,-0.491820523148,0.592965450418,0.147049184108,0.122293277574,0.348872105335,-0.618183287647,-0.400890646358,-0.670244667667,-0.929743010037,0.476964330178,0.796388313278,0.162901910255,-1.17226106054,-0.852944554183,-0.66071737597,0.548379521711,-0.0107679370824,1.73764559337,-0.795694548869,-0.0741112719027,0.461347349843,-0.481018320253,0.149551462112,-1.33606207302,-0.325164053581,-0.00728766956476,-0.205289433438,-0.190691745614,0.81921407575,0.564559673224,0.0299882508626,-0.205586218597,-1.08608979878,-1.26150713397,0.717115597341,0.807404516503,0.860323667097,1.06166346881,0.502685098725,-1.64846761395,0.90305407403,0.487006239409,-0.900235302896,0.232886381312,1.33179100479,1.08021176027,-0.11242176045,-0.859136924061,0.674183343569,-1.10825180138,0.552818023227,-0.687832318759,-0.117077928639,0.788492581013,0.44474527516,-0.22213127355,0.288421685331,-0.704481670973,-1.69384494162,0.858392430599,-0.565135168138,0.261484104347,1.98932955948,0.450739478481,-1.46033946225,-0.542775937158,0.399028396564,-0.946378815993,0.41291124173,-0.657790352426,-0.339622819799,-1.15516829791,-1.14162803617,-1.74829201456,0.278162126368,-0.117764097543,0.287286415744,0.161015865796,0.685598878953,-0.78229371182,-0.56842015841,-0.271161269684,-0.519841955205,-0.981237800134,-0.0251653915774,-1.10367536003,0.921378918678,-0.34739169299,0.0659808025321,0.0659808025317,-0.347391692991,0.921378918678,-1.10367536003,-0.0251653915773,-0.981237800134,-0.519841955205,-0.271161269684,-0.56842015841,-0.78229371182,0.685598878953,0.161015865796,0.287286415744,-0.117764097543,0.278162126368,-1.74829201456,-1.14162803617,-1.15516829791,-0.3396228198,-0.657790352426,0.41291124173,-0.946378815993,0.399028396564,-0.542775937158,-1.46033946225,0.450739478481,1.98932955948,0.261484104347,-0.565135168139,0.858392430599,-1.69384494162,-0.704481670973,0.288421685331,-0.22213127355,0.44474527516,0.788492581012,-0.117077928639,-0.687832318759,0.552818023227,-1.10825180138,0.674183343569,-0.85913692406,-0.11242176045,1.08021176027,1.33179100479,0.232886381312,-0.900235302896,0.48700623941,0.903054074031,-1.64846761395,0.502685098725,1.06166346881,0.860323667097,0.807404516502,0.717115597341,-1.26150713397,-1.08608979878,-0.205586218597,0.0299882508624,0.564559673223,0.81921407575,-0.190691745614,-0.205289433438,-0.00728766956525,-0.325164053581,-1.33606207302,0.149551462112,-0.481018320253,0.461347349843,-0.0741112719033,-0.79569454887,1.73764559337,-0.0107679370825,0.548379521711,-0.66071737597,-0.852944554183,-1.17226106054,0.162901910255,0.796388313278,0.476964330178,-0.929743010036,-0.670244667667,-0.400890646358,-0.618183287647,0.348872105335,0.122293277573,0.147049184107,0.592965450417,-0.491820523148,-0.329947625027,-0.921005534634,-0.582526124661,-0.643860668502,-0.0116551311004,1.11790490752,-0.409682914472,0.730796192052,-0.470834081708,-1.22250798038,-1.2217179203,1.58336512658,-1.34044710578,-0.236626468251,0.434778775796,-0.773465537175,-0.0646811127999,0.439868028801,0.767329788493,-0.0629022863736,0.165273188819,0.614096535878,0.613866873752,-1.43255887553,0.0535861925489,-0.717097538077,-0.35038776768,0.184043195827,-0.385070685358,2.09934979765,0.139868828231,1.22014990489,-0.2750022677,0.739720222095,-1.33442175878,-0.386705943973,1.43325225024,-0.611839011079,1.55527523649,-0.623029165605,-0.936429984126,-0.973984647123,-0.464295067309,-1.19891029738,-0.150164662552,77.7620817844,
실행결과 Bn.txt
-3.12975084127,-1.775361767,-0.00714625955429,-0.378592163174,-0.850310564096,-1.29831917599,-0.405364821975,0.895108946029,-1.04347734058,-0.00284371510799,0.539412062532,-0.208310771068,-1.05913973112,-0.694829218445,-0.575203047159,-0.508994088209,-0.881619784236,0.543096848886,-0.906803427156,-0.978828551278,0.162548500904,-1.34602358325,1.08210259431,-0.943521151336,0.680943069019,0.552370888539,0.151395032018,0.573738113702,-0.96495600318,0.772577321381,-0.930841879997,0.146491753448,-0.430928864939,0.665055538444,0.068386681565,-0.628697025691,-0.322730805568,-0.635934341153,1.09860679325,-1.28390529228,-0.229039204117,1.40128979945,-0.762276932199,0.884538297425,-0.383229039746,1.14612686336,-0.93556369861,1.10311243393,2.55996541242,-0.914531419128,1.05065300326,-1.06593693944,-0.726535981336,-0.846278516755,1.31685625589,0.64432151742,0.302893407966,0.325800620453,-0.250348661094,-0.0921084425041,-0.275851526817,0.164480853517,0.226261597868,-0.658040093604,1.02790561356,-0.564110705218,0.117847759413,0.182147744674,-0.102944510918,-0.357651786114,-0.564199157988,-0.258725374512,0.841974874246,0.625540664746,0.0682310353522,0.117344707655,0.0206949481766,0.0308192121191,0.0258089619204,-0.600574532547,0.468473673366,0.42659877636,0.487202600278,-0.906953165023,0.295916650316,-0.581269631289,0.0215953284417,-0.819134633239,0.544977022418,-1.29687624521,-0.17464037681,-0.34111834688,-0.29858968471,0.235289317616,1.14082183712,-1.08400967369,-1.2124043726,0.505077760939,-0.888513807927,-1.13801006998,0.771216041154,0.225911933627,-1.23907755753,-1.33758646254,0.392269081275,-0.683423182585,-0.577927106597,1.31337268378,-0.821417923451,0.132702965399,0.321768810276,-0.296441123382,-1.2686911125,-0.669665120822,1.19225414184,-0.097039954835,1.98847140576,-0.707351630609,1.01778220554,0.164839960825,-0.829523130461,0.383514919495,1.06912360883,-0.25292821009,-1.04714141488,0.474543710036,-1.55347214419,-0.162476675076,0.0695502371963,-0.290886131082,-0.235408339773,0.810854963754,0.0618177797815,-0.657476067049,0.657476067049,-0.0618177797817,-0.810854963753,0.235408339774,0.290886131082,-0.0695502371964,0.162476675076,1.55347214419,-0.474543710036,1.04714141488,0.25292821009,-1.06912360883,-0.383514919495,0.829523130461,-0.164839960825,-1.01778220554,0.707351630609,-1.98847140576,0.0970399548349,-1.19225414184,0.669665120822,1.2686911125,0.296441123382,-0.321768810277,-0.132702965399,0.821417923451,-1.31337268378,0.577927106597,0.683423182584,-0.392269081275,1.33758646254,1.23907755753,-0.225911933627,-0.771216041154,1.13801006998,0.888513807927,-0.505077760939,1.2124043726,1.08400967369,-1.14082183712,-0.235289317616,0.29858968471,0.34111834688,0.17464037681,1.29687624521,-0.544977022419,0.819134633239,-0.0215953284418,0.581269631289,-0.295916650316,0.906953165023,-0.487202600279,-0.42659877636,-0.468473673366,0.600574532547,-0.0258089619204,-0.0308192121191,-0.0206949481768,-0.117344707655,-0.068231035352,-0.625540664746,-0.841974874245,0.258725374512,0.564199157988,0.357651786114,0.102944510917,-0.182147744674,-0.117847759414,0.564110705218,-1.02790561356,0.658040093604,-0.226261597869,-0.164480853516,0.275851526817,0.0921084425042,0.250348661093,-0.325800620453,-0.302893407966,-0.64432151742,-1.31685625589,0.846278516755,0.726535981336,1.06593693944,-1.05065300326,0.914531419128,-2.55996541242,-1.10311243393,0.93556369861,-1.14612686336,0.383229039746,-0.884538297425,0.762276932199,-1.40128979945,0.229039204117,1.28390529228,-1.09860679325,0.635934341153,0.322730805568,0.628697025691,-0.0683866815651,-0.665055538444,0.430928864939,-0.146491753448,0.930841879997,-0.772577321381,0.96495600318,-0.573738113702,-0.151395032018,-0.552370888539,-0.680943069019,0.943521151337,-1.08210259431,1.34602358325,-0.162548500904,0.978828551278,0.906803427157,-0.543096848886,0.881619784236,0.50899408821,0.575203047159,0.694829218445,1.05913973111,0.208310771068,-0.539412062532,0.00284371510829,1.04347734058,-0.895108946029,0.405364821975,1.29831917599,0.850310564096,0.378592163174,0.00714625955425,1.775361767,3.12975084127,-2.53875794529E-12,
An.txt 와 Bn.txt 를 아래에서 처리
<?
/*
원래의 파동 구하기
*/
$fp1 = fopen( "An.txt", "r" );
$fr1 = fread($fp1,filesize("An.txt"));
fclose( $fp1 );
$fs1 = explode(",",$fr1);
/*
for($i=0;$i<sizeof($fs1);$i++)
{
echo $fs1[$i].",";
}
*/
$fp2 = fopen( "Bn.txt", "r" );
$fr2 = fread($fp2,filesize("Bn.txt"));
fclose( $fp2 );
$fs2 = explode(",",$fr2);
/*
for($i=0;$i<sizeof($fs2);$i++)
{
echo $fs2[$i].",";
}
*/
// echo sizeof($fs); 614출력
// An 구하기
$Ao = "38.8810408922";//"8.01"; // Ao의 값
echo $Ao."<br>";
$W = 360/(sizeof($fs1)-1); // 각속도
for($i=0;$i<sizeof($fs1);$i++) // 10개
{
$sum = $Ao;
for($k=1;$k<sizeof($fs1);$k++)
{
//0값이면 진폭이 없는 파형으로 간주
// if ($fs1[$k-1] < 0) break;
if ($fs1[$k-1] < 0) continue;
// echo $fs1[$k-1].",".$W.",".$k.",".$i.",".$W*$k.",".deg2rad($W*$k)."<br>";
// echo $fs1[$k-1] * cos(deg2rad($W * $k * $i))."<br>";
$sum += $fs1[$k-1] * cos(deg2rad($W * $k * $i));
// echo $sum."<br>";
}
for($k=1;$k<sizeof($fs2);$k++) //$fs2[]
{
//0값이면 진폭이 없는 파형으로 간주
// if ($fs2[$k-1] < 0) break;
if ($fs2[$k-1] < 0) continue;
// echo $fs2[$k-1] * sin(deg2rad($W * $k * $i))."<br>";
$sum += $fs2[$k-1] * sin(deg2rad($W * $k * $i));
}
echo $sum.",";
}
?>
이렇게 1등 6자리를 각각 구해서 6번 반복
결론 : 이번 주 로또 번호는 8,17,21,39,40,43
추신 : 반복되지 않는 파동도 무한의 구간에서는 반복한다는 책의 내용에 희망을 가지고 만든 내 인생 최대의 역작임.
ㅋㅋㅋㅋㅋ