#========================================================== # fichier de DESCRIPTION #========================================================== #DEFVAL pour definir des valeurs --------------------DEFVAL defval SZX 50 | 80 | 100 defval SZY 50 | 80 | 100 defval SZU 1 defval SZT 100 | 200 | 400 defval SZA 101 | 201 | 401 #exec disp_defval #NAME ---------------------------------------------HAT_NAME hat_name shald #OPTION ---------------------------------------------OPTION option o_gradtest option o_m1qn3 #TRAJECTOIRES -----------------------------------------TRAJ traj Toce M SZU SZT | (en secondes) #ESPACE ----------------------------------------------SPACE space Soce M SZX SZY Toce #MODULES -------------------------------------------MODULES modul Hfas space Soce input 3 output 1 tempo target cout modul Ufas space Soce clonof Hfas modul Vfas space Soce clonof Hfas modul Hdyn space Soce input 5 output 1 tempo modul Udyn space Soce input 7 output 1 tempo modul Vdyn space Soce input 7 output 1 tempo exec disp_modul #CONNECTIONS -----------Maillage 1 -----------------CTIN-M ctin Vdyn 1 from Vfas 1 i j t-1 ctin Vdyn 2..3 from Hdyn 1 i j%-1 t-1 ctin Vdyn 4..7 from Udyn 1 i%-1 j%-1 t-1 ctin Udyn 1 from Ufas 1 i j t-1 ctin Udyn 2..3 from Hdyn 1 i%+1 j t-1 ctin Udyn 4..7 from Vdyn 1 i%+1 j%+1 t-1 ctin Hdyn 1 from Hfas 1 i j t-1 ctin Hdyn 2..3 from Udyn 1 i%-1 j t-1 ctin Hdyn 4..5 from Vdyn 1 i j%+1 t-1 ctin Vfas 1 from Vfas 1 i j t-1 ctin Vfas 2..3 from Vdyn 1 i j t%-1 ctin Hfas 1 from Hfas 1 i j t-1 ctin Hfas 2..3 from Hdyn 1 i j t%-1 ctin Ufas 1 from Ufas 1 i j t-1 ctin Ufas 2..3 from Udyn 1 i j t%-1 exec disp_ct_in #ORDER -----------------------------------------------ORDER order modinspace Soce order YA1 YA2 Vdyn Hdyn Udyn Vfas Hfas Ufas forder forder # order spaceintraj Toce Soce forder # #USER FUNCTIONS ---------------------------------------UFCT insert_fct xdisplay insert_fct arg xivg | init variables globales (fcor, grav, ....) insert_fct arg xgauss insert_fct xvitgeo #FIN ================================================== END #========================================================== # fichier de DESCRIPTION #========================================================== #DEFVAL pour definir des valeurs --------------------DEFVAL defval SZX 50 | 80 | 100 defval SZY 50 | 80 | 100 defval SZU 1 defval SZT 100 | 200 | 400 defval SZA 101 | 201 | 401 #exec disp_defval #NAME ---------------------------------------------HAT_NAME hat_name shald #OPTION ---------------------------------------------OPTION option o_gradtest option o_m1qn3 #TRAJECTOIRES -----------------------------------------TRAJ traj Toce M SZU SZT | (en secondes) #ESPACE ----------------------------------------------SPACE space Soce M SZX SZY Toce #MODULES -------------------------------------------MODULES modul Hfas space Soce input 3 output 1 tempo target cout modul Ufas space Soce clonof Hfas modul Vfas space Soce clonof Hfas modul Hdyn space Soce input 5 output 1 tempo modul Udyn space Soce input 7 output 1 tempo modul Vdyn space Soce input 7 output 1 tempo exec disp_modul #CONNECTIONS -----------Maillage 1 -----------------CTIN-M ctin Vdyn 1 from Vfas 1 i j t-1 ctin Vdyn 2..3 from Hdyn 1 i j%-1 t-1 ctin Vdyn 4..7 from Udyn 1 i%-1 j%-1 t-1 ctin Udyn 1 from Ufas 1 i j t-1 ctin Udyn 2..3 from Hdyn 1 i%+1 j t-1 ctin Udyn 4..7 from Vdyn 1 i%+1 j%+1 t-1 ctin Hdyn 1 from Hfas 1 i j t-1 ctin Hdyn 2..3 from Udyn 1 i%-1 j t-1 ctin Hdyn 4..5 from Vdyn 1 i j%+1 t-1 ctin Vfas 1 from Vfas 1 i j t-1 ctin Vfas 2..3 from Vdyn 1 i j t%-1 ctin Hfas 1 from Hfas 1 i j t-1 ctin Hfas 2..3 from Hdyn 1 i j t%-1 ctin Ufas 1 from Ufas 1 i j t-1 ctin Ufas 2..3 from Udyn 1 i j t%-1 exec disp_ct_in #ORDER -----------------------------------------------ORDER order modinspace Soce order YA1 YA2 Vdyn Hdyn Udyn Vfas Hfas Ufas forder forder # order spaceintraj Toce Soce forder # #USER FUNCTIONS ---------------------------------------UFCT insert_fct xdisplay insert_fct arg xivg | init variables globales (fcor, grav, ....) insert_fct arg xgauss insert_fct xvitgeo insert_fct xvitf2d #FIN ================================================== END #========================================================== # # fichier de DESCRIPTION shall.d # # RESPECTER L'ORDRE - NE PAS SAISIR DE TAB #========================================================== #DEFVAL pour definir des trucs ----------------------DEFVAL defval SZX 50 | 80 | 100 defval SZY 50 | 80 | 100 defval SZU 1 defval SZT 100 | 200 | 400 defval SZA 101 | 201 | 401 #exec disp_defval #NAME ---------------------------------------------HAT_NAME hat_name shald #OPTION ---------------------------------------------OPTION #option O_GRADTEST option o_m1qn3 #option O_REAL float #TRAJECTOIRES -----------------------------------------TRAJ traj Toce M SZU SZT | (en secondes) #ESPACE ----------------------------------------------SPACE space Soce M SZX SZY Toce #MODULES -------------------------------------------MODULES modul Hfas space Soce input 3 output 1 tempo target cout modul Ufas space Soce clonof Hfas modul Vfas space Soce clonof Hfas modul Hdyn space Soce input 5 output 1 tempo modul Udyn space Soce input 7 output 1 tempo modul Vdyn space Soce input 7 output 1 tempo exec disp_modul #CONNECTIONS -----------Maillage 1 -----------------CTIN-M ctin Vdyn 1 from Vfas 1 i j t-1 ctin Vdyn 2..3 from Hdyn 1 i j%-1 t-1 ctin Vdyn 4..7 from Udyn 1 i%-1 j%-1 t-1 ctin Udyn 1 from Ufas 1 i j t-1 ctin Udyn 2..3 from Hdyn 1 i%+1 j t-1 ctin Udyn 4..7 from Vdyn 1 i%+1 j%+1 t-1 ctin Hdyn 1 from Hfas 1 i j t-1 ctin Hdyn 2..3 from Udyn 1 i%-1 j t-1 ctin Hdyn 4..5 from Vdyn 1 i j%+1 t-1 ctin Vfas 1 from Vfas 1 i j t-1 ctin Vfas 2..3 from Vdyn 1 i j t%-1 ctin Hfas 1 from Hfas 1 i j t-1 ctin Hfas 2..3 from Hdyn 1 i j t%-1 ctin Ufas 1 from Ufas 1 i j t-1 ctin Ufas 2..3 from Udyn 1 i j t%-1 exec disp_ct_in #ORDER -----------------------------------------------ORDER order modinspace Soce order YA1 YA2 Vdyn Hdyn Udyn Vfas Hfas Ufas forder forder # order spaceintraj Toce Soce forder # #USER FUNCTIONS ---------------------------------------UFCT insert_fct xdisplay insert_fct arg xivg | init variables globales (fcor, grav, ....) insert_fct arg xgauss insert_fct xinit_run insert_fct xvitgeo #FIN ================================================== END #========================================================== # fichier de DESCRIPTION #========================================================== #DEFVAL pour definir des valeurs --------------------DEFVAL defval SZX 50 | 80 | 100 defval SZY 50 | 80 | 100 defval SZU 1 defval SZT 99 | 200 | 400 defval SZA 100 | 201 | 401 #exec disp_defval #NAME ---------------------------------------------HAT_NAME hat_name shald #OPTION ---------------------------------------------OPTION option o_gradtest option o_m1qn3 #TRAJECTOIRES -----------------------------------------TRAJ traj Toce M SZU SZT | (en secondes) #ESPACE ----------------------------------------------SPACE space Soce M SZX SZY Toce #MODULES -------------------------------------------MODULES modul Hfas space Soce input 3 output 1 tempo target cout modul Ufas space Soce clonof Hfas modul Vfas space Soce clonof Hfas modul Hdyn space Soce input 5 output 1 tempo modul Udyn space Soce input 7 output 1 tempo modul Vdyn space Soce input 7 output 1 tempo exec disp_modul #CONNECTIONS -----------Maillage 1 -----------------CTIN-M ctin Vdyn 1 from Vfas 1 i j t-1 ctin Vdyn 2..3 from Hdyn 1 i j%-1 t-1 ctin Vdyn 4..7 from Udyn 1 i%-1 j%-1 t-1 ctin Udyn 1 from Ufas 1 i j t-1 ctin Udyn 2..3 from Hdyn 1 i%+1 j t-1 ctin Udyn 4..7 from Vdyn 1 i%+1 j%+1 t-1 ctin Hdyn 1 from Hfas 1 i j t-1 ctin Hdyn 2..3 from Udyn 1 i%-1 j t-1 ctin Hdyn 4..5 from Vdyn 1 i j%+1 t-1 ctin Vfas 1 from Vfas 1 i j t-1 ctin Vfas 2..3 from Vdyn 1 i j t%-1 ctin Hfas 1 from Hfas 1 i j t-1 ctin Hfas 2..3 from Hdyn 1 i j t%-1 ctin Ufas 1 from Ufas 1 i j t-1 ctin Ufas 2..3 from Udyn 1 i j t%-1 exec disp_ct_in #ORDER -----------------------------------------------ORDER order modinspace Soce order YA1 YA2 Vdyn Hdyn Udyn Vfas Hfas Ufas forder forder # order spaceintraj Toce Soce forder # #USER FUNCTIONS ---------------------------------------UFCT insert_fct xdisplay insert_fct arg xivg | init variables globales (fcor, grav, ....) insert_fct arg xgauss insert_fct xvitgeo insert_fct xvitf2d #FIN ================================================== END #========================================================== # fichier de DESCRIPTION #========================================================== #DEFVAL pour definir des valeurs --------------------DEFVAL defval SZX 50 | 80 | 100 defval SZY 50 | 80 | 100 defval SZU 1 defval SZT 100 | 200 | 400 defval SZA 101 | 201 | 401 #exec disp_defval #NAME ---------------------------------------------HAT_NAME hat_name shalw #OPTION ---------------------------------------------OPTION option o_gradtest option o_m1qn3 #TRAJECTOIRES -----------------------------------------TRAJ traj Toce M SZU SZT | (en secondes) #ESPACE ----------------------------------------------SPACE space Soce M SZX SZY Toce #MODULES -------------------------------------------MODULES modul Hfil space Soce input 3 output 1 tempo target cout #modul Hfil space Soce input 3 output 1 tempo target #modul Ufil space Soce clonof Hfil target #modul Vfil space Soce clonof Hfil target #modul Ufil space Soce clonol Hfil #modul Vfil space Soce clonol Hfil modul Ufil space Soce input 3 output 1 tempo | target | cout modul Vfil space Soce input 3 output 1 tempo | target | cout modul Hphy space Soce input 5 output 1 tempo #modul Hphy space Soce input 5 output 1 tempo cout modul Uphy space Soce input 7 output 1 tempo modul Vphy space Soce input 7 output 1 tempo exec disp_modul #CONNECTIONS -----------Maillage 1 -----------------CTIN-M ctin Vphy 1 from Vfil 1 i j t-1 ctin Vphy 2..3 from Hphy 1 i j%-1 t-1 ctin Vphy 4..7 from Uphy 1 i%-1 j%-1 t-1 ctin Uphy 1 from Ufil 1 i j t-1 ctin Uphy 2..3 from Hphy 1 i%+1 j t-1 ctin Uphy 4..7 from Vphy 1 i%+1 j%+1 t-1 ctin Hphy 1 from Hfil 1 i j t-1 ctin Hphy 2..3 from Uphy 1 i%-1 j t-1 ctin Hphy 4..5 from Vphy 1 i j%+1 t-1 ctin Vfil 1 from Vfil 1 i j t-1 ctin Vfil 2..3 from Vphy 1 i j t%-1 ctin Hfil 1 from Hfil 1 i j t-1 ctin Hfil 2..3 from Hphy 1 i j t%-1 ctin Ufil 1 from Ufil 1 i j t-1 ctin Ufil 2..3 from Uphy 1 i j t%-1 exec disp_ct_in #ORDER -----------------------------------------------ORDER order modinspace Soce order YA1 YA2 Vphy Hphy Uphy Vfil Hfil Ufil forder forder # order spaceintraj Toce Soce forder # #USER FUNCTIONS ---------------------------------------UFCT insert_fct xdisplay insert_fct arg xivg | init variables globales (fcor, grav, ....) insert_fct arg xgauss insert_fct xvitgeo #insert_fct xvitf2d #FIN ================================================== END #========================================================== # fichier de DESCRIPTION #========================================================== #DEFVAL pour definir des valeurs --------------------DEFVAL defval SZX 50 | 80 | 100 defval SZY 50 | 80 | 100 defval SZU 1 defval SZT 100 | 200 | 400 defval SZA 101 | 201 | 401 #exec disp_defval #NAME ---------------------------------------------HAT_NAME hat_name shalw #OPTION ---------------------------------------------OPTION option o_gradtest option o_m1qn3 option O_VARINCR #TRAJECTOIRES -----------------------------------------TRAJ traj Toce M SZU SZT | (en secondes) #ESPACE ----------------------------------------------SPACE space Soce M SZX SZY Toce #MODULES -------------------------------------------MODULES modul Hfil space Soce input 3 output 1 tempo target cout #modul Hfil space Soce input 3 output 1 tempo target #modul Ufil space Soce clonof Hfil #modul Vfil space Soce clonof Hfil #modul Ufil space Soce clonof Hfil target #modul Vfil space Soce clonof Hfil target modul Ufil space Soce input 3 output 1 tempo target modul Vfil space Soce input 3 output 1 tempo target modul Hphy space Soce input 5 output 1 tempo #modul Hphy space Soce input 5 output 1 tempo cout modul Uphy space Soce input 7 output 1 tempo modul Vphy space Soce input 7 output 1 tempo exec disp_modul #CONNECTIONS -----------Maillage 1 -----------------CTIN-M ctin Vphy 1 from Vfil 1 i j t-1 ctin Vphy 2..3 from Hphy 1 i j%-1 t-1 ctin Vphy 4..7 from Uphy 1 i%-1 j%-1 t-1 ctin Uphy 1 from Ufil 1 i j t-1 ctin Uphy 2..3 from Hphy 1 i%+1 j t-1 ctin Uphy 4..7 from Vphy 1 i%+1 j%+1 t-1 ctin Hphy 1 from Hfil 1 i j t-1 ctin Hphy 2..3 from Uphy 1 i%-1 j t-1 ctin Hphy 4..5 from Vphy 1 i j%+1 t-1 ctin Vfil 1 from Vfil 1 i j t-1 ctin Vfil 2..3 from Vphy 1 i j t%-1 ctin Hfil 1 from Hfil 1 i j t-1 ctin Hfil 2..3 from Hphy 1 i j t%-1 ctin Ufil 1 from Ufil 1 i j t-1 ctin Ufil 2..3 from Uphy 1 i j t%-1 exec disp_ct_in #ORDER -----------------------------------------------ORDER order modinspace Soce order YA1 YA2 Vphy Hphy Uphy Vfil Hfil Ufil forder forder # order spaceintraj Toce Soce forder # #USER FUNCTIONS ---------------------------------------UFCT insert_fct xdisplay insert_fct arg xivg | init variables globales (fcor, grav, ....) insert_fct arg xgauss insert_fct xvitgeo #insert_fct xvitf2d insert_fct xstocktrue insert_fct xguessrms insert_fct xanalrms #FIN ================================================== END #========================================================== # fichier de DESCRIPTION #========================================================== #DEFVAL pour definir des valeurs --------------------DEFVAL defval SZX 50 | 80 | 100 defval SZY 50 | 80 | 100 defval SZU 1 defval SZT 100 | 100 | 10 | 100 | 200 | 400 defval SZA 101 | 101 | 11 | 101 | 201 | 401 | SZA must be SZU+SZT #exec disp_defval #NAME ---------------------------------------------HAT_NAME hat_name shalw #OPTION ---------------------------------------------OPTION option o_gradtest option o_m1qn3 option O_VARINCR #TRAJECTOIRES -----------------------------------------TRAJ traj Toce M SZU SZT | (en secondes) #ESPACE ----------------------------------------------SPACE space Soce M SZX SZY Toce #OPERA -----------------------------------------------OPERA opera Uoce U SZX SZY Toce #MODULES -------------------------------------------MODULES modul Hfil space Soce input 3 output 1 tempo target cout modul Ufil space Soce input 3 output 1 tempo target modul Vfil space Soce input 3 output 1 tempo target modul Hphy space Soce input 5 output 1 tempo modul Uphy space Soce input 7 output 1 tempo modul Vphy space Soce input 7 output 1 tempo # #modul Hliss opera Uoce input array 9 output 1 linku Hfil modul Hliss opera Uoce input array 25 output 1 linku Hfil modul Hnorm opera Uoce input 1 output 1 modul Unorm opera Uoce input 1 output 1 linku Ufil modul Vnorm opera Uoce input 1 output 1 linku Vfil modul Htild opera Uoce input 1 output 1 chgv Hfil #modul Utild opera Uoce input 6 output 1 linku Ufil chgv Ufil #modul Vtild opera Uoce input 6 output 1 linku Vfil chgv Vfil modul Utild opera Uoce input 6 output 1 chgv Ufil modul Vtild opera Uoce input 6 output 1 chgv Vfil exec disp_modul #CONNECTIONS -----------Maillage 1 -----------------CTIN-M ctin Vphy 1 from Vfil 1 i j t-1 ctin Vphy 2..3 from Hphy 1 i j%-1 t-1 ctin Vphy 4..7 from Uphy 1 i%-1 j%-1 t-1 ctin Uphy 1 from Ufil 1 i j t-1 ctin Uphy 2..3 from Hphy 1 i%+1 j t-1 ctin Uphy 4..7 from Vphy 1 i%+1 j%+1 t-1 ctin Hphy 1 from Hfil 1 i j t-1 ctin Hphy 2..3 from Uphy 1 i%-1 j t-1 ctin Hphy 4..5 from Vphy 1 i j%+1 t-1 ctin Vfil 1 from Vfil 1 i j t-1 ctin Vfil 2..3 from Vphy 1 i j t%-1 ctin Hfil 1 from Hfil 1 i j t-1 ctin Hfil 2..3 from Hphy 1 i j t%-1 ctin Ufil 1 from Ufil 1 i j t-1 ctin Ufil 2..3 from Uphy 1 i j t%-1 #ctin Htild 1 from Hfil 1 i j t-1 << ctin Hliss 1..25 from Hfil 1 i%~2 j%~2 t ctin Hnorm 1 from Hliss 1 i j ctin Unorm 1 from Ufil 1 i j t ctin Vnorm 1 from Vfil 1 i j t ctin Htild 1 from Hnorm 1 i j ctin Utild 1 from Hnorm 1 i j+1 ctin Utild 2 from Hnorm 1 i+1 j+1 ctin Utild 3 from Hnorm 1 i j-1 ctin Utild 4 from Hnorm 1 i+1 j-1 ctin Utild 5 from Hnorm 1 i j #ctin Utild 6 from Ufil 1 i j t ctin Utild 6 from Unorm 1 i j ctin Vtild 1 from Hnorm 1 i+1 j ctin Vtild 2 from Hnorm 1 i+1 j-1 ctin Vtild 3 from Hnorm 1 i-1 j ctin Vtild 4 from Hnorm 1 i-1 j-1 ctin Vtild 5 from Hnorm 1 i j #ctin Vtild 6 from Vfil 1 i j t ctin Vtild 6 from Vnorm 1 i j exec disp_ct_in #ORDER -----------------------------------------------ORDER order modinspace Soce order YA1 YA2 Vphy Hphy Uphy Vfil Hfil Ufil forder forder # order modinspace Uoce order YA1 YA2 Hliss Hnorm Unorm Vnorm Htild Utild Vtild forder forder # order spaceintraj Toce Soce forder # #USER FUNCTIONS ---------------------------------------UFCT insert_fct xdisplay insert_fct arg xsetgv | valo variables globales (fcor, grav, ....) insert_fct arg xgauss insert_fct xvitgeo # insert_fct xLin_randn01U insert_fct arg xset | no more usefull ? insert_fct arg xsigcoefJ insert_fct arg xperturbHfil insert_fct xvitgeo2 insert_fct xstocktrue insert_fct xguessrms insert_fct xanalrms #FIN ================================================== END #========================================================== # fichier de DESCRIPTION #========================================================== #DEFVAL pour definir des valeurs --------------------DEFVAL defval SZX 50 | 80 | 100 defval SZY 50 | 80 | 100 defval SZU 1 defval SZT 100 | 200 | 400 defval SZA 101 | 201 | 401 #exec disp_defval #NAME ---------------------------------------------HAT_NAME hat_name shalw #OPTION ---------------------------------------------OPTION option o_gradtest option o_m1qn3 option O_VARINCR #TRAJECTOIRES -----------------------------------------TRAJ traj Toce M SZU SZT | (en secondes) #ESPACE ----------------------------------------------SPACE space Soce M SZX SZY Toce #OPERA -----------------------------------------------OPERA opera Uoce U SZX SZY Toce #MODULES -------------------------------------------MODULES modul Hfil space Soce input 3 output 1 tempo target cout modul Ufil space Soce input 3 output 1 tempo target modul Vfil space Soce input 3 output 1 tempo target modul Hphy space Soce input 5 output 1 tempo modul Uphy space Soce input 7 output 1 tempo modul Vphy space Soce input 7 output 1 tempo modul Htild opera Uoce input 1 output 1 linku Hfil chgv Hfil modul Utild opera Uoce input 2 output 1 linku Ufil chgv Ufil modul Vtild opera Uoce input 2 output 1 linku Vfil chgv Vfil exec disp_modul #CONNECTIONS -----------Maillage 1 -----------------CTIN-M ctin Vphy 1 from Vfil 1 i j t-1 ctin Vphy 2..3 from Hphy 1 i j%-1 t-1 ctin Vphy 4..7 from Uphy 1 i%-1 j%-1 t-1 ctin Uphy 1 from Ufil 1 i j t-1 ctin Uphy 2..3 from Hphy 1 i%+1 j t-1 ctin Uphy 4..7 from Vphy 1 i%+1 j%+1 t-1 ctin Hphy 1 from Hfil 1 i j t-1 ctin Hphy 2..3 from Uphy 1 i%-1 j t-1 ctin Hphy 4..5 from Vphy 1 i j%+1 t-1 ctin Vfil 1 from Vfil 1 i j t-1 ctin Vfil 2..3 from Vphy 1 i j t%-1 ctin Hfil 1 from Hfil 1 i j t-1 ctin Hfil 2..3 from Hphy 1 i j t%-1 ctin Ufil 1 from Ufil 1 i j t-1 ctin Ufil 2..3 from Uphy 1 i j t%-1 #ctin Htild 1 from Hfil 1 i j t-1 #ctin Utild 1 from Hfil 1 i j t-1 #ctin Utild 2 from Ufil 1 i j t-1 #ctin Vtild 1 from Hfil 1 i j t-1 #ctin Vtild 2 from Vfil 1 i j t-1 ctin Htild 1 from Hfil 1 i j t ctin Utild 1 from Hfil 1 i j t ctin Utild 2 from Ufil 1 i j t ctin Vtild 1 from Hfil 1 i j t ctin Vtild 2 from Vfil 1 i j t exec disp_ct_in #ORDER -----------------------------------------------ORDER order modinspace Soce order YA1 YA2 Vphy Hphy Uphy Vfil Hfil Ufil forder forder # order modinspace Uoce order YA1 YA2 Htild Utild Vtild forder forder # order spaceintraj Toce Soce forder # #USER FUNCTIONS ---------------------------------------UFCT insert_fct xdisplay insert_fct arg xivg | init variables globales (fcor, grav, ....) insert_fct arg xgauss insert_fct xvitgeo #insert_fct xvitf2d #FIN ================================================== END #========================================================== # fichier de DESCRIPTION #========================================================== #DEFVAL pour definir des valeurs --------------------DEFVAL defval SZX 50 | 80 | 100 defval SZY 50 | 80 | 100 defval SZU 1 defval SZT 100 | 3 | 10 | 100 | 200 | 400 defval SZA 101 | 4 | 11 | 101 | 201 | 401 #exec disp_defval #NAME ---------------------------------------------HAT_NAME hat_name shalw #OPTION ---------------------------------------------OPTION option o_gradtest option o_m1qn3 option O_VARINCR #TRAJECTOIRES -----------------------------------------TRAJ traj Toce M SZU SZT | (en secondes) #ESPACE ----------------------------------------------SPACE space Soce M SZX SZY Toce #OPERA -----------------------------------------------OPERA opera Uoce U SZX SZY Toce #MODULES -------------------------------------------MODULES modul Hfil space Soce input 3 output 1 tempo target cout modul Ufil space Soce input 3 output 1 tempo target modul Vfil space Soce input 3 output 1 tempo target modul Hphy space Soce input 5 output 1 tempo modul Uphy space Soce input 7 output 1 tempo modul Vphy space Soce input 7 output 1 tempo # #modul Hliss opera Uoce input array 9 output 1 linku Hfil chgv Hfil |voisinage d'ordre 1 modul Hliss opera Uoce input array 25 output 1 linku Hfil chgv Hfil |voisinage d'ordre 2 modul Utild opera Uoce input 1 output 1 linku Ufil chgv Ufil modul Vtild opera Uoce input 1 output 1 linku Vfil chgv Vfil exec disp_modul #CONNECTIONS -----------Maillage 1 -----------------CTIN-M ctin Vphy 1 from Vfil 1 i j t-1 ctin Vphy 2..3 from Hphy 1 i j%-1 t-1 ctin Vphy 4..7 from Uphy 1 i%-1 j%-1 t-1 ctin Uphy 1 from Ufil 1 i j t-1 ctin Uphy 2..3 from Hphy 1 i%+1 j t-1 ctin Uphy 4..7 from Vphy 1 i%+1 j%+1 t-1 ctin Hphy 1 from Hfil 1 i j t-1 ctin Hphy 2..3 from Uphy 1 i%-1 j t-1 ctin Hphy 4..5 from Vphy 1 i j%+1 t-1 ctin Vfil 1 from Vfil 1 i j t-1 ctin Vfil 2..3 from Vphy 1 i j t%-1 ctin Hfil 1 from Hfil 1 i j t-1 ctin Hfil 2..3 from Hphy 1 i j t%-1 ctin Ufil 1 from Ufil 1 i j t-1 ctin Ufil 2..3 from Uphy 1 i j t%-1 #ctin Htild 1 from Hfil 1 i j t-1 << #ctin Hliss 1..9 from Hfil 1 i%~1 j%~1 t |voisinage d'ordre 1 ctin Hliss 1..25 from Hfil 1 i%~2 j%~2 t |voisinage d'ordre 2 ctin Utild 1 from Ufil 1 i j t ctin Vtild 1 from Vfil 1 i j t exec disp_ct_in #ORDER -----------------------------------------------ORDER order modinspace Soce order YA1 YA2 Vphy Hphy Uphy Vfil Hfil Ufil forder forder # order modinspace Uoce order YA1 YA2 Hliss Utild Vtild forder forder # order spaceintraj Toce Soce forder # #USER FUNCTIONS ---------------------------------------UFCT insert_fct xdisplay insert_fct arg xivg | init variables globales (fcor, grav, ....) insert_fct arg xgauss insert_fct xvitgeo #insert_fct xvitf2d # insert_fct xLin_randn01U insert_fct arg xset #FIN ================================================== END #========================================================== # fichier de DESCRIPTION #========================================================== #DEFVAL pour definir des valeurs --------------------DEFVAL defval SZX 50 | 80 | 100 defval SZY 50 | 80 | 100 defval SZU 1 defval SZT 100 | 100 | 10 | 100 | 200 | 400 defval SZA 101 | 101 | 11 | 101 | 201 | 401 | SZA must be SZU+SZT #exec disp_defval #NAME ---------------------------------------------HAT_NAME hat_name shalw #OPTION ---------------------------------------------OPTION option o_gradtest option o_m1qn3 option O_VARINCR #TRAJECTOIRES -----------------------------------------TRAJ traj Toce M SZU SZT | (en secondes) #ESPACE ----------------------------------------------SPACE space Soce M SZX SZY Toce #OPERA -----------------------------------------------OPERA opera Uoce U SZX SZY Toce #MODULES -------------------------------------------MODULES modul Hfil space Soce input 3 output 1 tempo target cout modul Ufil space Soce input 3 output 1 tempo target modul Vfil space Soce input 3 output 1 tempo target modul Hphy space Soce input 5 output 1 tempo modul Uphy space Soce input 7 output 1 tempo modul Vphy space Soce input 7 output 1 tempo # #modul Hliss opera Uoce input array 9 output 1 linku Hfil modul Hliss opera Uoce input array 25 output 1 linku Hfil modul Hnorm opera Uoce input 1 output 1 modul Htild opera Uoce input 1 output 1 chgv Hfil modul Utild opera Uoce input 2 output 1 linku Ufil chgv Ufil modul Vtild opera Uoce input 2 output 1 linku Vfil chgv Vfil exec disp_modul #CONNECTIONS -----------Maillage 1 -----------------CTIN-M ctin Vphy 1 from Vfil 1 i j t-1 ctin Vphy 2..3 from Hphy 1 i j%-1 t-1 ctin Vphy 4..7 from Uphy 1 i%-1 j%-1 t-1 ctin Uphy 1 from Ufil 1 i j t-1 ctin Uphy 2..3 from Hphy 1 i%+1 j t-1 ctin Uphy 4..7 from Vphy 1 i%+1 j%+1 t-1 ctin Hphy 1 from Hfil 1 i j t-1 ctin Hphy 2..3 from Uphy 1 i%-1 j t-1 ctin Hphy 4..5 from Vphy 1 i j%+1 t-1 ctin Vfil 1 from Vfil 1 i j t-1 ctin Vfil 2..3 from Vphy 1 i j t%-1 ctin Hfil 1 from Hfil 1 i j t-1 ctin Hfil 2..3 from Hphy 1 i j t%-1 ctin Ufil 1 from Ufil 1 i j t-1 ctin Ufil 2..3 from Uphy 1 i j t%-1 #ctin Htild 1 from Hfil 1 i j t-1 << #ctin Hliss 1..9 from Hfil 1 i%~1 j%~1 t ctin Hliss 1..25 from Hfil 1 i%~2 j%~2 t ctin Hnorm 1 from Hliss 1 i j ctin Htild 1 from Hnorm 1 i j ctin Utild 1 from Hnorm 1 i j ctin Utild 2 from Ufil 1 i j t ctin Vtild 1 from Hnorm 1 i j ctin Vtild 2 from Vfil 1 i j t exec disp_ct_in #ORDER -----------------------------------------------ORDER order modinspace Soce order YA1 YA2 Vphy Hphy Uphy Vfil Hfil Ufil forder forder # order modinspace Uoce order YA1 YA2 Hliss Hnorm Htild Utild Vtild forder forder # order spaceintraj Toce Soce forder # #USER FUNCTIONS ---------------------------------------UFCT insert_fct xdisplay insert_fct arg xsetgv | valo variables globales (fcor, grav, ....) insert_fct arg xgauss insert_fct xvitgeo # insert_fct xLin_randn01U insert_fct arg xsigcoefJ insert_fct arg xperturbHfil #FIN ================================================== END #DEFVAL defval NZ 270 defval NZm1 269 defval NR 2001 #HAT_NAME hat_name ftest #OPTION option O_GRADTEST option O_M1QN3 #TRAJ traj Tlu M 0 1 #SPACE space Sct M 1 Tlu space Slu M 1 NZ Tlu space Sac M NR NZ Tlu #MODUL modul eff space Sac noward inter YA1 output 2 modul g0 space Sac noward inter YA1 output 2 modul bido space Sac input 2 inter YA1 output 2 #CTIN (CONNECTIONS) #ORDER order modinspace Sac order YA1 bido forder forder order spaceintraj Tlu Sac forder #USER FUNCTIONS insert_fct xdisplay insert_fct xset_init insert_fct arg xset_deltazr insert_fct arg xset_c0 insert_fct arg xset_freq insert_fct arg xset_zs insert_fct arg xset_fac