ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: 11071464c6
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '11071464c6'
${ noResults }
bwBASIC/curve.bas

15 lines
325 B
Raw Blame History 

  1.    50 rem 12/13/2019 Ken  curve

  2.    60 SHELL "cls"

  3.   100 REM PLOT A NORMAL DISTRIBUTION CURVE

  4.   120 DEF FNN(X) = EXP(-(X^2/2))/SQR(2*3.14159265)

  5.   140 FOR X = -2 TO 2 STEP .1

  6.   150   LET Y = FNN(X)

  7.   160   LET Y = INT(100*Y)

  8.   170   FOR Z = 1 TO Y

  9.   180     PRINT " ";

  10.   190   NEXT Z

  11.   200   PRINT "*"

  12.   210 NEXT X

  13.   220 END