diff options
Diffstat (limited to 'Donjon/data/Hex_Model3D_proc')
| -rwxr-xr-x | Donjon/data/Hex_Model3D_proc/Ssr.c2m | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/Donjon/data/Hex_Model3D_proc/Ssr.c2m b/Donjon/data/Hex_Model3D_proc/Ssr.c2m new file mode 100755 index 0000000..1bbc8b0 --- /dev/null +++ b/Donjon/data/Hex_Model3D_proc/Ssr.c2m @@ -0,0 +1,72 @@ +****************************************************************** +* * +* Procedure : Ssr.c2m * +* Purpose : Numerical Geometry specifications for SSR-W (simp)* +* Author(s) : I. Trancart (2024) * +* * +* GeoRef Matex := GeoCo :: * +* <<Splith>> <<Splitz>> <<MaxR>> <<dr>> <<dz>> ; * +* * +* Options : * +* Splitl = hexagonal splitting (1/3 losange) * +* dr = side of an assembly * +* * +****************************************************************** +PARAMETER GeoRef Matex :: +::: LINKED_LIST GeoRef Matex ; ; + +*---- +* Modules and linked_lists +*---- +MODULE USPLIT: GEO: END: UTL: DELETE: ; +LINKED_LIST GeoCoeur ; + +*---- +* Set calculation options +*---- +INTEGER Splitl MaxR ; +:: >>Splitl<< >>MaxR<< ; +REAL dr ; +:: >>dr<< ; + +*---- +* Define numerical geometrie for hexagonal mesh +*---- + +GeoCoeur := GEO: :: HEXZ 10 2 + EDIT 1 + HBC SA60 VOID SIDE <<dr>> + MIX +PLANE 1 + 2 +* H1 + 2 2 +* H2 + 3 3 3 +* H3 + 1 1 1 1 +PLANE 2 + 2 +* H1 + 2 2 +* H2 + 3 3 3 +* H3 + 1 1 1 1 + + SPLITL <<Splitl>> + MESHZ 0.0 1.0 2.0 +; +SEQ_ASCII GeoCoeur.txt :: FILE './GeoCoeur.txt' ; +GeoCoeur.txt := GeoCoeur ; +UTL: GeoCoeur :: DUMP ; + +GeoRef Matex := USPLIT: GeoCoeur :: EDIT 2 NGRP 2 MAXR <<MaxR>> + NREFL 1 RMIX 1 + NFUEL 2 FMIX 2 3 +; + +GeoCoeur := DELETE: GeoCoeur ; + +END: ; +QUIT "LIST" . |