23 lines
630 B
Markdown
23 lines
630 B
Markdown
```pascal
|
|
FUNCTION "WaterDensity" : Real
|
|
{ S7_Optimized_Access := 'FALSE' }
|
|
AUTHOR : 'Author'
|
|
FAMILY : 'Function'
|
|
NAME : 'Name'
|
|
VERSION : 1.0
|
|
VAR_INPUT
|
|
i_Temperature : Real;
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
|
|
|
|
(* classic code: #WaterDensity := 0.99985 + 0.000061577 * #i_Temperature - 0.0000081546 * #i_Temperature * #i_Temperature + 0.000000047799 * #i_Temperature * #i_Temperature * #i_Temperature ;*)
|
|
#WaterDensity := REAL#0.99985 + REAL#0.000061577 * #i_Temperature - REAL#0.0000081546 * #i_Temperature * #i_Temperature + REAL#0.000000047799 * #i_Temperature * #i_Temperature * #i_Temperature ;
|
|
|
|
END_FUNCTION
|
|
|
|
|
|
```
|