メイン　root.html　　　Last modified: Sep 01, 2009
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html;CHARSET=EUC-JP">
<link rel="shortcut icon" href="../favicon.ico">
<TITLE>root of equation</TITLE>
<script src="io.js">document.write("io.js ファイルが見つかりません??<br>")</script>


<SCRIPT LANGUAGE="JavaScript">
<!--
var gx, geps
var pi = Math.PI
var e =  Math.E

function func1(func)
{
    var x = gx
  return eval(func)
}

function func2(func)
{
  var y2
  var x = gx
  var y = eval(func)
  x += geps
  y2 = eval(func)
  return (y2-y)/geps
}

function calc(form, func, init, eps)
{
  var x2, y, i
  var MAX_ROT = 20
  gx = eval(init)
  geps = eval(eps)
  for (i = 0; i < MAX_ROT; i++) {
    x2 = gx-func1(func)/func2(func)
    if (Math.abs((x2-gx)/(x2 == 0 ? gx : x2)) < 1e-14) break
    gx = x2
  }
  gx = x2
  y = func1(func)
  printf("解 x = %.7g   f(x) = %.7g  %s\n", x2, y, (i < MAX_ROT && gx+"" != "NaN" && Math.abs(y) < 1e-14) ? "収束しました" : "収束しませんでした")
  sep(60)
  
}

function sin(x)
{
  return Math.sin(x)
}

function cos(x)
{
  return Math.cos(x)
}

function tan(x)
{
  return Math.tan(x)
}

function asin(x)
{
  return Math.asin(x)
}

function acos(x)
{
  return Math.acos(x)
}

function atan(x)
{
  return Math.atan(x)
}

function exp(x)
{
  return Math.exp(x)
}

function log(x)
{
  return Math.log(x)
}

function log10(x)
{
  return Math.log(x)/Math.log(10)
}

function sqrt(x)
{
  return Math.sqrt(x)
}

function pow(x,y)
{
  return Math.pow(x,y)
}
// --> JavaScript対応ブラウザでないと動作しません。
</SCRIPT>
</HEAD>
<body bgcolor="#ffffff">
<form name="Result">

<font size="+2"><b>ニュートン法による方程式 f(x)=0 の解</b></font>　<a  href="src/root.html"><img src="png/src.png" width=35 height=11 alt="src" align=top></a>　　　　　Last modified: Jun 01, 2006<hr noshade><p>
<font color="#ff0000" size="+2">以下のプログラムのサポートは終了しました。自己責任でお使い下さい。</font>

<table>
<tr><td nowrap colspan=2>関数 ｆ（ｘ）＝ <input NAME="func" VALUE="sin(x)/x" SIZE=70></td></tr>
<tr><td nowrap align=right>初期値 ｘ<sub>0</sub>＝ <input NAME="initial" VALUE="1.0" SIZE=15></td><td nowrap> 　　微小変化値 Δ＝ <input NAME="eps" VALUE="0.000001" SIZE=15></td></tr>
<tr><td align=right><input type="button" VALUE="解を求める" onClick="calc(this.form, this.form.func.value, this.form.initial.value, this.form.eps.value)">　</td>
<td align=left>　<input type="button" VALUE="出力欄クリア" onClick="this.form.result.value=''"></td>
</tr>
<tr>
  <td nowrap colspan=3>解<br><textarea name="result" rows=10 cols=80></textarea></td>
</tr></table>
</form>
<p><hr noshade>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="exa/root.html">使用法</a><br>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <A HREF="javascript:history.go(-1)">直前のページへ戻る</A>　　<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="../mail.html">E-mail to Shigenobu AOKI</a>
<p><center><IMG SRC="../gra/ume5.png" width=121 height=37 ALT="Made with Macintosh"></center>
</body>
</html>


サブ　io.js　　　Last modified: Mar 25, 2004
・ 直前のページへ戻る　　・ E-mail to Shigenobu AOKI

Made with Macintosh