[1] | 1 | #============================================================================== |
---|
| 2 | # |
---|
| 3 | # fichier de DESCRIPTION nnpzdd.d |
---|
| 4 | # |
---|
| 5 | # (RESPECTER L'ORDRE - NE PAS SAISIR DE TAB) |
---|
| 6 | #============================================================================== |
---|
| 7 | |
---|
| 8 | #DEFVAL ---------------------------------------------DEFVAL |
---|
| 9 | #definition de valeur |
---|
| 10 | #defval Y3_M 20 |
---|
| 11 | # |
---|
| 12 | defval SZX 39 | 39 |
---|
| 13 | defval SZY 39 | 39 |
---|
| 14 | defval Prof 24 |
---|
| 15 | defval BioLevel 19 |
---|
| 16 | # pour le modul Xbod, le nombre d'input doit etre egal |
---|
| 17 | # a Biolovel + 1 (plm) : Bodin=BioLevel+1 : |
---|
| 18 | defval Bodin 20 |
---|
| 19 | #pour les nbp : ! SZA=SZU+SZT |
---|
| 20 | defval SZU 1 |
---|
| 21 | defval SZT 80 | 100 |
---|
| 22 | defval SZA 81 | 101 |
---|
| 23 | |
---|
| 24 | exec disp_valdef |
---|
| 25 | |
---|
| 26 | #HAT_NAME -----------------------------------------HAT_NAME |
---|
| 27 | #hat_name nnpzdd |
---|
| 28 | hat_name mk |
---|
| 29 | |
---|
| 30 | #OPTION ----------------------------------------------OPTION |
---|
| 31 | #option O_M1QN3 M2QN1 |
---|
| 32 | option O_M1QN3 |
---|
| 33 | #option O_REAL float | default is double; was double before |
---|
| 34 | option O_GRADTEST |
---|
| 35 | #option O_REAL double |
---|
| 36 | #option O_VARINCR |
---|
| 37 | |
---|
| 38 | #TRAJECTOIRES (DIM) -----------------------------------TRAJ |
---|
| 39 | #traj nom type nbuptime [offt dt] nbstept |
---|
| 40 | traj Toei M 0 1 |
---|
| 41 | traj Tbio M SZU 0 1 SZT |
---|
| 42 | traj Toce M SZU 0 1 SZT |
---|
| 43 | #nb: avec un dt=900s=15mn, il faut 96 pas pour une journée! |
---|
| 44 | exec disp_traj |
---|
| 45 | |
---|
| 46 | #SPACES (DIM) ----------------------------------------SPACE |
---|
| 47 | space Soei M 1 Toei |
---|
| 48 | space Sbio M SZX SZY Prof Tbio |
---|
| 49 | space Site M SZX SZY Toce |
---|
| 50 | space Soce M SZX SZY Prof Toce |
---|
| 51 | exec disp_space |
---|
| 52 | |
---|
| 53 | #MODULUS ---------------------------------------------MODUL |
---|
| 54 | #modul Kn space Soei noward output 1 |
---|
| 55 | modul XKn space Soei noward output 1 |
---|
| 56 | modul Kn space Soei input 1 output 1 |
---|
| 57 | #modul Mup space Soei noward output 1 target |
---|
| 58 | modul XMup space Soei noward output 1 target |
---|
| 59 | modul Mup space Soei input 1 output 1 |
---|
| 60 | #modul Mp space Soei noward output 1 target |
---|
| 61 | modul XMp space Soei noward output 1 target |
---|
| 62 | modul Mp space Soei input 1 output 1 |
---|
| 63 | #modul Gz space Soei noward output 1 target |
---|
| 64 | modul XGz space Soei noward output 1 target |
---|
| 65 | modul Gz space Soei input 1 output 1 |
---|
| 66 | # |
---|
| 67 | modul Rchl space Soei noward output 1 |
---|
| 68 | modul Vd space Soei noward output 1 |
---|
| 69 | modul Mz space Soei noward output 1 |
---|
| 70 | |
---|
| 71 | #modul Xadj space Soce spec inter YA1 YA2 |
---|
| 72 | modul Xadj space Site spec |
---|
| 73 | #modul Xbod space Soce inter YA1 YA2 input Bodin output 1 |
---|
| 74 | modul Xbod space Site input Bodin output 1 |
---|
| 75 | |
---|
| 76 | modul Xvit space Soce spec output 3 |
---|
| 77 | |
---|
| 78 | modul Sno3 space Soce input 9 output 1 |
---|
| 79 | modul Nlin space Soce input 19 output 1 |
---|
| 80 | #modul Ndyn space Soce input Prof output 1 tempo |
---|
| 81 | modul Ndyn space Soce input array Prof output 1 tempo |
---|
| 82 | modul Nno3 space Soce input 3 output 1 tempo |
---|
| 83 | |
---|
| 84 | modul Snh4 space Soce input 9 output 1 |
---|
| 85 | modul Alin space Soce clonol Nlin |
---|
| 86 | modul Adyn space Soce clonol Ndyn |
---|
| 87 | modul Anh4 space Soce clonol Nno3 |
---|
| 88 | |
---|
| 89 | modul Sphy space Soce input 7 output 1 |
---|
| 90 | modul Plin space Soce clonol Nlin |
---|
| 91 | modul Pdyn space Soce clonol Ndyn |
---|
| 92 | modul Ppla space Soce input 3 output 1 tempo cout |
---|
| 93 | |
---|
| 94 | modul Szoo space Soce input 4 output 1 |
---|
| 95 | modul Zlin space Soce clonol Nlin |
---|
| 96 | modul Zdyn space Soce clonol Ndyn |
---|
| 97 | #modul Zpla space Soce clonol Nno3 |
---|
| 98 | modul Zpla space Soce clonol Ppla |
---|
| 99 | |
---|
| 100 | modul Sdet space Soce input 7 output 1 |
---|
| 101 | modul Dlin space Soce clonol Nlin |
---|
| 102 | modul Ddyn space Soce clonol Ndyn |
---|
| 103 | #modul Detr space Soce clonol Nno3 |
---|
| 104 | modul Detr space Soce clonol Ppla |
---|
| 105 | |
---|
| 106 | modul Sdom space Soce input 8 output 1 |
---|
| 107 | modul Olin space Soce clonol Nlin |
---|
| 108 | modul Odyn space Soce clonol Ndyn |
---|
| 109 | modul Orga space Soce clonol Nno3 |
---|
| 110 | |
---|
| 111 | modul Lno3 space Sbio input 3 output 1 tempo |
---|
| 112 | modul Lnh4 space Sbio input 2 output 1 tempo |
---|
| 113 | modul Graz space Sbio input 4 output 2 tempo |
---|
| 114 | |
---|
| 115 | modul Chlt space Sbio input 2 output 1 tempo |
---|
| 116 | modul Chlw space Sbio clonol Chlt |
---|
| 117 | modul Lpar space Sbio input 2 output 1 tempo |
---|
| 118 | |
---|
| 119 | modul Tldag space Sbio input 1 output 1 tempo |
---|
| 120 | modul Wldag space Sbio clonol Tldag |
---|
| 121 | modul Tldar space Sbio input 1 output 1 tempo |
---|
| 122 | modul Wldar space Sbio clonol Tldar |
---|
| 123 | modul Wparr space Sbio input 2 output 1 tempo |
---|
| 124 | modul Wparg space Sbio clonol Wparr |
---|
| 125 | modul Tparr space Sbio input 2 output 1 tempo |
---|
| 126 | modul Tparg space Sbio clonol Tparr |
---|
| 127 | |
---|
| 128 | #exec disp_modul |
---|
| 129 | |
---|
| 130 | #CONNECTIONS-----------------------------------------CTIN+M |
---|
| 131 | ctin Kn 1 from XKn 1 1 |
---|
| 132 | ctin Mup 1 from XMup 1 1 |
---|
| 133 | ctin Mp 1 from XMp 1 1 |
---|
| 134 | ctin Gz 1 from XGz 1 1 |
---|
| 135 | # |
---|
| 136 | ctin Nno3 1 from Nno3 1 i j k t-1 |
---|
| 137 | ctinm Nno3 2..3 from Ndyn 1 i j k t%-1 |
---|
| 138 | ctin Anh4 1 from Anh4 1 i j k t-1 |
---|
| 139 | ctinm Anh4 2..3 from Adyn 1 i j k t%-1 |
---|
| 140 | ctin Ppla 1 from Ppla 1 i j k t-1 |
---|
| 141 | ctinm Ppla 2..3 from Pdyn 1 i j k t%-1 |
---|
| 142 | ctin Zpla 1 from Zpla 1 i j k t-1 |
---|
| 143 | ctinm Zpla 2..3 from Zdyn 1 i j k t%-1 |
---|
| 144 | ctin Detr 1 from Detr 1 i j k t-1 |
---|
| 145 | ctinm Detr 2..3 from Ddyn 1 i j k t%-1 |
---|
| 146 | ctin Orga 1 from Orga 1 i j k t-1 |
---|
| 147 | ctinm Orga 2..3 from Odyn 1 i j k t%-1 |
---|
| 148 | ctin Lno3 1 from Ndyn 1 i j k t-1 |
---|
| 149 | ctin Lno3 2 from Adyn 1 i j k t-1 |
---|
| 150 | ctin Lno3 3 from Kn 1 1 |
---|
| 151 | ctin Lnh4 1 from Adyn 1 i j k t-1 |
---|
| 152 | ctin Lnh4 2 from Kn 1 1 |
---|
| 153 | ctin Graz 1 from Pdyn 1 i j k t-1 |
---|
| 154 | ctin Graz 2 from Zdyn 1 i j k t-1 |
---|
| 155 | ctin Graz 3 from Ddyn 1 i j k t-1 |
---|
| 156 | ctin Graz 4 from Gz 1 1 |
---|
| 157 | ctin Chlw 1 from Pdyn 1 i j k-1 t-1 |
---|
| 158 | ctin Chlw 2 from Rchl 1 1 |
---|
| 159 | ctin Chlt 1 from Pdyn 1 i j k t-1 |
---|
| 160 | ctin Chlt 2 from Rchl 1 1 |
---|
| 161 | ctin Wldar 1 from Chlw 1 i j k t |
---|
| 162 | ctin Wldag 1 from Chlw 1 i j k t |
---|
| 163 | ctin Wparr 1 from Wparr 1 i j k-1 t |
---|
| 164 | ctin Wparr 2 from Wldar 1 i j k t |
---|
| 165 | ctin Wparg 1 from Wparg 1 i j k-1 t |
---|
| 166 | ctin Wparg 2 from Wldag 1 i j k t |
---|
| 167 | ctin Tldar 1 from Chlt 1 i j k t |
---|
| 168 | ctin Tldag 1 from Chlt 1 i j k t |
---|
| 169 | ctin Tparr 1 from Wparr 1 i j k t |
---|
| 170 | ctin Tparr 2 from Tldar 1 i j k t |
---|
| 171 | ctin Tparg 1 from Wparg 1 i j k t |
---|
| 172 | ctin Tparg 2 from Tldag 1 i j k t |
---|
| 173 | ctin Lpar 1 from Tparr 1 i j k t |
---|
| 174 | ctin Lpar 2 from Tparg 1 i j k t |
---|
| 175 | ctin Sno3 1 from Adyn 1 i j k t-1 |
---|
| 176 | ctin Sno3 2 from Pdyn 1 i j k t-1 |
---|
| 177 | ctin Sno3 3 from Lno3 1 i j k t |
---|
| 178 | ctin Sno3 4 from Lpar 1 i j k t |
---|
| 179 | ctin Sno3 5 from Zdyn 1 i j k t-1 |
---|
| 180 | ctin Sno3 6 from Ddyn 1 i j k t-1 |
---|
| 181 | ctin Sno3 7 from Odyn 1 i j k t-1 |
---|
| 182 | ctin Sno3 8 from Xbod 1 i j |
---|
| 183 | ctin Sno3 9 from Mup 1 1 |
---|
| 184 | ctin Sphy 1 from Lno3 1 i j k t |
---|
| 185 | ctin Sphy 2 from Lnh4 1 i j k t |
---|
| 186 | ctin Sphy 3 from Pdyn 1 i j k t-1 |
---|
| 187 | ctin Sphy 4 from Graz 1 i j k t |
---|
| 188 | ctin Sphy 5 from Lpar 1 i j k t |
---|
| 189 | ctin Sphy 6 from Mup 1 1 |
---|
| 190 | ctin Sphy 7 from Mp 1 1 |
---|
| 191 | ctin Snh4 1 from Lno3 1 i j k t |
---|
| 192 | ctin Snh4 2 from Adyn 1 i j k t-1 |
---|
| 193 | ctin Snh4 3 from Lnh4 1 i j k t |
---|
| 194 | ctin Snh4 4 from Pdyn 1 i j k t-1 |
---|
| 195 | ctin Snh4 5 from Zdyn 1 i j k t-1 |
---|
| 196 | ctin Snh4 6 from Ddyn 1 i j k t-1 |
---|
| 197 | ctin Snh4 7 from Lpar 1 i j k t |
---|
| 198 | ctin Snh4 8 from Mup 1 1 |
---|
| 199 | #ctin Snh4 9 from Orga 1 i j k t-1 |
---|
| 200 | ctin Snh4 9 from Odyn 1 i j k t-1 |
---|
| 201 | ctin Szoo 1 from Zdyn 1 i j k t-1 |
---|
| 202 | ctin Szoo 2..3 from Graz 1..2 i j k t |
---|
| 203 | ctin Szoo 4 from Mz 1 1 |
---|
| 204 | ctin Sdet 1 from Pdyn 1 i j k t-1 |
---|
| 205 | ctin Sdet 2..3 from Ddyn 1 i j k%-1 t-1 |
---|
| 206 | ctin Sdet 4..5 from Graz 1..2 i j k t |
---|
| 207 | ctin Sdet 6 from Mp 1 1 |
---|
| 208 | ctin Sdet 7 from Vd 1 1 |
---|
| 209 | ctin Sdom 1 from Lno3 1 i j k t |
---|
| 210 | ctin Sdom 2 from Lnh4 1 i j k t |
---|
| 211 | ctin Sdom 3 from Pdyn 1 i j k t-1 |
---|
| 212 | ctin Sdom 4 from Zdyn 1 i j k t-1 |
---|
| 213 | ctin Sdom 5 from Ddyn 1 i j k t-1 |
---|
| 214 | ctin Sdom 6 from Odyn 1 i j k t-1 |
---|
| 215 | ctin Sdom 7 from Lpar 1 i j k t |
---|
| 216 | ctin Sdom 8 from Mup 1 1 |
---|
| 217 | ctin Adyn 1..Prof from Alin 1 i j 1..Prof |
---|
| 218 | ctin Ndyn 1..Prof from Nlin 1 i j 1..Prof |
---|
| 219 | ctin Pdyn 1..Prof from Plin 1 i j 1..Prof |
---|
| 220 | ctin Zdyn 1..Prof from Zlin 1 i j 1..Prof |
---|
| 221 | ctin Ddyn 1..Prof from Dlin 1 i j 1..Prof |
---|
| 222 | ctin Odyn 1..Prof from Olin 1 i j 1..Prof |
---|
| 223 | ctin Xbod 1..BioLevel from Zpla 1 i j 1..BioLevel t-1 |
---|
| 224 | ctin Xbod Bodin from Mz 1 1 |
---|
| 225 | ctin Alin 1 from Snh4 1 i j k |
---|
| 226 | ctinm Alin 2..6 from Anh4 1 i%~1 j#~1 k t-1 |
---|
| 227 | ctinm Alin 7..13 from Adyn 1 i%~1 j#~1 k#~1 t-1 |
---|
| 228 | ctin Alin 14 from Xvit 1 i-1 j k |
---|
| 229 | ctin Alin 15 from Xvit 2 i j-1 k |
---|
| 230 | ctin Alin 16 from Xvit 3 i j k+1 |
---|
| 231 | ctin Alin 17..19 from Xvit 1..3 i j k |
---|
| 232 | ctin Nlin 1 from Sno3 1 i j k |
---|
| 233 | ctinm Nlin 2..6 from Nno3 1 i%~1 j#~1 k t-1 |
---|
| 234 | ctinm Nlin 7..13 from Ndyn 1 i%~1 j#~1 k#~1 t-1 |
---|
| 235 | ctin Nlin 14 from Xvit 1 i-1 j k |
---|
| 236 | ctin Nlin 15 from Xvit 2 i j-1 k |
---|
| 237 | ctin Nlin 16 from Xvit 3 i j k+1 |
---|
| 238 | ctin Nlin 17..19 from Xvit 1..3 i j k |
---|
| 239 | ctin Plin 1 from Sphy 1 i j k |
---|
| 240 | ctinm Plin 2..6 from Ppla 1 i%~1 j#~1 k t-1 |
---|
| 241 | ctinm Plin 7..13 from Pdyn 1 i%~1 j#~1 k#~1 t-1 |
---|
| 242 | ctin Plin 14 from Xvit 1 i-1 j k |
---|
| 243 | ctin Plin 15 from Xvit 2 i j-1 k |
---|
| 244 | ctin Plin 16 from Xvit 3 i j k+1 |
---|
| 245 | ctin Plin 17..19 from Xvit 1..3 i j k |
---|
| 246 | ctin Zlin 1 from Szoo 1 i j k |
---|
| 247 | ctinm Zlin 2..6 from Zpla 1 i%~1 j#~1 k t-1 |
---|
| 248 | ctinm Zlin 7..13 from Zdyn 1 i%~1 j#~1 k#~1 t-1 |
---|
| 249 | ctin Zlin 14 from Xvit 1 i-1 j k |
---|
| 250 | ctin Zlin 15 from Xvit 2 i j-1 k |
---|
| 251 | ctin Zlin 16 from Xvit 3 i j k+1 |
---|
| 252 | ctin Zlin 17..19 from Xvit 1..3 i j k |
---|
| 253 | ctin Dlin 1 from Sdet 1 i j k |
---|
| 254 | ctinm Dlin 2..6 from Detr 1 i%~1 j#~1 k t-1 |
---|
| 255 | ctinm Dlin 7..13 from Ddyn 1 i%~1 j#~1 k#~1 t-1 |
---|
| 256 | ctin Dlin 14 from Xvit 1 i-1 j k |
---|
| 257 | ctin Dlin 15 from Xvit 2 i j-1 k |
---|
| 258 | ctin Dlin 16 from Xvit 3 i j k+1 |
---|
| 259 | ctin Dlin 17..19 from Xvit 1..3 i j k |
---|
| 260 | ctin Olin 1 from Sdom 1 i j k |
---|
| 261 | ctinm Olin 2..6 from Orga 1 i%~1 j#~1 k t-1 |
---|
| 262 | ctinm Olin 7..13 from Odyn 1 i%~1 j#~1 k#~1 t-1 |
---|
| 263 | ctin Olin 14 from Xvit 1 i-1 j k |
---|
| 264 | ctin Olin 15 from Xvit 2 i j-1 k |
---|
| 265 | ctin Olin 16 from Xvit 3 i j k+1 |
---|
| 266 | ctin Olin 17..19 from Xvit 1..3 i j k |
---|
| 267 | #exec disp_ct_in |
---|
| 268 | #exec disp_ct_out |
---|
| 269 | |
---|
| 270 | #ORDRE (Ascending, Backwarding) ----------------------ORDER |
---|
| 271 | #----- |
---|
| 272 | order modinspace Soei |
---|
| 273 | order YA1 Kn Mup Mp Gz forder |
---|
| 274 | forder |
---|
| 275 | #----- |
---|
| 276 | order modinspace Sbio |
---|
| 277 | order YA2 YA1 |
---|
| 278 | order YA3 Chlw Chlt forder |
---|
| 279 | order YA3 Wldar Wldag forder |
---|
| 280 | order YA3 Wparr Wparg forder |
---|
| 281 | order YA3 Tldar Tldag forder |
---|
| 282 | order YA3 Tparr Tparg forder |
---|
| 283 | order YA3 Lno3 Lnh4 Lpar Graz forder |
---|
| 284 | forder |
---|
| 285 | forder |
---|
| 286 | #----- |
---|
| 287 | order modinspace Site |
---|
| 288 | order YA2 YA1 Xadj Xbod forder |
---|
| 289 | forder |
---|
| 290 | # |
---|
| 291 | order modinspace Soce |
---|
| 292 | order YA2 YA1 |
---|
| 293 | order YA3 Sno3 Snh4 Sphy Szoo Sdet Sdom forder |
---|
| 294 | order YA3 Nlin forder |
---|
| 295 | order YA3 Alin Plin Zlin Dlin Olin forder |
---|
| 296 | order YA3 Ndyn Adyn Pdyn Zdyn Ddyn Odyn forder |
---|
| 297 | order YA3 Nno3 Anh4 Ppla Zpla Detr Orga forder |
---|
| 298 | forder |
---|
| 299 | forder |
---|
| 300 | #--------------------- |
---|
| 301 | order spaceintraj Toei |
---|
| 302 | Soei |
---|
| 303 | forder |
---|
| 304 | #----- |
---|
| 305 | order spaceintraj Tbio |
---|
| 306 | Sbio |
---|
| 307 | forder |
---|
| 308 | #----- |
---|
| 309 | order spaceintraj Toce |
---|
| 310 | Site Soce |
---|
| 311 | forder |
---|
| 312 | #----- |
---|
| 313 | |
---|
| 314 | #USER FUNCTIONS ---------------------------------INSERT_FCT |
---|
| 315 | insert_fct initialiser_trajectoire |
---|
| 316 | insert_fct xdisplay |
---|
| 317 | insert_fct xend2init |
---|
| 318 | insert_fct arg xspinup |
---|
| 319 | insert_fct arg xsetodg |
---|
| 320 | insert_fct arg xsetsel |
---|
| 321 | insert_fct arg xsetcass |
---|
| 322 | insert_fct arg xset_delta |
---|
| 323 | |
---|
| 324 | #TO REMEMBER ---------------------------------------------- |
---|
| 325 | #modul Kn outer 1 output 1 |
---|
| 326 | #modul Mup outer 1 output 1 target |
---|
| 327 | #modul Mp outer 1 output 1 target |
---|
| 328 | #modul Gz outer 1 output 1 target |
---|
| 329 | #modul Rchl outer 1 output 1 |
---|
| 330 | #modul Vd outer 1 output 1 |
---|
| 331 | #modul Mz outer 1 output 1 |
---|
| 332 | |
---|
| 333 | |
---|
| 334 | |
---|
| 335 | |
---|
| 336 | |
---|
| 337 | |
---|