/***********************************************************
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
