1. PN4000 OnlineHilfe
2. Variante
3. System
4. Info Variante
5. Routinen
6. Hilfsroutinen / mathematische Funktionen
7. Abstand zwischen 2 Punkten berechnen

Abstand zwischen 2 Punkten berechnen

C     Aufruf:

C     CALL PTH038 (X1,Y1,X2,Y2,RABST,LUWRIT,LUREAD)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     X1/Y1  : Koordinate erster Punkt

C     X2/Y2  : Koordinate zweiter Punkt

C     RABST  : Abstand (Rückgabewert)

C     LUWRIT : wird nicht ausgewertet, muss aber angegeben werden

C     LUREAD : wird nicht ausgewertet, muss aber angegeben werden

C     

C     Beispiel:

C     ---------------------------------------

C     Abstand zwischen zwei Punkten berechnen

C     ---------------------------------------

      X1 = 50.0

      Y1 = 50.0

      X2 = 80.0

      Y2 = 100.0

      CALL PTH038 (X1,Y1,X2,Y2,RABST,LUWRIT,LUREAD)