* fichier : visufour1.dgibi ************************************************************************ ************************************************************************ ************************************************************************ ************************************************************************ * * * Exemple d'utilisation de four2tri * * Visualisation 3D de résultats de calcul Fourier * * avec possibilité de recombinaison des harmoniques * * * * D. Combescure - Janvier 2007 * * Laboratoire DYN - CEA Saclay * ************************************************************************ ************************************************************************ * * FLAGVISU = VRAI; OPTI TRAC PSC; FLAGVISU = FAUX; * * ************************************************************************ * MAILLAGE ************************************************************************ p1 = 10 0.01; p2 = 11 0.01; p3 = 20 0.01; p4 = 30 0.01; p5 = 30 1; v1 = 0 1; * lig1 = d 3 p1 p2; lig2 = d 3 p2 p3; ************************************************************************ * MODELE ************************************************************************ mod1 = modeli mesh2d mecanique elastique; mod2 = modeli lig2 mecanique elastique coq2; modt = mod1 et mod2; mesht = mesh2d et lig2; * >>> GENERATION DU MAILLAGE 3D SEULEMENT <<< tab1 = TABLE; ************************************************************************ * CHPO 2D Fourier -> 3D ************************************************************************ * listreel pour les isovaleurs izo2 = 0.001 * izo1; * creation des tables de chpoint REPE bnf 3; nf = &bnf - 1; FIN bnf; * >>> FOUR2TRI <<< REPE bnf 3; nf = &bnf - 1; tab1 = TABLE; tab1.'DEPLACEMENTS' = TABLE; tab1.'DEPLACEMENTS'. 1 = U2D . nf; tab1.'DEPLACEMENTS'. 2 = U2DZ . nf; dep3D1 = (tab1.deplacements_3d. 1); dep3D2 = (tab1.deplacements_3d. 2); SI FLAGVISU; FINSI; OUBL tab1 'DEPLACEMENTS'; tab1.'CHAMPS_POINTS_SYMETRIQUES' = TABLE; tab1.'CHAMPS_POINTS_SYMETRIQUES'. 1 = PRE1 . nf; SI FLAGVISU; FINSI; FIN bnf; ************************************************************************ * Combinaison d'harmoniques ************************************************************************ * * creation d'une force composee de plusieurs harmoniques * >>> FOUR2TRI <<< tab1 = table; tab1.'EFFORTS' = TABLE; tab1.'EFFORTS'. 1 = FPONC; REPE bnf 6; nf = &bnf ; F3D = F3D + tab1. 'EFFORTS_3D'. 1; SI FLAGVISU; FINSI; FIN bnf; * FIN ; *
© Cast3M 2003 - Tous droits réservés.
Mentions légales