Télécharger la plaquette Cast3M


fr en

Télécharger TMCOURB.INC

Retour à la liste

Numérotation des lignes : 

  1. *           -INC TMCOURB                                                        
  2. *                                                                               
  3. *     INFORMATIONS NECESSAIRES POUR LA CREATION D'UN OBJET "MAILLAGE"           
  4. *     CORRESPONDANT A UNE COURBE POLYNOMIALE D'EQUATION:                        
  5. *                         2       3                                             
  6. *     P(U) = P0 + U.P1 + U .P2 + U .P3 + ...                                    
  7. *                                                                               
  8.       SEGMENT,MCOURB                                                            
  9.          INTEGER NLMCOU,PT1COU,PT2COU,LI1COU,LI2COU,ND1COU                      
  10.          REAL D1COU,D2COU                                                       
  11.          REAL*8 U1COU,U2COU,UCOU(LONG)                                          
  12.          LOGICAL REGCOU                                                         
  13.          INTEGER ICOFCO                                                         
  14.       ENDSEGMENT                                                                
  15.       SEGMENT,MCOFCO                                                            
  16.          REAL*8 COFCOU(N,IDIM)                                                  
  17.       ENDSEGMENT                                                                
  18. *                                                                               
  19. *     NLMCOU = NOMBRE D'ELEMENTS DE LA COURBE.                                  
  20. *     PT1COU = POINT INITIAL DE LA COURBE.                                      
  21. *     PT2COU = POINT INITIAL DE LA COURBE.                                      
  22. *     LI1COU = LIGNE A RACCORDER EN TETE DE LA COURBE.                          
  23. *     LI2COU = LIGNE A RACCORDER A LA FIN DE LA COURBE.                         
  24. *     ND1COU = DEGRE + 1  DES POLYNOMES.                                        
  25. *     U1COU  = BORNE INFERIEURE DU PARAMETRE "U" DU POLYNOME DE LA              
  26. *              COURBE.                                                          
  27. *     U2COU  = BORNE SUPERIEURE DU PARAMETRE "U" DU POLYNOME DE LA              
  28. *              COURBE.                                                          
  29. *     UCOU() = VALEURS DU PARAMETRE DES POINTS INTERIEURS DE LA COURBE          
  30. *              (UTILISE PAR LES OPERATEURS DE SURFACES POLYNOMIALES).           
  31. *              RANGEMENT EN ORDRE MONOTONE:                                     
  32. *              - UCOU(1) POUR LE POINT PROCHE DE "PT1COU",                      
  33. *              - UCOU(LONG) POUR LE POINT PROCHE DE "PT2COU".                   
  34. *                                                                               
  35. *     D1COU  = LONGUEUR DE MAILLE EN DEBUT DE COURBE.                           
  36. *     D2COU  = LONGUEUR DE MAILLE EN FIN DE COURBE.                             
  37. *     REGCOU = .TRUE. SI DECOUPAGE REGULIER SELON L'ABSCISSE CURVILIGNE         
  38. *              (ET NON PAS SELON LE PARAMETRE "U").                             
  39. *                                                                               
  40. *     ICOFCO = VALEUR DU POINTEUR DU SEGMENT "MCOFCO".                          
  41. *                                                                               
  42. *     COFCOU = COEFFICIENTS REELS DES EQUATIONS POLYNOMIALES DES                
  43. *              ABSCISSES, ORDONNEES ET (EVENTUELLEMENT) COTES DES POINTS        
  44. *              DE LA COURBE (EN COMMENCANT PAR LE DEGRE 0).                     
  45. *                                                                               
  46. *     NB: POUR AVOIR LES COORDONNEES DES EXTREMITES DE LA COURBE, IL            
  47. *         FAUT PASSER PAR "PT1COU" (RESP. "PT2COU") ET "XCOOR" (SEGMENT         
  48. *         "MCOORD")                                                             
  49. *         ET NON PAS "U1COU" (RESP. "U2COU") ET LE POLYNOME ASSOCIE A           
  50. *         LA COURBE.                                                            
  51. *                                                                               
  52. *     NB: IL EST PERMIS D'UTILISER LA LONGUEUR DE "UCOU" POUR CONNAITRE         
  53. *         LE NOMBRE DE POINTS INTERIEURS DE LA COURBE.                          
  54. *         EN CONTRE-PARTIE, IL EST INTERDIT DE MODIFIER LA DEFINITION DE        
  55. *         "UCOU".                                                               
  56. *                                                                               
  57.  

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