find min and max value

[mien]

hi...can someone teach me how to find min and max value from text file....thanks..

[Freerefill]

Depends on the format of the text file, but your code would probably look something like this:

 

(setq fileID "path\\filename.txt" linLst '())
(setq file (open fileID "R"))
(while (setq line (read-line file))
 (setq linLst (cons line linLst))
 )
(close file)

(setq maxNum (apply 'max linLst))
(setq minNum (apply 'min linLst))

[Lee Mac]

May need a few "distof"'s in there...

 

(if (setq file (getfiled "Select File" "" "txt" )
 (progn
   (setq file (open file "r"))
   (while (setq nl (read-line file))
     (setq lst (cons (distof nl) lst)))
   (close file)

   (apply 'max lst)
   (apply 'min lst)

[fuccaro]

After you get the atoms in the list LST:

(eval (cons 'max LST))

[Freerefill]

After you get the atoms in the list LST:

(eval (cons 'max LST))

 

o.o Slick solution, very nice!

[Lee Mac]

After you get the atoms in the list LST:

(eval (cons 'max LST))

 

I like it

[dilan]

And how to do the same with the list? Choose a coordinate from the list with a minimum and maximum value of Z.

List:

((76751.7 53561.3 765.102) (76751.7 53561.3 765.102) (76758.6 53565.1 767.424) (76750.7 53565.9 766.755))

minimum:

(76751.7 53561.3 765.102)

maximum

(76758.6 53565.1 767.424)

 

[BIGAL]

You can sort a list on the z value caddr. look at 1st entry and last

 

;sort on x

(setq lst
 (vl-sort co-ordsxy
 (function (lambda (e1 e2)
 (< (car e1) (car e2)))
 )
 )
)

 

;sort on z

(setq lst
 (vl-sort co-ordsxy
 (function (lambda (e1 e2)
 (< (caddr e1) (caddr e2)))
 )
 )
)

 

(setq minz (nth 0 lst))

(setq maxz (nth (- (length lst) 1) lst))

[Lee Mac]

Sorting is inefficient when only an extremum is required.

 

You may find existing functions covering this operation here and a function specific to finding the minimum/maximum Z-coordinate here.

[dilan]

9 hours ago, Lee Mac said:

Sorting is inefficient when only an extremum is required.

 

You may find existing functions covering this operation here and a function specific to finding the minimum/maximum Z-coordinate here.

Thank you very much, Lee Mac.

[BIGAL]

Nice Lee as usual did not even think about iterate over list check max min. Easy to add a couple more conds and make a library routine for min max X Y Z

[David Bethel]

I use this style of min/max point list search a lot:

 

(apply 'max (mapcar 'car lst))

 

-David