bcarpenterfhl 10+ year member
Kiss Me I'm Shitfaced
the first version works fine, but there was a minor flaw with the slot port displacement calculator. I also fixed the round port displacement calculator to take into account the thickness of typical PVC. all displacement calculators assume 0.75 in. mdf. someone put this program on http://www.realmofexcursion.com, and i will see if i can get the updated version to them. But for now, heres what you write in your calculator:
:ClrHome
:Menu("WUT U WANT?", "PORT LENGTH",1,"FREQUENCY",2,"VOLUME",3,"SLOT DISP.",4,"ROUND DISP.",5,"QUIT",6)
:ClrHome
:Lbl 1
:Input "FREQUENCY:",F
:Input "PORT AREA:",A
:Input "VOLUME:",V
:
//content.invisioncic.com/y282845/emoticons/frown.gif.a3531fa0534503350665a1e957861287.gif((5.65*10^6*A)/((V*1728)*F^2))-(A^0.5))/1.22sto>L
:
:ClrHome
isp L
:Stop
:Lbl 2
:Input "PORT AREA:",A
:Input "VOLUME:",V
:Input "PORT LENGTH:",L
:
:0.159*(((A)*(1.84*10^8))/((V*1728)*(L+0.823*(A)^0.5)))^0.5sto>F
:
:ClrHome
isp F
:Stop
:Lbl 3
:Input "FREQUENCY:",F
:Input "PORT AREA:",A
:Input "PORT LENGTH:",L
:
//content.invisioncic.com/y282845/emoticons/frown.gif.a3531fa0534503350665a1e957861287.gif((5.65*10^6)*(A))/((F^2)*(A^0.5+1.22*(L))))/1728sto>V
:
:ClrHome
isp V
:Stop
:Lbl 4
:Input "PORT WIDTH:", W
:Input "PORT HEIGHT:",H
:Input "PORT LENGTH:",L
:Input "EXT, DEPTH:",E
:Input "INT. DEPTH:",I
:
//content.invisioncic.com/y282845/emoticons/frown.gif.a3531fa0534503350665a1e957861287.gif((I+0.75)H(W+0.75))+((L-E)H(W+0.75)))/1728sto>D
:
:ClrHome
isp D
:Stop
:
:Lbl 5
:Input "DIAMETER:",D
:Input "PORT LENGTH:",L
:
pi(D/2+0.125)^2)(L-0.75)/1728sto>D
:
:ClrHome
isp D
:Stop
:
:Lbl 6
:Stop
:ClrHome
:Menu("WUT U WANT?", "PORT LENGTH",1,"FREQUENCY",2,"VOLUME",3,"SLOT DISP.",4,"ROUND DISP.",5,"QUIT",6)
:ClrHome
:Lbl 1
:Input "FREQUENCY:",F
:Input "PORT AREA:",A
:Input "VOLUME:",V
:
//content.invisioncic.com/y282845/emoticons/frown.gif.a3531fa0534503350665a1e957861287.gif((5.65*10^6*A)/((V*1728)*F^2))-(A^0.5))/1.22sto>L
:
:ClrHome
isp L
:Stop
:Lbl 2
:Input "PORT AREA:",A
:Input "VOLUME:",V
:Input "PORT LENGTH:",L
:
:0.159*(((A)*(1.84*10^8))/((V*1728)*(L+0.823*(A)^0.5)))^0.5sto>F
:
:ClrHome
isp F
:Stop
:Lbl 3
:Input "FREQUENCY:",F
:Input "PORT AREA:",A
:Input "PORT LENGTH:",L
:
//content.invisioncic.com/y282845/emoticons/frown.gif.a3531fa0534503350665a1e957861287.gif((5.65*10^6)*(A))/((F^2)*(A^0.5+1.22*(L))))/1728sto>V
:
:ClrHome
isp V
:Stop
:Lbl 4
:Input "PORT WIDTH:", W
:Input "PORT HEIGHT:",H
:Input "PORT LENGTH:",L
:Input "EXT, DEPTH:",E
:Input "INT. DEPTH:",I
:
//content.invisioncic.com/y282845/emoticons/frown.gif.a3531fa0534503350665a1e957861287.gif((I+0.75)H(W+0.75))+((L-E)H(W+0.75)))/1728sto>D
:
:ClrHome
isp D
:Stop
:
:Lbl 5
:Input "DIAMETER:",D
:Input "PORT LENGTH:",L
:
pi(D/2+0.125)^2)(L-0.75)/1728sto>D
:
:ClrHome
isp D
:Stop
:
:Lbl 6
:Stop