Advertisement
apexsquirt

[PHP-CLI] Absolute Dirichlet eta function

Apr 27th, 2018
274
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PHP 2.26 KB | None | 0 0
  1. <?php
  2. function color($value,$range) {
  3.  $value = sqrt($value**2);
  4.  if ($value < $range/6) {
  5.   $r = 255/($range/6)*$value;
  6.   $g = 0;
  7.   $b = 0;
  8.  } elseif ($value >= $range/6 && $value < 2*$range/6) {
  9.   $r = 255;
  10.   $g = 255/($range/6)*($value-$range/6);
  11.   $b = 0;
  12.  } elseif ($value >= 2*$range/6 && $value < 3*$range/6) {
  13.   $r = 255-255/($range/6)*($value-2*$range/6);
  14.   $g = 255;
  15.   $b = 0;
  16.  } elseif ($value >= 3*$range/6 && $value < 4*$range/6) {
  17.   $r = 0;
  18.   $g = 255;
  19.   $b = 255/($range/6)*($value-3*$range/6);
  20.  } elseif ($value >= 4*$range/6 && $value < 5*$range/6) {
  21.   $r = 0;
  22.   $g = 255-255/($range/6)*($value-4*$range/6);
  23.   $b = 255;
  24.  } elseif ($value >= 5*$range/6 && $value < 6*$range/6) {
  25.   $r = 255/($range/6)*($value-5*$range/6);
  26.   $g = 0;
  27.   $b = 255;
  28.  } elseif ($value >= 6*$range/6 && $value < 7*$range/6) {
  29.   $r = 255;
  30.   $g = 255/($range/6)*($value-6*$range/6);
  31.   $b = 255;
  32.  } elseif ($value >= 7*$range/6) {
  33.    $r = 255;
  34.    $g = 255;
  35.    $b = 255;
  36.  }
  37.  return "rgb(" . floor($r) . "," . floor($g) . "," . floor($b) . ")";
  38. }
  39. $str = "";
  40. for ($s = 0; $s <= 3; $s += 0.04) {
  41.     for ($t = 0; $t <= 50; $t += 0.08) {
  42.         $re = 0; $im = 0;
  43.         for ($i = 1; $i <= 1000; $i++) {
  44.             $re -= cos(pi()*$i)*cos($t*log($i))/pow($i,$s);
  45.             $im += cos(pi()*$i)*sin($t*log($i))/pow($i,$s);
  46.         }
  47.         $str .= "<div id='($s,$t)' style='position: absolute; left: ".($t/0.08+2/0.08)."; top: ".($s/0.04+1/0.04).
  48.         "; color: " . color(sqrt(($im)**2+($re)**2),pi())."'>.</div>\n";
  49.     }
  50.     print "$s\n";
  51. }
  52. print $str . "<div style='position: absolute; left: 15px; top: 25px'>..</div>
  53. <div style='position: absolute; left: 15px; top: 50px'>.</div>";
  54. $str2 = "<div style='position: absolute; top: 10px; left: 25px; font-size: 10px'>
  55. |&eta;(s)| = 0 <span style='letter-spacing: -4px'>";
  56. for ($s = 0; $s <= 80; $s++) {
  57.     $str2 .= "<span style='color: " . color($s,70) . "'>&block;</span>";
  58. }
  59. $str2 .= "</span>&nbsp; 7&pi;/6 (that's completely arbitrary)</div>\n";
  60. $fp = fopen("q.html","w");
  61. fwrite($fp,
  62. "<div style='position: absolute; left: 15px; top: 25px'>.</div>
  63. <div style='position: absolute; left: 15px; top: 50px'>.</div>
  64. <div style='position: absolute; left: 15px; top: 75px'>.</div>
  65. <div style='position: absolute; left: 15px; top: 100px'>.</div>\n".$str2.$str);
  66. fclose($fp);
  67. ?>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement