(Defun FC (Func N Xo dx)
(
(Setq LP ‘())
(Setq Int (/ dx N)
(Setq x (-Xo Int))
(Repeat (+ N 1)
(Setq x (+x Int))
(Setq y (FuncA x))
(Setq LPP (List x y))
(Setq LP (Cons LPP LP))
)
)
)
(Defun FuncA (V)
(* V V)
)
(Defun DrawF (ListP)
(Setq LPG ListP)
(While ((Lenght LPG) >= 2)
(Setq P1 (Car LPG))
(Setq P2 (Cadr LPG))
(Command “Line” P1 P2)
(Setq LPG (Cdr LPG))
)
)
A computer simulation application that applies statistical mechanics to predict pre-synthesis of Liquid Crystal properties from chemical structure is needed. As well as the creation of calculation, videoand data manipulation tools and a user interface. read more …
The Importance of Training Tracking in Modern Organizations In today’s fast-paced business environment, continuous learning and development are crucial for maintaining a competitive edge. Training tracking systems have become an essential tool for organizations aiming to ensure their workforce remains skilled and compliant with industry standards. This article explores the significance of training tracking and…
https://replit.com/@vanleurth/Cube-1?v=1#program.bas?embed=true
(defun C:LEGEND () (prompt “\nBuilding legend list…\n”) ;Set variable to get the first element of table. (setq Frst T) (setq Counter 0) (setq CountBlk 0) ;Get all block names. (while (setq Tbdata (tblnext “BLOCK” Frst)) (setq Bname (dxf 2 Tbdata)) ;print all block names. (if (/= Bname nil) ;Discard dimension blocks. (if (/= “*” (substr…
; If an error (such as CTRL-C) occurs ; while this command is active… (defun at_err (st) (if (and (/= st “Function cancelled”) (/= st “quit / exit abort”)) (princ (strcat “\nError: ” st)) );end if ;Restore modified modes (setvar “regenmode” 1) (setvar “cmdecho” 1) (if (= (type rtfile) ‘FILE) (close rtfile) );end if (setq…
