» Poradna » Programy

Programek v LISP

 |   |  Microsoft Windows 8 IE 10.0  |  [109.81.245.---]

Dobrý den, mám následují program v LISP: ;startup for application ACADM, installed xxxxxxx(princ (load "gen/acadm.lsp" "\nError: acadm.lsp not loaded!")) ;(if acadmappend (setq s::startup (acadmappend s::startup)))(defun MK3 () (setq b11 (getpoint "\n zadej bod")))(defun cti(cislo 1) (setq x (car b11)) (setq y (cadr b11)) (setq x (rtos x 2 3)) (setq y (rtos y 2 3)) (setq cislo (+ 1 cislo) cislo2 (itoa cislo)) (setq xy (strcat "N" cislo2 " G1 " "\X" y "\ " "\Z" x)) (write-line xy f))(defun C:M4 () (setq f1 (getstring "\nZadej jméno programu ! { max. osum znak… } :") f1 (strcase f1)) (setq b (strcat ";ROLNA" f1)) (setq f (strcat "C:/Popis/M4/" f1 ".H")) (setq f (open f "w")) (write-line b f) (while (< i 4) (MK3) (cti) )Muj problém je následující: hodnota proměné "cislo2" by s měla s každým opakováním navýšit o hodnotu 1, bohužel se tak neděje. Nevím si s tím rady, prosim pomozte. Děkuji za veškeré rady.Aktuální výstup programu:;ROLNAEN2 G1 X-128.185 Z-96.161N2 G1 X-140.624 Z-85.977N2 G1 X-166.258 Z-100.31N2 G1 X-158.719 Z-116.906 )


Související témata: RTOS



Určitě si přečtěte


Jak fungují kryptoměny: Za oponou se odehrává perfektně organizovaný chaos

Jak fungují kryptoměny: Za oponou se odehrává perfektně organizovaný chaos

** Bitcoin letos trhal rekordy ** Zdaleka není sám, jsou tu i další kryptoměny ** Jak vlastně kyberpeníze v nitru fungují?

13.  12.  2017 | Jakub Čížek | 67


Aktuální číslo časopisu Computer

26 procesorů v důkladném testu

Zhodnotili jsme 18 bezdrátových reproduktorů

Jak fungují cash back služby?

Pohlídejte své děti na internetu