Télécharger la plaquette Cast3M


fr en

Télécharger t_char.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  t_char.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. GRAPH='N' ;
  5. SAUT PAGE ;
  6. *-----------------------------------------
  7. * TEST CHAR, TIRE, LIST, EXTR, EXIS
  8. * extension CHARGEMENT LIE / LIBRE, STAT/ROTA,TRAN,TRAJ
  9. *-----------------------------------------
  10. opti dime 2 elem qua4 ;
  11. *
  12. p0 = 1. 0. ; e_x = p0 ; e_y = 0. 1. ; p_ori = 0. 0. ;
  13. p1 = p0 plus e_x ;
  14. s1 = (p0 d 1 p1) trans 1 e_y ;
  15. lc1 = c (inve (s1 cote 4)) p0 p_ori 4 ;
  16. cont = (d 6 p_ori p0)  et lc1 ;
  17. su1 = surf cont plan ;
  18. st1 = s1 et su1 ;
  19. chp1 = manu chpo 1 s1  fy -1. ;
  20. pe1 = 10. 1. ; pe2 = 9. 2. ; pe3 = 8. 3. ;
  21. *-------------------------------------
  22. * test CHAR
  23. ev2 = evol manu (prog 0. 2.) (prog 1. 2.) ;
  24. ev3 = evol manu (prog 0. 1.) (prog 1. 2.) ;
  25. cha1 = char meca ev2 chp1 ;
  26. chp2 = tire cha1 1. ;
  27. list chp2 ;
  28. * translation a vitesse croissante
  29. cha2 = char ev2 chp1 trans (2.*e_y) ev3 ;
  30. list (cha1 et cha2) ;
  31. *chp3 = tire cha2 1.5 ;
  32. chp4 = tire cha2 0.5 ;
  33. *list chp3 ;
  34. si (neg graph 'N') ;
  35.   trac (s1 et (extr chp1 mail) et (extr chp4 mail)) ;
  36. finsi ;
  37. *
  38. * rotation de vitesse 45 degre/s
  39. ev4 = evol manu (prog 0. 2.) (prog 45.  45.) ;
  40. cha5 = char meca ev2 chp1 rota p1 ev4 ;
  41. chp5 = tire cha5 1. ;
  42. chp6 = tire cha5 2. ;
  43. si (neg graph 'N') ;
  44.   trac (s1 et (extr chp5 mail) et (extr chp6 mail)) ;
  45. finsi ;
  46. v5 = vecteur chp5 fx fy 0.2 vert ;                                      
  47. v1 = vecteur chp1 fx fy 0.2 rouge ;
  48. si (neg graph 'N') ;
  49.   trac (v1 et v5) s1 ;
  50. finsi ;
  51. *
  52. * trajectoire 
  53. chtra1 = manu chpo 1 (pe1 et pe2 et pe3) temp (prog 0. 1. 2.) ;
  54. cha6 = char  ev2 chp1 libre traj chtra1 ;
  55. chp7 = tire cha6 1. ;
  56. chp8 = tire cha6 2. ;
  57. si (neg graph 'N') ;
  58.   trac (s1 et (extr chp7 mail) et (extr chp8 mail)) ;
  59. finsi ;
  60. v7 = vecteur chp7 fx fy 0.2 vert ;                                      
  61. v1 = vecteur chp1 fx fy 0.2 rouge ;
  62. si (neg graph 'N') ;
  63.   trac (v1 et v7) s1 ;
  64. finsi ;
  65. *
  66. cha_t = cha2 et cha6 ;
  67. si (exis cha_t libr) ;
  68.   list (extr cha_t libr) ;
  69. finsi ;
  70. *
  71. fx0 =  1.06066E+00 ; 
  72. fy0 = -1.06066E+00 ;
  73. fx1  = extr chp5 fx (point 1 (extr chp5 mail)) ;
  74. fy1  = extr chp5 fy (point 1 (extr chp5 mail)) ;
  75. resix = abs((fx1 - fx0)/fx0) ;
  76. resiy = abs((fy1 - fy0)/fy0) ;
  77. si ((resix <eg 5.e-3) et (resiy <eg 5.e-3)) ;
  78.   erre 0 ;
  79. sinon ;
  80.   erre 5 ;
  81. finsi ;
  82. *
  83. fin ;
  84.  
  85.  
  86.  
  87.  
  88.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales