;|
   POW Copyright (C) 2005 by Claudio Piccini.
   All rights reserved
   www.cg-cad.com

|;

(defun ^ ( a1 n / i b1 q1 )
 (setq i 1)
 (setq b1 a1)
 (while (< i n)
  (setq q1 (* a1 b1))
  (setq b1 q1)
  (setq i (1+ i))
 )
 (setq a1 q1)
)

(defun c:pow ( / a b )
 (textscr)
 (princ "\n a^b, a=reale b=intero")
 (initget (+ 1 2 4))   
 (setq a (getreal "\n a? "))
 (initget (+ 1 2 4))   
 (setq b (getint "\n b? "))
 (princ (rtos (^ a b) 2 6))
 (princ)
)
;;;eof