## Sunday, October 31, 2010

### Twinkle Twinkle

clg
font "arial",10,100
Dim note(50)
Dim time(50)
note={0,0,7,7,9,9,7,5,5,4,4,2,2,0,7,7,5,5,4,4,2,7,7,5,5,4,4,2,-1,-1,7,7,9,9,7,5,5,4,4,2,2,0}
time={1,1,1,1,1,1,2,1,1,1,1,1,1,2,1,1,1,1,1,1,2,1,1,1,1,1,1,2,1 ,1 ,1,1,1,1,2,1,1,1,1,1,1,2}
outoftune=0
for n = 0 to 12
text 0,494-262*2^(n/12),int(262*2^(n/12))+"hz"
line 30,500-262*2^(n/12),300,500-262*2^(n/12)
next n
for a = 0 to 49
f=1+outoftune*(rand-0.5)
hz=f*262*2^(note[a]/12)
sound hz,time[a]*200
rect 40+a*5,297-(hz-200),time[a]*4,7
next a

## Thursday, October 28, 2010

### Combined events

fastgraphics : Dim a(5):Dim c(5)
Dim list(30)
font "arial",10,100
clg
For n = 1 to 4
a[n]=int(rand*8+1) : c[n]=int(rand*8+1)
next n
for draw = 1 to 600
x=int(rand*4+1): z=int(rand*4+1)
color red
rect x*20,20,15,15
color green
rect z*20+200,20,15,15
color black
For n = 1 to 4
text n*20,20,a[n]
text n*20+200,20, c[n]
next n
Print a[x] + "+" +c[z]+ "="+(a[x]+c[z])
list[a[x]+c[z]]=list[a[x]+c[z]]+1
For w = 2 to 18
text 15,14*w+10,w
rect 35,14*w+12,list[w]*2,10
next w
if draw = 3 then input "Wich sum is more frequent " , a\$
refresh
pause 2/draw
clg
next draw

## Wednesday, October 27, 2010

### Force and Drag

clg
fastgraphics
rem Initial variables
speed = 0:density=1.2 : area=2:pullforce=1000
mass=1400: dist =0 :time=0 :dragcoef=.35
dt=0.005 : c=0
font "arial",15,15
while speed<200
drag=0.5*density*speed^2*area*dragcoef
acc=((pullforce-drag)/mass)*dt
clg
speed = speed + acc
dist = dist + (speed)*dt
time = time + dt
text 10,10 ,"Time "+int(time)+" sec"
text 10,30, "Speed "+int(speed)+"m/s "+int(speed*3.6)+"km/h"
text 10,50 ,"Distance "+int(dist)+"m"
text 10,70 ,"Acceleration "+((pullforce-drag)/mass)+"m/s^2"
text 10,90 ,"Work "+int(dist*pullforce/1000)+" kj"
text 10,110 ,"Power "+int(speed*pullforce/1000)+" kw "+int(speed*pullforce/750)+"hp"
c=c + (speed)*dt
text 150,220," |''''''|'''''''|''''\"
text 150,235," |''''''|'''''''|'''''o"
text 150,250," '-(0)---(0)='"
text 1-c,255,"......................................."+(dist-c)+"m .............................................................."
if 150-c<0 then c=c-150
refresh
end while

## Tuesday, October 26, 2010

### Force and Friction

clg
fastgraphics
rem Initial variables
speed = 0:pullforce=500
mass=40: dist =0 :time=0 :frictioncoef=.5
dt=0.005 : c=0 : fforce=mass*9.81*frictioncoef
acc=((pullforce-fforce)/mass)*dt
while time<30
clg
if pullforce > fforce then speed = speed + acc
dist = dist + (speed)*dt
time = time + dt
text 10,10 ,"Time "+time+" sec"
text 10,20, "Speed "+speed+"m/s"
text 10,30 ,"Distance "+int(dist)+"m"
text 10,40 ,"Acceleration "+((pullforce-fforce)/mass)+"m/s^2"
text 130,120 ,"Mass "+mass+"Kg"
text 10,140 ,fforce+" N <---Friction ---------------------------Pull--->"+pullforce+" N"
rect 120,145,60,20
c=c + (speed)*dt
text 1-c,155,"......................................."+(dist-c)+"m .............................................................."
if 150-c<0 then c=c-150
refresh
end while

## Sunday, October 24, 2010

### Linear colisions

fastgraphics

m1=4 : v1=10 :p1=57
m2=20 : v2=0 : p2=150
elast=.5
font "arial",15,15
While abs(p1-150)<151 and abs(p2-150)<151
clg
Text 0,10,"Pos1= "+int(p1)
Text 130,10,"Vel1= "+v1
Text 0,40,"Pos2="+int(p2)
Text 130,40,"Vel2="+v2
circle p1,150,m1
circle p2,150,m2
refresh
p1=p1+v1
p2=p2+v2
if abs(p1-p2)<=m1+m2 then
v11=v1
v1=(elast*m2*(v2-v1)+m1*v1+m2*v2)/(m1+m2)
v2=(elast*m1*(v11-v2)+m1*v11+m2*v2)/(m1+m2)
end if
pause.05
end while

## Saturday, October 23, 2010

### Bubble sort

fastgraphics : Dim a(32): flag=1
For n = 1 to 30
a[n]=int(rand*20+1)
next n
while flag=1
flag=0
For n = 1 to 30
clg
For w = 1 to 30
text 15,10*w,a[w]
rect 40,10*w,a[w]*10,7
next w
pause .01
refresh
if a[n]> a[n+1] then
x=a[n]
a[n]=a[n+1]
a[n+1]=x
flag=1
end if
next n
end while

## Friday, October 22, 2010

### Binomial Distribution

clg
Dim p(300)
for z=0 to 100000
sum =0
for n = 1 to 300
if int(rand*2)=1 then sum=sum+1
next n
rect sum,300-p[sum],1,300
p[sum]=p[sum]+1
next z

## Saturday, October 16, 2010

clg
a=int(rand*5+2)
b=int(rand*5)+a
c=int(rand*2+1)
d=int(rand*5+1)+c
Print a+" + "+c
Print b+"    "+d
w=170 : k=0 : gosub lines
for n = 0 to 400
circle rand*130*(a/b),rand*130,1
circle rand*130+170,rand*130*(c/d),1
next n
input "Press enter for the answer", a\$
w=0 : k=169 : gosub lines
Print "="+(a*d+c*b)+"/"+b*d
lines:
for n = 0 to 130 step 130/b
line n+k,0,n+k,130
next n
for n = 0 to 130 step 130/d
line 0+w,n,130+w,n
next n
return

### Multiplying Fractions

clg

a=int(rand*5+1)
b=int(rand*5)+a
c=int(rand*5+1)
d=int(rand*5+1)+c
Print a+" X "+c
Print b+"    "+d
for n = 0 to 299 step 299/b
line n,0,n,299
next n
for n = 0 to 500
circle rand*300*(a/b),rand*300,2
next n
for n = 0 to 299 step 299/d
line 0,n,299,n
next n
for n = 0 to 1500
circle rand*300*(a/b),rand*300*(c/d),2
next n

## Friday, October 15, 2010

### Projectile

clg
fastgraphics
rem Initial variables
speed = 70 :gravity = 9.81
angle=70: height=0 :h1=0 :distance=0
t=0:dt=0.005

angle=pi*angle/180
hspeed = speed*cos(angle)
vspeed = speed*sin(angle)
while height>=h1
clg
t=t+dt : h1=height
vspeed = vspeed - gravity*dt
height = height + vspeed*dt
distance = distance + hspeed*dt
circle distance,300-height,3
text 10,10 ,"Time "+t
text 10,20, "Height "+height
text 10,30 ,"Distance "+distance
refresh
end while

## Wednesday, October 13, 2010

### Inequalities

clg

rem generate graph
for y = -5 to 5 : for x = -5 to 5
circle int(30*x)+150, int(30*y)+ 150,3
next x : next y
line 150,0,150,300 : line 0,150,300,150
rem generate lines
color red
m1=int(rand*8-4)/(int(rand*4+1)): c1=int(rand*8-4)
m2=int(rand*8-4)/(int(rand*4+1)): c2=int(rand*8-4)
for x = -5 to 5 step .02
y1 = m1*x+c1
y2 = m2*x+c2
circle 30*x +150, 150 - 30*y1,1
circle 30*x +150, 150 - 30*y2,1
next x
for n = 1 to 5000
x=rand*10-5
y=rand*10-5
if y > m1*x+c1 and y < m2*x+c2 then
circle 30*x +150, 150 - 30*y,1
end if
next n
input "The area is defined by",a\$
print "y>"+m1+"x"+"+"+c1
print
print "y<"+m2+"x"+"+"+c2

## Tuesday, October 12, 2010

### HCF

a=420
b=360
c= int ((a+b)/2)
loop:
if a/c = int (a/c) and b/c = int (b/c) then
print "The highest common factor to a and b is "+ c
end
end if
c=c-1
goto loop

### Prime factorization

for m=2 to 1000
n=m
print n+"=";
for f = 2 to n
if n/f = int (n/f) then
n=n/f
print f+"x";
f=f-1
end if
next f
print
next m

## Monday, October 11, 2010

### Spiral

clg
angle = 1
do
gosub polarcoordinates
angle = angle+2
circle 150+x,150+y,2
color rgb(int(rand*2)*255,int(rand*2)*255,int(rand*2)*255)
end
polarcoordinates:
return

## Sunday, October 10, 2010

### Compound interest

clg
color red
value=10
f=150/value
intrest=2
for y = 1 to 40
value=value*(1+intrest/100)
print y+" "+value
rect y*5 ,300-value*f,4,value*f
next y

### Mandala

clg

x1=80
y1=70
d =200
angle = 90
for s = 1 to 200
gosub lines
angle = angle + 111
next s
lines:
r = (angle/180)*3.14159
y2=y1 + (sin (r))*d
x2=x1 - (cos (r))*d
line x1,y1,x2,y2
x1=x2
y1=y2
return

## Friday, October 8, 2010

### Abundant numbers

Rem Abundant numbers are smaller than the sum of their factors
for n = 5 to 100000
sum = 0
for factor = 1 to int(n/2)
if n/factor = int(n/factor) then sum = sum + factor
next factor
if sum > n then print n
next n

## Wednesday, October 6, 2010

### Pi by chance

clg

in=0
color red
circle 150,150,150
color black
For dots = 1 to 10000
x=rand*300+1
y=rand*300+1
circle x,y,2
if ((x-150)^2+(y-150)^2)^.5<=150 then in=in+1
print in*4/dots
next dots

### Prime number finder

clg

f=0
for h = 3 to 10000 step 1
if f=0 then print h-1
f=0
for i = 2 to int(h/2)+1 step 1
if int(h/i)=h/i then f=1
if int(h/i)=h/i then i=h/2
next i
next h

### Pythagorian triple distribution

t=-1
clg
for c=3 to 3000
for b=2 to c-1
asquared=c^2-b^2
a=(asquared)^.5
if a=int(a)then
t=t*(-1)
if t=-1 then print a+chr(178)+"+"+b+chr(178)+"="+c+chr(178)
if a<3000 and b<3000 then plot a/10,b/10
end if
next b

next c

### 20 and out

rem add 1,2, or 3 . The first to get to 20 loses

clg
font "arial",10,100
total=0 : n=1 : Sq=3
play:
a=int(a\$): total=total+a
if Sq<=total then
n=n+1
Sq=4*n-1
endif
if Sq-total < 4 then
p=Sq-total
w=1
else
p=int(rand*2)+1
w=0
endif
total=total+p
for c = total-a-p+1 to total-p
color red
circle 30,290-c*15,5
text 60,285-c*15,c
next c
print "Thinking"
pause rand*5
print "computer play "+ p
for c = total-p+1 to total
color blue
circle 30,290-c*15,5
text 60,285-c*15,c
next c
if total<19 then goto play
if total = 19 and w=1 then
Print "I Won"
else
Print "You won"
end if

## Tuesday, October 5, 2010

### Derivative

clg
Rem derivative for y= a*x^2+b*x+c
a=-1:b=-3:c=1
for y = -5 to 5 : for x = -5 to 5
circle int(30*x)+150, int(30*y)+ 150,2
next x : next y
line 150,0,150,300 : line 0,150,300,150
color red
for x = -5 to 5 step .1
y = a*x^2+b*x+c
circle 30*x +150, 150 - 30*y,2
next x
input "What is the derivative",r\$
for x = -5 to 5 step .1
dy=((a*(x+.1)^2+b*(x+.1)+c)-(a*x^2+b*x+c))/.1
circle 30*x +150, 150 - 30*dy,2
next x

### What is the angle?

dim arrow(8)
arrow = {0,0,0,0,0,70,0,0}
r=int(rand*2*pi)+.1
clg
fastgraphics
for i = 0 to r step .005
stamp 150,150,2,i,arrow
refresh
next i
input "What is the angle?",r\$
print r*180/pi

### Line equation

clg

rem generate graph
for y = -5 to 5 : for x = -5 to 5
circle int(30*x)+150, int(30*y)+ 150,3
next x : next y
line 150,0,150,300 : line 0,150,300,150
rem generate line
color red
m=int(rand*8-4)/(int(rand*4+1)): c=int(rand*8-4)
for x = -5 to 5 step .01
y = m*x+c
circle 30*x +150, 150 - 30*y,1
next x
input "What is the equation",r\$
Print "y="+m+"x+"+c

### Hidden dots - Sample , Averages,

clg
a=int(rand*1000)
for n = 1 to a
color rand*150,rand*150,rand*150
circle int(rand*300),int(rand*300),2
next n
pause 1
color red
for x = 0 to 9 : for y = 0 to 9
if int(rand*10)<>5 then rect x*30,y*30,30,30
next y : next x
input "How many dots are there?",r\$
print a

## Monday, October 4, 2010

### Nth term

a= int(rand*10)
b= int(rand*10)
for n = 1 to 4
print a*n + b
next n
input "What is the nth term?", x\$
Print a+"n+"+b

### Equation ax + b = cx +d

x= int (rand*10+2)
a= int (rand*10+2)
b= int (rand*10+2)
c= int (rand*10+2)
d=a*x+b-c*x
print a+"x+"+b+"="+c+"x"+d
input "What is x",s\$
print x

### Estimate the area

clg
color yellow
rect 0,0,300,300
color red
rect 0,0,20,20
h=int(rand*5)+1: l=int(rand*5)+1
rect 40,40,40+20*l,40+20*h
input "The small square is 1 cm^2 what is the area of the rectangle?",q\$
color yellow : rect 40,40,40+20*l,40+20*h
color red
a=0
for s = 0 to h+1 : for n = 0 to l+1
rect 40+20*n,40+20*s,19,19
a=a+1
print a
next n : next s

### Guess the distance

clg
color yellow
rect 0,0,300,300
x1=rand*300
y1=rand*300
x2=rand*300
y2=rand*300
color red
circle x1,y1,4
color blue
circle x2,y2,4
Print "What is the distance between the points? "
input " " , s\$
print ((x2-x1)^2 + (y2-y1)^2)^0.5