Suiv.: 7.5 Conversions Sup.: 7 Programmes internes Préc.: 7.3 Affichages particuliers Index Table des matières

7.4 Manipulations de base

     SUBROUTINE GENPLY(R, A, N, T)
     INTEGER N
     REAL R, A, T(2, N+1)

Produit, dans T, N+1 couples (X, Y) définissant un  polygone de N côtés centré à l'origine, de rayon R et d'angle A.

      SUBROUTINE ARC3P(P1, P2, P3, RES)
      REAL P1(2), P2(2), P3(2), RES(5)

Calcul d'un arc de  cercle passant par 3 points P1, P2, P3 en les joignant dans cet ordre.

out: RES(1:5) définit l'arc de la façon suivante:

RES(1), RES(2) premier point de l'arc

RES(3), RES(4) centre de l'arc

RES(5) angle de l'arc

      REAL FUNCTION DIST2P(P1, P2)
      REAL P1(3), P2(3)

Renvoie la  distance de 2 points : DIST2P=distance(P1, P2)

      SUBROUTINE DP1DR(D, P1, DR)
      REAL D(3), P1(2), DR(2)

Renvoie D la  droite passant par un point (P1) et perpendiculaire à une direction (DR). La droite a pour equation: D(1)*x + D(2)*y + D(3) =0

      SUBROUTINE DPP(D, P1, P2, IRES)
      SUBROUTINE DP1P2(D,P1,P2,IRES)
      REAL D(3), P1(2), P2(2)
      INTEGER IRES

Renvoie D la droite passant par  deux points P1 et  P2. IRES=0 si ok.

La droite a pour equation: D(1)*x + D(2)*y + D(3) =0

      REAL FUNCTION DTP1D1(P, D)
      REAL P(2), D(3), X

Renvoie DTP1D1 la  distance du point P à la droite D.

La droite a pour equation: D(1)*x + D(2)*y + D(3) =0

      REAL  FUNCTION DTP1P2(P1, P2)
      REAL P1(2), P2(2), DX, DY

Renvoie DTP1P2 la distance entre le point P1 et  le point P2.

      REAL FUNCTION DTP1SG(P, P1, P2)
      REAL P1(2), P2(2), P(2)

Renvoie DTP1SG la distance du  point P au segment défini par les 2 points P1 et P2.

      SUBROUTINE ITDD(P, D1, D2, IRES)
      SUBROUTINE ITD1D2(P, D1, D2, IRES)
      REAL P(2), D1(3), D2(3)

Renvoie P le  point intersection des  deux droites D1 et D2 définies par D1(1:3) et D2(1:3). IRES = 0 si OK.

      SUBROUTINE MDP1P2(D, P1, P2, IRES)
      REAL D(3), P1(2), P2(2)

Renvoie D la droite médiatrice du  segment passant par les points P1, P2. La droite a pour equation: D(1)*x + D(2)*y + D(3) =0

      SUBROUTINE PJPD(P, P1, D1)
      SUBROUTINE PJP1D1(P, P1, D1)
      REAL P(2), D1(3), P1(2)

Renvoie P le point projection de  P1 sur la  droite D1. La droite a pour equation: D1(1)*x + D1(2)*y + D1(3) =0

      SUBROUTINE SLOPE(PE, PT, C, R, IRES)
      REAL PT(2), C(2), R, PE(3)

Renvoie PE la  pente d'une droite passant par PT, tangente à un cercle (C, R).