I was thinking about the DSM Quiz idea I had a while back so newbs could graduate beyond the rookie level We'll I wrote a script based on a spreadsheet I have been using for a while so I could easily send it to friends for them to use since some people have a fear of spreadsheets. Anyhow, I thought I would throw it out there for you guys to take a look at and see if it is something that you would be interested in for the site. Sections could help people with some questions they may have regarding power potential, tire size, etc. Many of the variables are automatically loaded for those who may not know their intercooler pressure drop, and changeable for those who do.As of now, the calculators on this page do not function. HOWEVER, the WORKING scripts are available for you to download after the calculators. (See below).
<form name='1'><table border='1' bordercolor='black' bgcolor='white' width='600'><tr><td align='center'><b><font color="red"><a name="n">Navigation</a><tr><td align='center'>Use these links to navigate the calculators.</td></tr><tr><td ><a href="#1st">1. Compressor Map Tool / Horsepower Potential Estimator</a></td><tr><td><a href="#2">2. Intake Temperature Calculator</a></td></tr><tr><td ><a href="#3">3. Airflow Converter (lb/min to CFM)</a></td></tr><tr><td><a href="#4">4. Airflow Converter (CFM to lb/min)</a></td><tr><td ><a href="#5">5. Injector Size Calculator</a></td></tr><tr><td ><a href="#6">6. Power from Trap Speed Estimator</a></td></tr><tr><td ><a href="#7">7. 1/4 mile ET and Trap Speed from Power Estimator</a></td><tr><td ><a href="#8">8. Engine Displacement Calculator</a></td><tr><td ><a href="#9">9. Engine Displacement Converter (cc to ci)</a></td></tr><tr><td ><a href="#12">10. Engine Displacement Converter (ci to cc)</a></td></tr><tr><td ><a href="#11">11. Tire Diameter Calculator</a></td></tr><tr><td ><a href="#12">12. Rotational Mass Equivalency Calculator</a></td></tr></table><form name='f1'><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='3' ><b><font color='red'><center><a name="1st">Turbo Power Estimator and Compressor Map Tool</a></td></tr><tr><td colspan='3' >This calculator uses the amount of air and fuel flowed and calculates the amount of horsepower created by burning that air/fuel mixture.</td></tr><tr><td colspan='2' width="500"><center><font color='red'>Variable</b></center></td><td width="100"><center><font color='red'>Input</b></center></td><tr><td width='500' colspan='2'>Engine Displacement (cubic inches)</td><td width='100'><center><input type='text' size='6' name='displacement' value="122"></center></td><tr><td colspan='2' >Desired Boost (psi)</td><td align='center'><input type='text' size='6' name='boost' value="10"></td><tr><td colspan='2'>Desired Engine RPM (redline or shift point)</td><td align='center'><input type='text' size='6' name='RPM' value="6500"></td><tr><td colspan='2'>Intake Temperature (Post Intercooler if applicable; °F)</td><td align='center'><input type='text' name='temp' size='6' value="130"></td><tr><td colspan='2'>Intercooler Pressure Drop (psi)</td><td align='center'><input type='text' name='presdrop' size='6' value="1.5"></td><tr><td colspan='2'>Air Fuel Ratio</td><td align='center'><input type='text' name='tune' size='3' value="10.5"><font color='red'> :1</td><tr><td colspan='2'>Volumetric Efficiency (est. 90% for DOHC 4 valves per cylinder)</td><td align='center'><input type='text' name='VE' size='3' value="90"><font color='red'> %</td><tr><td colspan='2'>Brake Specific Fuel Consumption (BSFC)</td><td align='center'><input type='text' size='6' name='BSFC' value=".6"></td><tr><td colspan='2' align='center' width='500'><input type='button' value="Estimate Horsepower Potential" onClick="go()"></td><td align='center'><input type='text' size='6' name='power'></td><tr><td colspan='3'>Using the following two numbers given from the calculator above, you should be able to use a compressor map to select the turbo that best fits your desired power goals.</td><tr><td width='380'>Variables for Compressor Maps:</td><td width='120'><center>CMf: <input type='text' size='9' name='CMf'></td><td width='100'><center>Pr: <input type='text' size='6' name='Pr'></td></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2' align='center'><font color='red'><b><a name='2'>Intake Temperature Calculator</a></td></tr><tr><td colspan='2'>This calculator will calculate the intake temperature based on the compressor and intercooler.</td></tr><tr><td align='center' width='500'><font color='red'>Variable</td><td align='center'>Input</td><tr><td width='500'>Turbo Inlet Temperature (Consider inlet pipe and filter location)</td><td width='100'><input type='text' size='12' name='compintemp' value="100"></td><tr><td>Turbo Inlet Pressure (psi: filtered:~13.95; open:~14.7; -0.5psi/1000ft elev.)</td><td><input type='text' size='12' name='compinpress' value="14.5"></td><tr><td>Boost (psi)</td><td><input type='text' size='12' name='compoutpress' value="16"></td><tr><td>Compressor Efficiency (Map Pr and CMf on compressor map)</td><td><input type='text' size='12' name='compeff' value="70"></td><tr><td>Intercooler Efficiency (%)</td><td><input type='text' size='12' name='inceff' value="80"></td><tr><td>Intercooler Pressure Drop (psi)</td><td><input type='text' size='12' name='incpresdrop' value="1"></td><tr><td>Ambient Temperature (outside the engine bay °F)</td><td><input type='text' size='12' name='ambtemp' value="80"></td><tr><td align='center'><input type='button' value='Calculate Intake Temperature' onClick='go10()'></td><td align='center'>----------</td><tr><td>Intercooler Inlet Temperature</td><td><input type='text' size='12' name='incintemp'></td><tr><td>Intercooler Outlet/Intake Temperaturev</td><td><input type='text' size='12' name='intemp'></td></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2' align='center'><font color='red'><b><a name='3'>Airflow Convertor (lb/min to CFM)</a></td></tr><tr><td colspan='2'>This calculator will convert airflow rates from pounds per min to cubic feet per minute.</td></tr><tr><td align='center' width='500'><font color='red'>Variable<td align='center'>Input</td></tr><tr><td>Airflow (lb/min)<td align='center'><input type='text' size='12' name='lbmin11' value='22.17'></td></tr><tr><td align='center'><input type='button' value='Convert to CFM' onClick='go11()'><td align='center'><input type='text' size='12' name='cfm11'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2' align='center'><font color='red'><b><a name='4'>Airflow Convertor (CFM to lb/min)</a></td></tr><tr><td colspan='2'>This calculator will convert airflow rates from cubic feet per minute to pounds per minute.</td></tr><tr><td align='center' width='500'><font color='red'>Variable<td align='center'>Input</td></tr><tr><td>Airflow (lb/min)<td align='center'><input type='text' size='12' name='cfm12' value='293.25'></td></tr><tr><td align='center'><input type='button' value='Convert to CFM' onClick='go12()'><td align='center'><input type='text' size='12' name='lbmin12'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='3'><center><font color='red'><b><a name="5">Injector Size Calculator</a></td></tr><tr><td colspan='3'>This calculator will allow you to calculate the needed injector size for you to support a specified horsepower at the injector duty cycle.</td></tr><tr><td colspan='2'><center><font color='red'>Variable<td width='100'><center><font color='red'>Input<tr><td colspan='2'>Engine Horsepower<td><center><input type='text' name='power5' size='12' value='210'></td></tr><tr><td colspan='2'>Number of Injectors<td><center><select name='numbercylinders'> <option value="4">4 <option value="6">6 <option value="8">8 <option value="10">10 <option value="12">12 </select></td></tr><tr><td colspan='2'>BSFC<td><center><input type='text' name='BSFC5' size='12' value='.6'></td></tr><tr><td colspan='2'>Injector Duty Cycle<td><center><input type='text' name='IDC' size='12' value='.8'></td></tr><tr><td width='380'><center><input type='button' value='Calculate Injector Size' onClick="go5()"></td><td width='120'><center><input type='text' name='flow1' size='5'> Lb/Hr</td><td width='100' align='center'><input type='text' name='flow2' size='5'> cc/min</td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='3'><center><b><font color='red'><a name='6'>Estimate Power from 1/4 mile Trap Speed</a></td></tr><tr><td colspan='3'>This calculator uses a modified version of Force=Mass*Acceleration to calculate how much power it would take to make your car go a certain speed by the end of a quarter mile.</td></tr><tr><td colspan='2'><center><font color='red'>Variable</b></center></td><td><center><font color='red'>Input</b></center></td></tr><tr><td colspan='2'>Vehicle Weight (Including driver)</td><td align='center'><input type='text' size='12' name='weight' value='3300'></td></tr><tr><td colspan='2'>1/4 mile MPH</td><td align='center'><input type='text' size='12' name='trap' value='88' ></td></tr><tr><td colspan='3'>Select Drivetrain: <input type='radio' name='drivetype' value='20' checked>AWD<input type='radio' name='drivetype' value='12'>FWD</center></td></tr><tr><td><center><input type='button' value="Estimate Power from MPH" onClick="go2()"><td align='center'><input type='text' size='12' name='wheelpower2'></td><td align='center'><input type='text' size='12' name='power2'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='3'><center><b><font color='red'><a name='7'>Estimate ET and Trap Speed from Horsepower</a></td></tr><tr><td colspan='3'>This calculator uses a modified version of Force=Mass*Acceleration to calculate how fast a car with the given power and weight would take to lay waste to a quarter mile.</td></tr><tr><td colspan='2'><center><font color='red'>Variable</b></center></td><td><center><font color='red'>Input</b></center></td></tr><tr><td colspan='2'>Vehicle Weight (Including driver)</td><td align='center'><input type='text' size='12' name='weight3' value='3300'></td></tr><tr><td colspan='2'>Wheel Horsepower<td align='center'><input type='text' size='12' name='power3' value='175.51'></td></tr><tr><td><center><input type='button' value="Estimate 1/4 mile from Power" onClick="go6()"></td><td align='center'><input type='text' size='12' name='ET'><b> @</td><td align='center'><input type='text' size='12' name='trap2'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2'><center><font color='red'><b><a name='8'>Engine Displacement Calculator</a></td></tr><tr><td colspan='2'>This calculator will determine the displacement in cc's of an engine based on the bore, stroke, and number of cylinders.</td></tr><tr><td width='500'><center><font color='red'>Variable<td><center><font color='red'>Input</td></tr><tr><td>Bore (mm)<td><center><input type='text' name='bore' value='85' size='12'></center></td></tr><tr><td>Stroke (mm)<td align='center'><input type='text' name='stroke' value='88' size='12'></td></tr><tr><td>Number of Cylinders<td><center><select name='NOC'> <option value="4">4 <option value="6">6 <option value="8">8 <option value="10">10 <option value="12">12 </select></td></tr><tr><td align='center'><input type='button' value='Calculate Displacement (cc)' onClick='go7()'><td align='center'><input type='text' name='displacement1' size='12'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2'><center><font color='red'><b><a name='9'>Engine Displacement Converter (cc to ci)</a></td></tr><tr><td colspan='2'>This calculator will convert cubic centimeters to cubic inches.</td></tr><tr><td width="500"><center><font color='red'>Variable<td><center><font color='red'>Input</td></tr><tr><td>Displacement (cc)<td align='center'><input type='text' name='displacement8' value='1997.42' size='12'></td></tr><tr><td align='center'><input type='button' value='Convert to Cubic Inches' onClick='go8()'></td><td align='center'><input type='text' name='convert1' size='12'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2'><center><font color='red'><b><a name=10>Engine Displacement Converter (ci to cc)</a></td></tr><tr><td colspan='2'>This calculator will convert cubic inches to cubic centimeters.</td></tr><tr><td width='500'><center><font color='red'>Variable<td><center><font color='red'>Input</td></tr><tr><td>Displacement (ci)<td align='center'><input type='text' name='displacement9' value='121.88' size='12'><tr><td align='center'><input type='button' value='Convert to Cubic Centemeters' onClick='go9()'></td><td align='center'><input type='text' name='convert2' size='12'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2'><center><b><font color='red'><a name="11">Tire Diameter Calculator</a></td></tr><tr><td colspan='2'>A tire with a larger diameter will make your speedometer read slower than you are going and a tire with a smaller diameter will make your speedometer read faster than you are going. In addition, a tire with a larger diameter will take more power to rotate.</td></tr><tr><td><center><font color='red'>Variable</b></center></td><td><center><font color='red'>Input</b></center></td></tr><tr><td>Tire size example: 215/55/17<td><center><input type='text' size='1' name="tirewidth" textalign='center' maxlength='3' value='215'><input type='text' size='1' maxlength='2' name='aspectratio' value='50'><input type='text' size='1' maxlength='2' name='wheelsize' value='17'></td></tr><tr><td><center><input type='button' value='Calculate Tire Diameter' onClick=go3()><td><center><input type='text' size='12' name='diam'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='3'><center><b><font color='red'><a name='12'>Equivalent Mass of a Rotating Object Calculator</a></td></tr><tr><td colspan='3'>This calculator will calculate the affect of taking weight off the engines rotating assembly as multiplied through the gears. This includes flywheels, pulleys, etc. prior to the transmission.</td></tr><tr><td colspan='2' width='500'><center><font color='red'>Variable</b></center></td><td width='100'><center><font color='red'>Input</b></center></td></tr><tr><td colspan='2'>Change in rotating mass<td><center><input type='text'name='mass' size='12' value='10'></td></tr><tr><td colspan='2'>Diameter of rotating object<td><center><input type='text'name='radius' size='12' value='5.5'></td></tr><tr><td width='300'>Weight equivalency in first:</td><td align='right' width='200'>First Gear <input type='text' size='3' name='first' value='3.083'> :1</td><td><center><input type='text' size='12' name='firstout'></td></tr><tr><td>Weight equivalency in second:</td><td align='right'>Second Gear <input type='text' size='3' name='second' value='1.684'> :1</td><td><center><input type='text' size='12' name='secondout'></td></tr><tr><td>Weight equivalency in third:</td><td align='right'>Third Gear <input type='text' size='3' name='third' value='1.115'> :1</td><td><center><input type='text' size='12' name='thirdout'></td></tr><tr><td>Weight equivalency in fourth:</td><td align='right'>Fourth Gear <input type='text' size='3' name='fourth' value='.833'> :1</td><td><center><input type='text' size='12' name='fourthout'></td></tr><tr><td>Weight equivalency in fifth:</td><td align='right'>Fifth Gear <input type='text' size='3' name='fifth' value='.666'> :1</td><td><center><input type='text' size='12' name='fifthout'></td></tr><tr><td>Final Drive ratio</td><td align='right'>Final Drive <input type='text' size='3' name='final' value='4.848'> :1</td><td><center>----------</td></tr><tr><td>Tire Diameter (Use calculator if needed)</td><td align='right'><input type='text' size='5' name='tirediam2' value='25.46'> inches </td><td><center>----------<tr><td colspan='2'><center><input type='button' value='Calculate Mass Equivelence' onclick='go4()'></td><td><center>----------</td></tr></table></form>
<script language="vbscript">
sub go()
dim displacement
dim boost
dim RPM
dim AF
dim temp
dim presdrop
dim VE
displacement=document.f1.displacement.value
RPM=document.f1.RPM.value
AF=document.f1.tune.value
boost=document.f1.boost.value
temp=document.f1.temp.value
presdrop=document.f1.presdrop.value
VE=document.f1.VE.value*.01
for i=0 to 7 step 1
if not isnumeric(document.f1.elements(i).value) then
alert("Please complete all fields with numbers.")
Exit For
else
end if
next
dim Pr
Pr=(boost+14.7+presdrop)/14.7
dim Di
Mf=((boost+14.7)/(53.3*12*(460+temp)))*displacement*(RPM/2)*VE
dim CMf
CMf=Mf*(1/(14.7/13.95))
dim hpower
dim BSFC
BSFC=document.f1.BSFC.value
hpower=(CMf*60)/(AF*BSFC)
document.f1.power.value=cInt(hpower) &" HP"
document.f1.Pr.value=FormatNumber(Pr,1)
document.f1.CMf.value=FormatNumber(CMf,2)+" lb/min"
end sub
//Horsepower based on Trap
sub go2()
dim weight
dim trap
dim drivetype
weight=document.f1.weight.value
trap=document.f1.trap.value
if document.f1.elements(14).checked then
drivetype=1.20
else
drivetype=1.12
end if
if not isnumeric(document.f1.weight.value) then
alert("Please insert vehicle weight including driver.")
end if
if not isnumeric(document.f1.trap.value) then
alert("Please insert the trap speed of the vehicle.")
end if
dim calc
calc=(trap/234)^3*weight
power2=FormatNumber(calc,2)
document.f1.wheelpower2.value=power2 + " WHP"
document.f1.power2.value=power2*drivetype&" HP"
end sub
//Tire Diameter Calculator
sub go3()
dim tirewidth
dim aspectratio
dim wheelsize
tirewidth=document.f1.tirewidth.value
aspectratio=document.f1.aspectratio.value
wheelsize=document.f1.wheelsize.value
for i=58 to 60
if not isnumeric(document.f1.elements(i).value) then
alert("Please insert the tire size.")
exit for
end if
next
dim tirediameter
tirediameter=FormatNumber(((tirewidth*(aspectratio*.01))/10/2.54*2)+wheelsize,2)
document.f1.diam.value=tirediameter+" inches"
end sub
//Rotational Equiv
sub go4()
dim mass
dim radius
dim tireradius
dim eqmass
mass=document.f1.mass.value
radius=document.f1.radius.value
if not isnumeric(document.f1.tirediam2.value) then
alert("Please insert the diameter of the tire. If needed, use the calculator above to determine.")
end if
tireradius=(document.f1.tirediam2.value)/2
if not isnumeric(document.f1.mass.value) then
alert("Please insert the change in weight of the rotating object.")
end if
if not isnumeric(document.f1.radius.value) then
alert("Please insert the radius of the rotating object.")
end if
for i=66 to 74 step 2
eqmass=(.5*mass)*((radius*document.f1.elements(i-1).value*document.f1.final.value)/tireradius)^2
document.f1.elements(i).value=formatnumber(eqmass,2)+" lbs"
next
end sub
//Injector
sub go5()
if not isNumeric(document.f1.power5.value) then
alert("Please enter the Horsepower number to be supported by the injectors.")
end if
power5=document.f1.power5.value
noi=document.f1.numbercylinders.value
BSFC5=document.f1.BSFC5.value
idc=document.f1.IDC.value
noi=document.f1.numbercylinders.value
if not isnumeric(BSFC5) then
alert("Please insert the BSFC of the engine.")
end if
if not isnumeric(idc) then
alert("Please insert the injector duty cycle.")
end if
flow1=(power5*BSFC5)/(noi*idc)
flow2=(power5*BSFC5)*10.5/(noi*idc)
document.f1.flow1.value=formatNumber(flow1,2)
document.f1.flow2.value=formatNumber(flow2,2)
end sub
//ET from power
sub go6()
weight=document.f1.weight3.value
power=document.f1.power3.value
if not isNumeric(document.f1.weight3.value) then
alert("Please insert the weight of the vehicle including driver.")
end if
if not isNumeric(document.f1.power3.value) then
alert("Please insert the wheel horsepower figure.")
end if
ET=((weight/power)^(1/3))*5.825
document.f1.ET.value=formatNumber(ET,3)
trap2=((power/weight)^(1/3))*234
document.f1.trap2.value=formatNumber(trap2,2)&" MPH"
end sub
//Displacement
sub go7()
bore=document.f1.bore.value
stroke=document.f1.stroke.value
NOC=document.f1.NOC.value
if not isnumeric(bore) then
alert("Please insert the bore in mm.")
end if
if not isnumeric(stroke) then
alert("Please insert the stroke in mm.")
end if
displacementL=(((bore/2)^2)*3.14159*stroke*NOC)/1000
document.f1.displacement1.value=FormatNumber(displacementL,2)&" cc"
end sub
//displacement converter 1
sub go8()
displacement8=document.f1.displacement8.value
if not isnumeric(displacement8) then
alert("Please insert displacement of the engine in cubic centimeters.")
end if
convert1=displacement8*.06102
document.f1.convert1.value=formatNumber(convert1,2)&" cu in"
end sub
//displacement converter 2
sub go9()
displacement9=document.f1.displacement9.value
if not isnumeric(displacement9) then
alert("Please insert displacement of the engine in cubic inches.")
end if
convert2=displacement9*16.38806
document.f1.convert2.value=formatNumber(convert2,2)&" cc"
end sub
//Intake Temperature Calculator
sub go10()
for i=12 to 18
if not isnumeric(document.f1.elements(i).value) then
alert("Please complete the fields with numbers.")
exit for
end if
next
compintemp=document.f1.compintemp.value
compinpress=document.f1.compinpress.value
compoutpress=document.f1.compoutpress.value
compeff=document.f1.compeff.value
inceff=document.f1.inceff.value
incpresdrop=document.f1.incpresdrop.value
ambtemp=document.f1.ambtemp.value
incintemp=(compintemp+460)+((((compintemp+460)*(((compoutpress+compinpress*1)/compinpress)^.283))-(compintemp+460))/(compeff/100))-460
intemp=incintemp-((inceff/100)*(incintemp-ambtemp))
document.f1.incintemp.value=formatNumber(incintemp,2)+" °F"
document.f1.intemp.value=formatNumber(intemp,2)+" °F"
end sub
//airflow converter 1
sub go11()
lbmin11=document.f1.lbmin11.value
cfm11=(lbmin11/.0756)
document.f1.cfm11.value=formatNumber(cfm11,2)+" CFM"
end sub
//airflow converter 2
sub go12()
cfm12=document.f1.cfm12.value
lbmin12=(cfm12*.0756)
document.f1.lbmin12.value=formatNumber(lbmin12,2)+" lb/min"
end sub
</script>
As for the script, well you can download it in the .doc file found later on in the thread, paste the text into notepad, save as .html and play with the fully functioning version. There have already been users who have downloaded this and earlier versions successfully. If you have a problem, please address it in this thread: http://www.dsmtuners.com/forums/showthread.php?t=225473 . I am working to get a working version on the site.
<form name='1'><table border='1' bordercolor='black' bgcolor='white' width='600'><tr><td align='center'><b><font color="red"><a name="n">Navigation</a><tr><td align='center'>Use these links to navigate the calculators.</td></tr><tr><td ><a href="#1st">1. Compressor Map Tool / Horsepower Potential Estimator</a></td><tr><td><a href="#2">2. Intake Temperature Calculator</a></td></tr><tr><td ><a href="#3">3. Airflow Converter (lb/min to CFM)</a></td></tr><tr><td><a href="#4">4. Airflow Converter (CFM to lb/min)</a></td><tr><td ><a href="#5">5. Injector Size Calculator</a></td></tr><tr><td ><a href="#6">6. Power from Trap Speed Estimator</a></td></tr><tr><td ><a href="#7">7. 1/4 mile ET and Trap Speed from Power Estimator</a></td><tr><td ><a href="#8">8. Engine Displacement Calculator</a></td><tr><td ><a href="#9">9. Engine Displacement Converter (cc to ci)</a></td></tr><tr><td ><a href="#12">10. Engine Displacement Converter (ci to cc)</a></td></tr><tr><td ><a href="#11">11. Tire Diameter Calculator</a></td></tr><tr><td ><a href="#12">12. Rotational Mass Equivalency Calculator</a></td></tr></table><form name='f1'><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='3' ><b><font color='red'><center><a name="1st">Turbo Power Estimator and Compressor Map Tool</a></td></tr><tr><td colspan='3' >This calculator uses the amount of air and fuel flowed and calculates the amount of horsepower created by burning that air/fuel mixture.</td></tr><tr><td colspan='2' width="500"><center><font color='red'>Variable</b></center></td><td width="100"><center><font color='red'>Input</b></center></td><tr><td width='500' colspan='2'>Engine Displacement (cubic inches)</td><td width='100'><center><input type='text' size='6' name='displacement' value="122"></center></td><tr><td colspan='2' >Desired Boost (psi)</td><td align='center'><input type='text' size='6' name='boost' value="10"></td><tr><td colspan='2'>Desired Engine RPM (redline or shift point)</td><td align='center'><input type='text' size='6' name='RPM' value="6500"></td><tr><td colspan='2'>Intake Temperature (Post Intercooler if applicable; °F)</td><td align='center'><input type='text' name='temp' size='6' value="130"></td><tr><td colspan='2'>Intercooler Pressure Drop (psi)</td><td align='center'><input type='text' name='presdrop' size='6' value="1.5"></td><tr><td colspan='2'>Air Fuel Ratio</td><td align='center'><input type='text' name='tune' size='3' value="10.5"><font color='red'> :1</td><tr><td colspan='2'>Volumetric Efficiency (est. 90% for DOHC 4 valves per cylinder)</td><td align='center'><input type='text' name='VE' size='3' value="90"><font color='red'> %</td><tr><td colspan='2'>Brake Specific Fuel Consumption (BSFC)</td><td align='center'><input type='text' size='6' name='BSFC' value=".6"></td><tr><td colspan='2' align='center' width='500'><input type='button' value="Estimate Horsepower Potential" onClick="go()"></td><td align='center'><input type='text' size='6' name='power'></td><tr><td colspan='3'>Using the following two numbers given from the calculator above, you should be able to use a compressor map to select the turbo that best fits your desired power goals.</td><tr><td width='380'>Variables for Compressor Maps:</td><td width='120'><center>CMf: <input type='text' size='9' name='CMf'></td><td width='100'><center>Pr: <input type='text' size='6' name='Pr'></td></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2' align='center'><font color='red'><b><a name='2'>Intake Temperature Calculator</a></td></tr><tr><td colspan='2'>This calculator will calculate the intake temperature based on the compressor and intercooler.</td></tr><tr><td align='center' width='500'><font color='red'>Variable</td><td align='center'>Input</td><tr><td width='500'>Turbo Inlet Temperature (Consider inlet pipe and filter location)</td><td width='100'><input type='text' size='12' name='compintemp' value="100"></td><tr><td>Turbo Inlet Pressure (psi: filtered:~13.95; open:~14.7; -0.5psi/1000ft elev.)</td><td><input type='text' size='12' name='compinpress' value="14.5"></td><tr><td>Boost (psi)</td><td><input type='text' size='12' name='compoutpress' value="16"></td><tr><td>Compressor Efficiency (Map Pr and CMf on compressor map)</td><td><input type='text' size='12' name='compeff' value="70"></td><tr><td>Intercooler Efficiency (%)</td><td><input type='text' size='12' name='inceff' value="80"></td><tr><td>Intercooler Pressure Drop (psi)</td><td><input type='text' size='12' name='incpresdrop' value="1"></td><tr><td>Ambient Temperature (outside the engine bay °F)</td><td><input type='text' size='12' name='ambtemp' value="80"></td><tr><td align='center'><input type='button' value='Calculate Intake Temperature' onClick='go10()'></td><td align='center'>----------</td><tr><td>Intercooler Inlet Temperature</td><td><input type='text' size='12' name='incintemp'></td><tr><td>Intercooler Outlet/Intake Temperaturev</td><td><input type='text' size='12' name='intemp'></td></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2' align='center'><font color='red'><b><a name='3'>Airflow Convertor (lb/min to CFM)</a></td></tr><tr><td colspan='2'>This calculator will convert airflow rates from pounds per min to cubic feet per minute.</td></tr><tr><td align='center' width='500'><font color='red'>Variable<td align='center'>Input</td></tr><tr><td>Airflow (lb/min)<td align='center'><input type='text' size='12' name='lbmin11' value='22.17'></td></tr><tr><td align='center'><input type='button' value='Convert to CFM' onClick='go11()'><td align='center'><input type='text' size='12' name='cfm11'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2' align='center'><font color='red'><b><a name='4'>Airflow Convertor (CFM to lb/min)</a></td></tr><tr><td colspan='2'>This calculator will convert airflow rates from cubic feet per minute to pounds per minute.</td></tr><tr><td align='center' width='500'><font color='red'>Variable<td align='center'>Input</td></tr><tr><td>Airflow (lb/min)<td align='center'><input type='text' size='12' name='cfm12' value='293.25'></td></tr><tr><td align='center'><input type='button' value='Convert to CFM' onClick='go12()'><td align='center'><input type='text' size='12' name='lbmin12'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='3'><center><font color='red'><b><a name="5">Injector Size Calculator</a></td></tr><tr><td colspan='3'>This calculator will allow you to calculate the needed injector size for you to support a specified horsepower at the injector duty cycle.</td></tr><tr><td colspan='2'><center><font color='red'>Variable<td width='100'><center><font color='red'>Input<tr><td colspan='2'>Engine Horsepower<td><center><input type='text' name='power5' size='12' value='210'></td></tr><tr><td colspan='2'>Number of Injectors<td><center><select name='numbercylinders'> <option value="4">4 <option value="6">6 <option value="8">8 <option value="10">10 <option value="12">12 </select></td></tr><tr><td colspan='2'>BSFC<td><center><input type='text' name='BSFC5' size='12' value='.6'></td></tr><tr><td colspan='2'>Injector Duty Cycle<td><center><input type='text' name='IDC' size='12' value='.8'></td></tr><tr><td width='380'><center><input type='button' value='Calculate Injector Size' onClick="go5()"></td><td width='120'><center><input type='text' name='flow1' size='5'> Lb/Hr</td><td width='100' align='center'><input type='text' name='flow2' size='5'> cc/min</td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='3'><center><b><font color='red'><a name='6'>Estimate Power from 1/4 mile Trap Speed</a></td></tr><tr><td colspan='3'>This calculator uses a modified version of Force=Mass*Acceleration to calculate how much power it would take to make your car go a certain speed by the end of a quarter mile.</td></tr><tr><td colspan='2'><center><font color='red'>Variable</b></center></td><td><center><font color='red'>Input</b></center></td></tr><tr><td colspan='2'>Vehicle Weight (Including driver)</td><td align='center'><input type='text' size='12' name='weight' value='3300'></td></tr><tr><td colspan='2'>1/4 mile MPH</td><td align='center'><input type='text' size='12' name='trap' value='88' ></td></tr><tr><td colspan='3'>Select Drivetrain: <input type='radio' name='drivetype' value='20' checked>AWD<input type='radio' name='drivetype' value='12'>FWD</center></td></tr><tr><td><center><input type='button' value="Estimate Power from MPH" onClick="go2()"><td align='center'><input type='text' size='12' name='wheelpower2'></td><td align='center'><input type='text' size='12' name='power2'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='3'><center><b><font color='red'><a name='7'>Estimate ET and Trap Speed from Horsepower</a></td></tr><tr><td colspan='3'>This calculator uses a modified version of Force=Mass*Acceleration to calculate how fast a car with the given power and weight would take to lay waste to a quarter mile.</td></tr><tr><td colspan='2'><center><font color='red'>Variable</b></center></td><td><center><font color='red'>Input</b></center></td></tr><tr><td colspan='2'>Vehicle Weight (Including driver)</td><td align='center'><input type='text' size='12' name='weight3' value='3300'></td></tr><tr><td colspan='2'>Wheel Horsepower<td align='center'><input type='text' size='12' name='power3' value='175.51'></td></tr><tr><td><center><input type='button' value="Estimate 1/4 mile from Power" onClick="go6()"></td><td align='center'><input type='text' size='12' name='ET'><b> @</td><td align='center'><input type='text' size='12' name='trap2'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2'><center><font color='red'><b><a name='8'>Engine Displacement Calculator</a></td></tr><tr><td colspan='2'>This calculator will determine the displacement in cc's of an engine based on the bore, stroke, and number of cylinders.</td></tr><tr><td width='500'><center><font color='red'>Variable<td><center><font color='red'>Input</td></tr><tr><td>Bore (mm)<td><center><input type='text' name='bore' value='85' size='12'></center></td></tr><tr><td>Stroke (mm)<td align='center'><input type='text' name='stroke' value='88' size='12'></td></tr><tr><td>Number of Cylinders<td><center><select name='NOC'> <option value="4">4 <option value="6">6 <option value="8">8 <option value="10">10 <option value="12">12 </select></td></tr><tr><td align='center'><input type='button' value='Calculate Displacement (cc)' onClick='go7()'><td align='center'><input type='text' name='displacement1' size='12'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2'><center><font color='red'><b><a name='9'>Engine Displacement Converter (cc to ci)</a></td></tr><tr><td colspan='2'>This calculator will convert cubic centimeters to cubic inches.</td></tr><tr><td width="500"><center><font color='red'>Variable<td><center><font color='red'>Input</td></tr><tr><td>Displacement (cc)<td align='center'><input type='text' name='displacement8' value='1997.42' size='12'></td></tr><tr><td align='center'><input type='button' value='Convert to Cubic Inches' onClick='go8()'></td><td align='center'><input type='text' name='convert1' size='12'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2'><center><font color='red'><b><a name=10>Engine Displacement Converter (ci to cc)</a></td></tr><tr><td colspan='2'>This calculator will convert cubic inches to cubic centimeters.</td></tr><tr><td width='500'><center><font color='red'>Variable<td><center><font color='red'>Input</td></tr><tr><td>Displacement (ci)<td align='center'><input type='text' name='displacement9' value='121.88' size='12'><tr><td align='center'><input type='button' value='Convert to Cubic Centemeters' onClick='go9()'></td><td align='center'><input type='text' name='convert2' size='12'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='2'><center><b><font color='red'><a name="11">Tire Diameter Calculator</a></td></tr><tr><td colspan='2'>A tire with a larger diameter will make your speedometer read slower than you are going and a tire with a smaller diameter will make your speedometer read faster than you are going. In addition, a tire with a larger diameter will take more power to rotate.</td></tr><tr><td><center><font color='red'>Variable</b></center></td><td><center><font color='red'>Input</b></center></td></tr><tr><td>Tire size example: 215/55/17<td><center><input type='text' size='1' name="tirewidth" textalign='center' maxlength='3' value='215'><input type='text' size='1' maxlength='2' name='aspectratio' value='50'><input type='text' size='1' maxlength='2' name='wheelsize' value='17'></td></tr><tr><td><center><input type='button' value='Calculate Tire Diameter' onClick=go3()><td><center><input type='text' size='12' name='diam'></td></tr></table><a href="#n">Back to Navigation</a><br>
<table border='1' bordercolor='black' text='black' bgcolor='white' width='600'><tr><td colspan='3'><center><b><font color='red'><a name='12'>Equivalent Mass of a Rotating Object Calculator</a></td></tr><tr><td colspan='3'>This calculator will calculate the affect of taking weight off the engines rotating assembly as multiplied through the gears. This includes flywheels, pulleys, etc. prior to the transmission.</td></tr><tr><td colspan='2' width='500'><center><font color='red'>Variable</b></center></td><td width='100'><center><font color='red'>Input</b></center></td></tr><tr><td colspan='2'>Change in rotating mass<td><center><input type='text'name='mass' size='12' value='10'></td></tr><tr><td colspan='2'>Diameter of rotating object<td><center><input type='text'name='radius' size='12' value='5.5'></td></tr><tr><td width='300'>Weight equivalency in first:</td><td align='right' width='200'>First Gear <input type='text' size='3' name='first' value='3.083'> :1</td><td><center><input type='text' size='12' name='firstout'></td></tr><tr><td>Weight equivalency in second:</td><td align='right'>Second Gear <input type='text' size='3' name='second' value='1.684'> :1</td><td><center><input type='text' size='12' name='secondout'></td></tr><tr><td>Weight equivalency in third:</td><td align='right'>Third Gear <input type='text' size='3' name='third' value='1.115'> :1</td><td><center><input type='text' size='12' name='thirdout'></td></tr><tr><td>Weight equivalency in fourth:</td><td align='right'>Fourth Gear <input type='text' size='3' name='fourth' value='.833'> :1</td><td><center><input type='text' size='12' name='fourthout'></td></tr><tr><td>Weight equivalency in fifth:</td><td align='right'>Fifth Gear <input type='text' size='3' name='fifth' value='.666'> :1</td><td><center><input type='text' size='12' name='fifthout'></td></tr><tr><td>Final Drive ratio</td><td align='right'>Final Drive <input type='text' size='3' name='final' value='4.848'> :1</td><td><center>----------</td></tr><tr><td>Tire Diameter (Use calculator if needed)</td><td align='right'><input type='text' size='5' name='tirediam2' value='25.46'> inches </td><td><center>----------<tr><td colspan='2'><center><input type='button' value='Calculate Mass Equivelence' onclick='go4()'></td><td><center>----------</td></tr></table></form>
<script language="vbscript">
sub go()
dim displacement
dim boost
dim RPM
dim AF
dim temp
dim presdrop
dim VE
displacement=document.f1.displacement.value
RPM=document.f1.RPM.value
AF=document.f1.tune.value
boost=document.f1.boost.value
temp=document.f1.temp.value
presdrop=document.f1.presdrop.value
VE=document.f1.VE.value*.01
for i=0 to 7 step 1
if not isnumeric(document.f1.elements(i).value) then
alert("Please complete all fields with numbers.")
Exit For
else
end if
next
dim Pr
Pr=(boost+14.7+presdrop)/14.7
dim Di
Mf=((boost+14.7)/(53.3*12*(460+temp)))*displacement*(RPM/2)*VE
dim CMf
CMf=Mf*(1/(14.7/13.95))
dim hpower
dim BSFC
BSFC=document.f1.BSFC.value
hpower=(CMf*60)/(AF*BSFC)
document.f1.power.value=cInt(hpower) &" HP"
document.f1.Pr.value=FormatNumber(Pr,1)
document.f1.CMf.value=FormatNumber(CMf,2)+" lb/min"
end sub
//Horsepower based on Trap
sub go2()
dim weight
dim trap
dim drivetype
weight=document.f1.weight.value
trap=document.f1.trap.value
if document.f1.elements(14).checked then
drivetype=1.20
else
drivetype=1.12
end if
if not isnumeric(document.f1.weight.value) then
alert("Please insert vehicle weight including driver.")
end if
if not isnumeric(document.f1.trap.value) then
alert("Please insert the trap speed of the vehicle.")
end if
dim calc
calc=(trap/234)^3*weight
power2=FormatNumber(calc,2)
document.f1.wheelpower2.value=power2 + " WHP"
document.f1.power2.value=power2*drivetype&" HP"
end sub
//Tire Diameter Calculator
sub go3()
dim tirewidth
dim aspectratio
dim wheelsize
tirewidth=document.f1.tirewidth.value
aspectratio=document.f1.aspectratio.value
wheelsize=document.f1.wheelsize.value
for i=58 to 60
if not isnumeric(document.f1.elements(i).value) then
alert("Please insert the tire size.")
exit for
end if
next
dim tirediameter
tirediameter=FormatNumber(((tirewidth*(aspectratio*.01))/10/2.54*2)+wheelsize,2)
document.f1.diam.value=tirediameter+" inches"
end sub
//Rotational Equiv
sub go4()
dim mass
dim radius
dim tireradius
dim eqmass
mass=document.f1.mass.value
radius=document.f1.radius.value
if not isnumeric(document.f1.tirediam2.value) then
alert("Please insert the diameter of the tire. If needed, use the calculator above to determine.")
end if
tireradius=(document.f1.tirediam2.value)/2
if not isnumeric(document.f1.mass.value) then
alert("Please insert the change in weight of the rotating object.")
end if
if not isnumeric(document.f1.radius.value) then
alert("Please insert the radius of the rotating object.")
end if
for i=66 to 74 step 2
eqmass=(.5*mass)*((radius*document.f1.elements(i-1).value*document.f1.final.value)/tireradius)^2
document.f1.elements(i).value=formatnumber(eqmass,2)+" lbs"
next
end sub
//Injector
sub go5()
if not isNumeric(document.f1.power5.value) then
alert("Please enter the Horsepower number to be supported by the injectors.")
end if
power5=document.f1.power5.value
noi=document.f1.numbercylinders.value
BSFC5=document.f1.BSFC5.value
idc=document.f1.IDC.value
noi=document.f1.numbercylinders.value
if not isnumeric(BSFC5) then
alert("Please insert the BSFC of the engine.")
end if
if not isnumeric(idc) then
alert("Please insert the injector duty cycle.")
end if
flow1=(power5*BSFC5)/(noi*idc)
flow2=(power5*BSFC5)*10.5/(noi*idc)
document.f1.flow1.value=formatNumber(flow1,2)
document.f1.flow2.value=formatNumber(flow2,2)
end sub
//ET from power
sub go6()
weight=document.f1.weight3.value
power=document.f1.power3.value
if not isNumeric(document.f1.weight3.value) then
alert("Please insert the weight of the vehicle including driver.")
end if
if not isNumeric(document.f1.power3.value) then
alert("Please insert the wheel horsepower figure.")
end if
ET=((weight/power)^(1/3))*5.825
document.f1.ET.value=formatNumber(ET,3)
trap2=((power/weight)^(1/3))*234
document.f1.trap2.value=formatNumber(trap2,2)&" MPH"
end sub
//Displacement
sub go7()
bore=document.f1.bore.value
stroke=document.f1.stroke.value
NOC=document.f1.NOC.value
if not isnumeric(bore) then
alert("Please insert the bore in mm.")
end if
if not isnumeric(stroke) then
alert("Please insert the stroke in mm.")
end if
displacementL=(((bore/2)^2)*3.14159*stroke*NOC)/1000
document.f1.displacement1.value=FormatNumber(displacementL,2)&" cc"
end sub
//displacement converter 1
sub go8()
displacement8=document.f1.displacement8.value
if not isnumeric(displacement8) then
alert("Please insert displacement of the engine in cubic centimeters.")
end if
convert1=displacement8*.06102
document.f1.convert1.value=formatNumber(convert1,2)&" cu in"
end sub
//displacement converter 2
sub go9()
displacement9=document.f1.displacement9.value
if not isnumeric(displacement9) then
alert("Please insert displacement of the engine in cubic inches.")
end if
convert2=displacement9*16.38806
document.f1.convert2.value=formatNumber(convert2,2)&" cc"
end sub
//Intake Temperature Calculator
sub go10()
for i=12 to 18
if not isnumeric(document.f1.elements(i).value) then
alert("Please complete the fields with numbers.")
exit for
end if
next
compintemp=document.f1.compintemp.value
compinpress=document.f1.compinpress.value
compoutpress=document.f1.compoutpress.value
compeff=document.f1.compeff.value
inceff=document.f1.inceff.value
incpresdrop=document.f1.incpresdrop.value
ambtemp=document.f1.ambtemp.value
incintemp=(compintemp+460)+((((compintemp+460)*(((compoutpress+compinpress*1)/compinpress)^.283))-(compintemp+460))/(compeff/100))-460
intemp=incintemp-((inceff/100)*(incintemp-ambtemp))
document.f1.incintemp.value=formatNumber(incintemp,2)+" °F"
document.f1.intemp.value=formatNumber(intemp,2)+" °F"
end sub
//airflow converter 1
sub go11()
lbmin11=document.f1.lbmin11.value
cfm11=(lbmin11/.0756)
document.f1.cfm11.value=formatNumber(cfm11,2)+" CFM"
end sub
//airflow converter 2
sub go12()
cfm12=document.f1.cfm12.value
lbmin12=(cfm12*.0756)
document.f1.lbmin12.value=formatNumber(lbmin12,2)+" lb/min"
end sub
</script>
As for the script, well you can download it in the .doc file found later on in the thread, paste the text into notepad, save as .html and play with the fully functioning version. There have already been users who have downloaded this and earlier versions successfully. If you have a problem, please address it in this thread: http://www.dsmtuners.com/forums/showthread.php?t=225473 . I am working to get a working version on the site.
Attachments
You must be registered for see attachments list
