[1] | 1 | #========================================================== |
---|
| 2 | # fichier de DESCRIPTION |
---|
| 3 | #========================================================== |
---|
| 4 | |
---|
| 5 | #DEFVAL pour definir des valeurs --------------------DEFVAL |
---|
| 6 | defval SZX 50 | 80 | 100 |
---|
| 7 | defval SZY 50 | 80 | 100 |
---|
| 8 | defval SZU 1 |
---|
| 9 | defval SZT 100 | 3 | 10 | 100 | 200 | 400 |
---|
| 10 | defval SZA 101 | 4 | 11 | 101 | 201 | 401 |
---|
| 11 | #exec disp_defval |
---|
| 12 | |
---|
| 13 | #NAME ---------------------------------------------HAT_NAME |
---|
| 14 | hat_name shalw |
---|
| 15 | |
---|
| 16 | #OPTION ---------------------------------------------OPTION |
---|
| 17 | option o_gradtest |
---|
| 18 | option o_m1qn3 |
---|
| 19 | option O_VARINCR |
---|
| 20 | |
---|
| 21 | #TRAJECTOIRES -----------------------------------------TRAJ |
---|
| 22 | traj Toce M SZU SZT | (en secondes) |
---|
| 23 | |
---|
| 24 | #ESPACE ----------------------------------------------SPACE |
---|
| 25 | space Soce M SZX SZY Toce |
---|
| 26 | |
---|
| 27 | #OPERA -----------------------------------------------OPERA |
---|
| 28 | opera Uoce U SZX SZY Toce |
---|
| 29 | |
---|
| 30 | #MODULES -------------------------------------------MODULES |
---|
| 31 | modul Hfil space Soce input 3 output 1 tempo target cout |
---|
| 32 | modul Ufil space Soce input 3 output 1 tempo target |
---|
| 33 | modul Vfil space Soce input 3 output 1 tempo target |
---|
| 34 | modul Hphy space Soce input 5 output 1 tempo |
---|
| 35 | modul Uphy space Soce input 7 output 1 tempo |
---|
| 36 | modul Vphy space Soce input 7 output 1 tempo |
---|
| 37 | # |
---|
| 38 | modul Hliss opera Uoce input array 9 output 1 linku Hfil |
---|
| 39 | modul Htild opera Uoce input 1 output 1 chgv Hfil |
---|
| 40 | modul Utild opera Uoce input 2 output 1 linku Ufil chgv Ufil |
---|
| 41 | modul Vtild opera Uoce input 2 output 1 linku Vfil chgv Vfil |
---|
| 42 | exec disp_modul |
---|
| 43 | |
---|
| 44 | #CONNECTIONS -----------Maillage 1 -----------------CTIN-M |
---|
| 45 | ctin Vphy 1 from Vfil 1 i j t-1 |
---|
| 46 | ctin Vphy 2..3 from Hphy 1 i j%-1 t-1 |
---|
| 47 | ctin Vphy 4..7 from Uphy 1 i%-1 j%-1 t-1 |
---|
| 48 | ctin Uphy 1 from Ufil 1 i j t-1 |
---|
| 49 | ctin Uphy 2..3 from Hphy 1 i%+1 j t-1 |
---|
| 50 | ctin Uphy 4..7 from Vphy 1 i%+1 j%+1 t-1 |
---|
| 51 | ctin Hphy 1 from Hfil 1 i j t-1 |
---|
| 52 | ctin Hphy 2..3 from Uphy 1 i%-1 j t-1 |
---|
| 53 | ctin Hphy 4..5 from Vphy 1 i j%+1 t-1 |
---|
| 54 | ctin Vfil 1 from Vfil 1 i j t-1 |
---|
| 55 | ctin Vfil 2..3 from Vphy 1 i j t%-1 |
---|
| 56 | ctin Hfil 1 from Hfil 1 i j t-1 |
---|
| 57 | ctin Hfil 2..3 from Hphy 1 i j t%-1 |
---|
| 58 | ctin Ufil 1 from Ufil 1 i j t-1 |
---|
| 59 | ctin Ufil 2..3 from Uphy 1 i j t%-1 |
---|
| 60 | |
---|
| 61 | #ctin Htild 1 from Hfil 1 i j t-1 << |
---|
| 62 | ctin Hliss 1..9 from Hfil 1 i%~1 j%~1 t |
---|
| 63 | |
---|
| 64 | ctin Htild 1 from Hliss 1 i j |
---|
| 65 | ctin Utild 1 from Hliss 1 i j |
---|
| 66 | ctin Utild 2 from Ufil 1 i j t |
---|
| 67 | ctin Vtild 1 from Hliss 1 i j |
---|
| 68 | ctin Vtild 2 from Vfil 1 i j t |
---|
| 69 | |
---|
| 70 | exec disp_ct_in |
---|
| 71 | |
---|
| 72 | #ORDER -----------------------------------------------ORDER |
---|
| 73 | order modinspace Soce |
---|
| 74 | order YA1 YA2 |
---|
| 75 | Vphy Hphy Uphy |
---|
| 76 | Vfil Hfil Ufil |
---|
| 77 | forder |
---|
| 78 | forder |
---|
| 79 | # |
---|
| 80 | order modinspace Uoce |
---|
| 81 | order YA1 YA2 |
---|
| 82 | Hliss Htild Utild Vtild |
---|
| 83 | forder |
---|
| 84 | forder |
---|
| 85 | # |
---|
| 86 | order spaceintraj Toce |
---|
| 87 | Soce |
---|
| 88 | forder |
---|
| 89 | # |
---|
| 90 | |
---|
| 91 | #USER FUNCTIONS ---------------------------------------UFCT |
---|
| 92 | insert_fct xdisplay |
---|
| 93 | insert_fct arg xivg | init variables globales (fcor, grav, ....) |
---|
| 94 | insert_fct arg xgauss |
---|
| 95 | insert_fct xvitgeo |
---|
| 96 | #insert_fct xvitf2d |
---|
| 97 | # |
---|
| 98 | insert_fct xLin_randn01U |
---|
| 99 | insert_fct arg xset |
---|
| 100 | |
---|
| 101 | #FIN ================================================== END |
---|