Changeset 508 for trunk/SRC/Utilities/linearequation.pro

Timestamp:

06/02/17 21:22:28 (7 years ago)

Author:

smasson

Message:

minor improvments

File:

• trunk/SRC/Utilities/linearequation.pro (modified) (1 diff)

trunk/SRC/Utilities/linearequation.pro

@@ -46 +46 @@
 ;
 
-   if size(point1, /type) EQ 6 OR size(point1, /type) EQ 9 then begin
-      x1 = float(point1)
-      y1 = imaginary(point1)
-   ENDIF ELSE BEGIN
+  if size(point1, /type) EQ 6 OR size(point1, /type) EQ 9 then begin
+    x1 = real_part(point1)
+    y1 = imaginary(point1)
+  ENDIF ELSE BEGIN
+    if size(point1, /type) EQ 5 then begin
+      x1 = double(reform(point1[0, *]))
+      y1 = double(reform(point1[1, *]))
+    ENDIF ELSE BEGIN
       x1 = float(reform(point1[0, *]))
       y1 = float(reform(point1[1, *]))
-   ENDELSE
-
-   if size(point2, /type) EQ 6 OR size(point2, /type) EQ 9 then begin
-      x2 = float(point2)
-      y2 = imaginary(point2)
-   ENDIF ELSE BEGIN
+    ENDELSE
+  ENDELSE
+  
+  if size(point2, /type) EQ 6 OR size(point2, /type) EQ 9 then begin
+    x2 = real_part(point2)
+    y2 = imaginary(point2)
+  ENDIF ELSE BEGIN
+    if size(point2, /type) EQ 5 then begin
+      x2 = double(reform(point2[0, *]))
+      y2 = double(reform(point2[1, *]))
+    ENDIF ELSE BEGIN
       x2 = float(reform(point2[0, *]))
       y2 = float(reform(point2[1, *]))
-   ENDELSE
-
+    ENDELSE
+  ENDELSE
+  
    vertical = where(x1 EQ x2)
    novertical = where(x1 NE x2)