Datasets examples

* fichier : cham_vari.dgibi 
*
* exemple d'utilisation de REDU gén&éralisé pour créer un grand champ
* associé à un modèle
*
opti dime 2 elem qua4;                                                  
su1 = ( 0 0 ) droi 10 (10 0 ) trans 5 ( 0 5);                           
l2 = cote 3 su1;                                                        
su2 = l2 trans 5 ( 0 5);  
l3= cote 3 su2;
su3= l3 trans 5 (0 5);                                              
*trac ( su1 et su2 et su3);   

                                                  
* exemple quand il y a peu de zones differentes                                
                                         
y1 = manu chml su1 youn 10.  constituant 'TOTO' ;                                            
y2 = manu chml su2 youn 20.  constituant 'TOTO' ;    
y3= manu chml su3 youn 30. constituant 'TOTO';                                        
mo = model ( su1 et su2 et su3) mecanique elastique constituant 'TOTO' ;  
                        
you1= redu ( y1 et y2 et y3) mo;                                               
                                                 
ma1 = mate mo YOUN you1;

* exemple quand on veut une valeur constante par élément et que l'on peut 
* définir un LISTREEL contenant ces valeurs

z1= prog (nbel  su1)*10.; 
z2= prog (nbel su2)*20.;
z3= prog (nbel su3)*30.;

ytot=z1 et z2 et z3;

you2= manu chml  mo repa type RIGIDITE  YOUN ytot;
ma2 = mate mo YOUN you2;


fin;