Suiv.: 7.5 Conversions
Sup.: 7 Programmes internes
Préc.: 7.3 Affichages particuliers
Index
Table des matières
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).