(33E) Stream Flow Estimate in Culverts

[Dieter]

(03-09-2019 10:30 PM)Thomas Klemm Wrote:  Or then extract \(r\) in the formula for \(A\):

This saves one step. But we even can save two more if the two ENTERs are removed and the automatic stack drop with T-copy is used. This allows for a constant of 1,4859, a final DEG to reset the angle mode and a stack that holds all three calculated results:

Code:

01 RAD
02 STO 0
03 RCL 1
04 X<>Y
05 -
06 RCL 1
07 /
08 COS-1
09 STO 4
10 RCL 1
11 *
12 RCL 1
13 RCL 0
14 -
15 RCL 4
16 SIN
17 *
18 -
19 RCL 1
20 *
21 PAUSE
22 RCL 4
23 RCL 1
24 2
25 *
26 *
27 /
28 x^2
29 3
30 1/x
31 Y^X
32 RCL 3
33 /
34 RCL 2
35 SQRT
36 *
37 1
38 .
39 4
40 8
41 5
42 9
43 *
44 PAUSE
45 *
46 LastX
47 X<>Y
48 DEG
49 GTO 00

On exit the stack content is

T: Area A
Z: Area A
Y: Velocity V
X: Discharge rate Q

Dieter