تم استخدام وظيفية Oil_Std_Density والتي تم برمجتها كما يلي
Function Oil_Std_Density(Oil_Density As Double, Temperature°F As Double) As Double'Top, Operating Temperature, °F
Dim delta As Double
'correction to meet the 60°F value
Oil_Std_Density = 1000 * (Oil_Density / 1000 * (-0.000624 * Temperature°F + 1.03843) - (0.05593 - 0.000914 * Temperature°F)) '/ ((1000 / 1000 + 0.05593 - 0.000914 * Temperature°F)) * (-0.000624 * Temperature°F + 1.03843)
delta = Oil_Std_Density - 1000 * (Oil_Std_Density / 1000 + 0.05593 - 0.000914 * 60) / (-0.000624 * 60 + 1.03843)
Oil_Std_Density = Oil_Std_Density - delta
End Function
تحياتي