QUOTE(zorba0332 @ 8 Oct, 2008 - 09:27 PM)
I attached a small jpg file that shows the equations… if you can offer any thoughts, I would appreciate any feedback!! Thanks!!!!!
Ok, I had some problems reading the smaller parts of your equations. Somthing might be misinterpreted. I have solved your first equation for you and give you the code here. Now, this is more math/physics than programming so I didn't do any fancy stuff, it just pops up a messagebox with the answer.
In VB6 create a form, double-click it in the designer. Remove all code present in the edit window and paste in code below and press the run button.
Then
your work starts...
Try to make a field for temperature input on your form.
Make a button that calculates the temperature you gave.
Hints:
Textbox1.text, button1_click, cdouble(), "const" means constant... 
CODE
Private Sub Form_Load()
Const T = 373 'This is 100 Celsius (boiling water) expressed in Kelvin as an example
Dim Pc As Double
Dim D(4) As Double
Dim sigmaSum As Double, answer As Double
Pc = 45.3
D(1) = 91.9
D(2) = -17.7
D(3) = 81.3
D(4) = -39.2
'A little math...
'a rto (raised to) x = e rto (x * ln(a))
'(T-1) rto i/3 = e rto ((i/3) * ln(T-1)
'A little VB6...
'In VB6 e raised to x is expressed exp(x)
'In VB6 the natural logarithm of Y is expressed Log(Y)
'I put the Di part outside the Sigma for a while...
sigmaSum = 0
For i = 1 To 4
sigmaSum = sigmaSum + D(i) * Exp((i / 3) * Log(T - 1))
Next i
'Total represents what the expression to the right of the "="-mark computes to.
answer = Pc + sigmaSum
MsgBox (CStr(answer))
Unload Me
End Sub
Edit:
I see this is about density. The code I supplied gives NEGATIVE results which is totally unreasonalble. There must be somthing I didn't read correctly.... Hope the code gives you a clue any way.
/Jens
This post has been edited by jens: 10 Oct, 2008 - 12:07 PM
8 Oct, 2008 - 08:27 PM
| 