aaronryank · September 29, 2017 00:33
diff --git a/gaussian-distribution.bas b/gaussian-distribution.bas
 0TEXT:HOME:INPUTN:HGR:HCOLOR=3:W=279:H=159:L=W-100:Z=L/10:B=H-100:C=H-60:K=0.5:M=1/(2*3.14159265*N*N):FORI=0TO10STEPK:X=10*I+1:Y=10*I+B:HPLOTX,Y:FORJ=0TOL STEP1:O=10*J/L:D=ABS(5-I):E=ABS(5-O):R=(D*D+E*E)/(2*N*N):G=EXP(-R)*M:A=INT((C*G)/M):X=10*I+Z*O+1:Y=10*I+B-A:HPLOTTOX,Y:IF(I=0)GOTO4
 1IF(J=L)GOTO3
 2V=INT(J/10):IF((J/10)<>V)GOTO5
 3D=ABS(5-I+K):E=ABS(5-O):R=(D*D+E*E)/(2*N*N):U=EXP(-R)/(2*3.14159*N*N):S=INT((C*U)/M):P=10*(I-K)+Z*O+1:Q=10*(I-K)+B-S:HPLOT TOP,Q:HPLOTX,Y
 4IF(J=0)GOTO7:IF(I<10)GOTO5:IF(J=L)GOTO6:V=INT(J/10):IF((J/10)=V)GOTO6
 5HCOLOR=0
 6HPLOTTOX,10*I+B:HCOLOR=3:HPLOTX,Y
 7NEXTJ:NEXTI:HPLOTW+1,H:HPLOTTO101,H:HPLOTTO0+1,H
	0TEXT:HOME:INPUTN:HGR:HCOLOR=3:W=279:H=159:L=W-100:Z=L/10:B=H-100:C=H-60:K=0.5:M=1/(23.14159265NN):FORI=0TO10STEPK:X=10I+1:Y=10I+B:HPLOTX,Y:FORJ=0TOL STEP1:O=10J/L:D=ABS(5-I):E=ABS(5-O):R=(DD+EE)/(2NN):G=EXP(-R)M:A=INT((CG)/M):X=10I+ZO+1:Y=10*I+B-A:HPLOTTOX,Y:IF(I=0)GOTO4
	1IF(J=L)GOTO3
	2V=INT(J/10):IF((J/10)<>V)GOTO5
	3D=ABS(5-I+K):E=ABS(5-O):R=(DD+EE)/(2NN):U=EXP(-R)/(23.14159NN):S=INT((CU)/M):P=10(I-K)+ZO+1:Q=10*(I-K)+B-S:HPLOT TOP,Q:HPLOTX,Y
	4IF(J=0)GOTO7:IF(I<10)GOTO5:IF(J=L)GOTO6:V=INT(J/10):IF((J/10)=V)GOTO6
	5HCOLOR=0
	6HPLOTTOX,10*I+B:HCOLOR=3:HPLOTX,Y
	7NEXTJ:NEXTI:HPLOTW+1,H:HPLOTTO101,H:HPLOTTO0+1,H