LABCODE

# Web VPython 3.2
from vpython import *

scene = canvas(background=color.white)

ground = box(pos=vec(0,-0.02,0), size=vec(3,0.02,0.4), color=color.green)

v_graph = graph(title='Falling Speed (red=1 filter, blue=4 filters)', xtitle='t', ytitle='v')

m1v = gcurve(graph=v_graph, color=color.red)
m4v = gcurve(graph=v_graph, color=color.blue)

g = vec(0,-9.779,0) # g at Mexico City, probably Santa Fe is similar

m1 = 8.52e-3 # mass of coffee filter
rf = 5.8e-2 # radius of filter
A = pi*rf**2

h0 = 2.03 # drop height - Part 8, try different ones until you get terminal velocity
t1 = 1.44 # time to drop 1 filter
t4 = 0.88 # time to drop 4 filters

m4 = 4*m1 # mass of 4 filters
rho = 1.045 # Density

C = 0 # try different numbers/drag coefficient until the drop time
      # of your model matches the experimental data for 1 filter

f1 = cone(pos=vec(-1,h0,0), axis=vec(0,-1,0), size=vec(0.1,1.0,0.1),
          color=color.red, radius=0.1, make_trail=True)

f1.p = vec(0,0,0)
f1.v = f1.p/m1