「カオスとアトラクタ」の編集履歴（バックアップ）一覧はこちら

「カオスとアトラクタ」(2010/07/15 (木) 23:01:33) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

/***********************************************************
	chaos.c -- カオスとアトラクタ
***********************************************************/
#N88BASIC
Dim i As Long
Dim p,k

Input "比例定数: ",k
Input "初期値  : ", p

For i=1 To 101
	Print p,
	
	If (i Mod 4)= 0 Then Print Chr$(13)
		p = p + k * p * (1 - p)
Next

#asciiart(blockquote){
/***********************************************************
	chaos.c -- カオスとアトラクタ
***********************************************************/
#N88BASIC
Dim i As Long
Dim p,k

Input "比例定数: ",k
Input "初期値  : ", p

For i=1 To 101
	Print p,
	
	If (i Mod 4)= 0 Then Print Chr$(13)
		p = p + k * p * (1 - p)
Next

}