【平方根の計算】ルートを素因数分解して簡単にするアルゴリズムPHP
説明
数値の平方根を計算する。
ただ素数で割るだけの処理です。掲載されているPHPプログラムはセキュリティ対策されていません。
また、中学の時に作ったコードをそのまま使っているので雑です。
※その他公式をPHPプログラム化一覧です。
https://kanagawa16.sakura.ne.jp/wp/?cat=12
デモ
PHPコード
<html>
<head>
<meta name="viewport" content="width=device-width,initial-scale=1">
<meta charset="utf-8">
</head>
<form action="" method=POST>
a = <input type="tel" size="50" name=a><br>
<input type="submit" value="送信">
<input type="reset" value="リセット">
</form>
<?php
$a = $_POST["a"];
$r[1] = 1; $q = 1;$ii = 0;
if(!file_exists("素数.txt")){echo "<font color=red><u>[素数.txt]が存在しません。素数だけを改行したもの。</u></font>";exit;}
$lines = file("素数.txt");
foreach($lines as $line){
$line = rtrim($line);
$y = 0;
while ($y <= 50){
$D =$line;
if ($a % $D == 0){
$r[$ii] = $D;
$a = $a/$D;
$e = $ii-1;
if($r[$e] == $r[$ii]){ $q = $r[$ii]*$q; $r[$e] = 1; $r[$ii] = 1; }
}
$y++;
$ii++;
}
}
$y = 0;
$f = 1;
while ($y <= 500){
if($r[$y] != 0 && $r[$y]){$f = $r[$y]*$f;}
$y++;
}
if($a == 0){ $a = 1; }
if($f == 0){ $f = 1; }
$f = $f*$a;
if($q == 1){$q = "";}
if($f == 1){$f = "";}
else{$f = "√{$f}";}
print "{$q}{$f}";
?>
</html>
>素数.txt
2
3
5
7
11
13
17
19
23
29
31
37
41
43
47
53
59
61
67
71
73
79
83
89
97
101
103
107
109
113
127
131
137
139
149
151
157
163
167
173
179
181
191
193
197
199
211
223
227
229
233
239
241
251
257
263
269
271
277
281
283
293
307
311
313
317
331
337
347
349
353
359
367
373
379
383
389
397
401
409
419
421
431
433
439
443
449
457
461
463
467
479
487
491
499
503
ディスカッション
コメント一覧
まだ、コメントがありません