main_macrorugo.sce 1.24 KB
Newer Older
1
2
3
4
5
// Test des passes à macro rugosité pour JaLHyd
clear
sCurrentPath = get_absolute_file_path("main_macrorugo.sce");
getd(sCurrentPath);

6
7
bDbg = %f;

8
// Tests parameters
9
10
11
12
13
14
15
16
ks = 0.01 // Rugosité de fond (m)
Cd0=1.5 // Forme
S = 0.05 // Pente
C = 0.13; // Concentration
D = 0.5; // Diamètre
B = 1 // Largeur
z_amont = 12.5; // Cote amont (m)
long = 6; // Longueur rampe (m)
17
18

// *****************************************************************************
19
printf("\n*** Emergent conditions Cd=1.5***\n")
20
21
// *****************************************************************************
h = 0.6
22
23
24
k = 0.7
Cd0 = 1.5
macrorugo_searchQ(ks, D, k, Cd0, S, B, h, C, z_amont, long, bDbg)
25

26
27
28
29
30
31
32
// *****************************************************************************
printf("\n*** Emergent conditions Cd=2***\n")
// *****************************************************************************
h = 0.6
k = 0.7
Cd0 = 2
macrorugo_searchQ(ks, D, k, Cd0, S, B, h, C, z_amont, long, bDbg)
33
34
35
36

// *****************************************************************************
printf("\n*** Submerged conditions ***\n")
// *****************************************************************************
37
k = 0.7
38
h = 0.8
39
40
Cd0 = 1.5
macrorugo_searchQ(ks, D, k, Cd0, S, B, h, C, z_amont, long, bDbg)
41