is the DynoJet weather correction factor something like this ???
DynoJet_CF= 1.18 * (29.92/ABP) * ((((SQR ( CAT +460) / 537 )) - .18
--------------------------------------------------------
i have some formulas i developed off the "old" Weather Correction Chart
that Stuska dyno were using ....i haven't compared Stuska correction to
SAE/SuperFlow ...maybe it might give accurate results over a greater range limit ??
i think DynoJet , Land & Sea , or DTS use different weather corrections also ?
SuperFlow uses the following formula ;
Weather_CF = (29.92 / ( Baro_Press - Vapor_Press )) * ((( 459.7 + CAT ) / 519.7 )^.5)
Corrected_HP = Weather_CF * UnCorrected_HP
in the above there is missing the effects of SuperFlow Friction HP Correction ...
i left it out !!
CAT = Carb Air Temperature in degrees F
STP = Standard Temperature and Pressure
and STP to SuperFlow means = 29.92 BP , 60 deg. F , and 0 % Rh
Below is some weather calculation source code
If you input the dry bulb temperature in degrees F
you will get the corresponding saturation pressure
..then all you have to do is multiply
the Relative Humidity % percent times saturation pressure
to calculate the vapor pressure that you will subtract
from the barometric pressure .
' at 0 deg C 2.036020696 inches Hg = 1 psi
' at 60 deg F 2.041778886 inches Hg. = 1 psi
' Note EXP in QBasic is same as the INVERSE LNx keys on a hand calculator
' Note EXP in QBasic replaces e 2.718281828 ^ number
' EXP in QBasic is the inverse function of the natural log
' it calculates e raised to a specified power
' ===================================================
' Copy - Paste this in QBasic
' QBasic , QuickBASIC computer program
VIEW PRINT: COLOR 15, 1: CLS
start:
LOCATE 5, 5
PRINT USING "Dry bulb = ###.## "; dryf;
LOCATE 5, 30
INPUT dryf$: IF LEN(dryf$) > 0 THEN dryf = VAL(dryf$)
dryr = 459.67 + dryf
satp = 29.9213 / (EXP((671.67 - dryr) * 35.913 * (dryr ^ -1.152437)))
LOCATE 8, 5: PRINT USING "Saturation pressure =###.###### psi "; (satp / 2.036020696 )
LOCATE 9, 5: PRINT USING "Saturation pressure =###.###### inches Hg "; satp
LOCATE 10, 5: PRINT USING "Saturation pressure =###.###### mm Hg "; satp * 25.4
GOTO start
'================================
The above formula "mirrors" the Smithsonian Meteorological Tables/Charts
from -60 deg.F to 212 deg.F and well past to as much as .00001 accuracy
in inches Hg.
-Meaux saturation pressure curve formula--
dryr = (dry bulb temperature deg.F) + 459.67 '<--conversion to Rankine
Psat = 29.9213 / (EXP((671.67 - dryr) * 35.913 * (dryr ^ -1.152437)))
The above { Meaux saturation pressure curve formula } is copyrighted
(c)1995 by Larry Meaux/MaxRace Software, All Rights Reserved.
i would just use the 1 to 9 Loop ...its faster and as accurate as 1 to 25 Loop
......you can delete the 1 to 25 Loop out of code
...... i just included it so you could see that option
'-----------------------------------------------------------------------------------------
'======== Copyright (c) 1995 Larry Meaux , All Rights Reserved ==============
'| |
'| Program Name: REVERSE.BAS , QBasic/QuickBasic version |
'| Date: Sept 29,1995 |
'| Time: 1:00 pm |
'| Purpose: Compute temperature from dewpoint vapor pressure or |
'| from saturation pressure (all in inches Hg.) |
'============================================================================
WIDTH 80 '<--set screen to 80 columns , default
SCREEN 0 '<--set to text screen , default
KEY OFF '<--turn-off 25th line GW-Basic's menu text
VIEW PRINT '<--enable printing on 25th line
LOCATE , , , 7, 7 '<--set cursor to default shape
COLOR 15, 1 '<--bright white on blue
CLS '<--clear entire screen
start:
LOCATE 3, 5
PRINT "Input choices: dewpoint,vapor, or saturation pressure in inches Hg.";
LOCATE 5, 5
PRINT USING "Pressure inches Hg.= ##.###### "; psat;
LOCATE 5, 38
INPUT psat$: IF LEN(psat$) > 0 THEN psat = VAL(psat$)
IF psat = 0 THEN psat = .5216 '<--default value if no input, (60 deg.F)
x = LOG(29.9213 / psat) '<--29.9213 inches Hg. at sea-level at 59 F
b = psat
a = 672 '<- 672 Rankine, (672 = 460 + 212) , 212 F = boiling pt. H2O
c = 35.9381# '<- Constant , 35.913 works with 671.67 and 459.67 (original)
d = -1.152437# '<- Constant , best constant value for d,(-1.152437 orig.)
logicloop:
FOR cnt = 1 TO 25 '<---- 25 is best value for number of loops
t1 = x - (a - b) * c * (b ^ d)
b = b + t1 / (a * c * d * b ^ (d - 1) - c * (d + 1) * b ^ d)
NEXT cnt
dry1 = psat
FOR cnt = 1 TO 9
dry1 = ((x + (c * (dry1 ^ (-.152437)))) / (a * c)) ^ -.867726392#
NEXT
dryb = (dry1 - 460)
LOCATE 10, 5
psatf = b - 460 '<-Fahrenheit conversion from Rankine degrees (459.67 orig.)
PRINT USING "Temperature =####.#### deg.F (####.#) (2nd formula=####.####)"; psatf; psatf; dryb
GOTO start
------------------------------------------------------------
Larry Meaux (meauxracing@mindspring.com)
Meaux Racing Heads
MaxRace Software
ET_Analyst for DragRacers