lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms..

Nou pe simpatie:
Ioana24

Femeie
25 ani
Bucuresti
cauta Barbat
27 - 43 ani

lisp2arx Reguli Inregistrare Login PozeNu sunteti logat. Lista Forumurilor Pe Tematici

lisp2arx / Listof AutoLisp.100 /

AutoLisp Random number generator for integer

Pagini: 1

Moderat de zauchan

admin
Administrator
Din: Bucharest
Postari: 523

Inf: random number generator

The seed for RND. This is the variable that is set by RANDOMIZE.
Out:rr:integer

Code:

(if (equal  const_seed nil)
    (setq const_seed (atoi (substr (rtos (getvar "CDATE") 2 10) 14)))
   )
(defun php_rand_void(kmaxInt / rr ax)  ;;_ASSERT_OK
   (if (=  kmaxint nil) (setq;|a21613|;
     kmaxint 32767)) (setq;|a21641|;
     ax const_seed
     ax (/ (+ (* ax 214013) 2531011) (expt 2  16 ) )
     rr (boole 1  ax kmaxInt)
     const_seed (boole 1  ax 32767)) 
rr)

MainProblem cu SUA, nu este totalul multor trucurii ,(hotii, furturi- noi trebuie sai iertam9%=tva) educatia financiara americană este o Religie(ex. de religie=Catolicism, sau iudaism), Adică oameni din SUA au descoperit alt tip de religie2000anul, dogmatica-religioasa-economică .?> iar acum americanii au probleme cu recunoasterea acestei religiei.lor, de câtre Alieni pe alte planete.(Venus, sau Marte.. si de aceea ei ne sparg pe noi cu inflatia economică

. Alieni Pleiadieni, asa zic pe internet, americanii.Sua isi mută dogmatica-religia lor.. in *secret* la economia; pe Marte hollow-black ascunsă de văzul lumii-clasice.(China, Isreael, Rusia...)

Code:

#region
php_rand_void
(if (equal  const_seed nil)
    (setq const_seed (atoi (substr (rtos (getvar "CDATE") 2 10) 14)))
   )
(defun php_rand_void(kmaxInt / rr ax)  ;;_ASSERT_OK
/*c2s: if (kmaxint==nil) kmaxint=32767;
       ax=const_seed,
       ax=(ax*214013 + 2531011) >> 16,
       rr=ax & kmaxInt,
       const_seed=ax & 32767;
*/
rr)
#endregion

AutoLisp Random number generator for integer - Inf: random number generator The seed - Listof AutoLisp.100 — AutoLisp Random number generator for integer – poza de admin, in Listof AutoLisp.100 · 61.5KB

_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf

admin
Administrator
Din: Bucharest
Postari: 523

You can user cputicks and modulo for generating number/s inside the shortstring for Delphi or
Lazarus.
I think you can also use a random string to replace your integer. I have written a program to generate a random string. Look at this URL：

Code:

#region
(DEFUN make_rnd_string (/ lvar0 lvar1 lvar2 lvar3 lvar4 lvar5 lvar6
   lvar7 lvar8 lvar9)
  (setq lvar1
  (LIST "{" "}" "~" "[" "]" "_" "^" "*" "$" ":" "#" "@")
  )
  (setq lvar2
  (LIST "s"   "t"   "u"  "1"   "2"   "3"   "4"  "5"   "6"
  "?"   "#"   "@"  "["   "]"   "_"   "^"  "{"   "}"
  "r"   "x"   "y"  "h"   "i"   "w"   "c"  "d"   "k"
  "~"   "*"   "$"  ":"   "l"   "m"   "v"  "g"   "q"
  "p"   "z"   "n"  "o"   "a"   "e"   "f"  "j"   "b"
  "7"   "8"   "9"  "0"
    )
  )
  (setq lvar8 (list "j"   "b" "s"   "w"   "c"   "d" "k"   "p"
   "z"   "n" "l"   "m"   "t"   "u" "h"   "i"
   "v"   "g" "q"   "r"   "x"   "y" "o"   "a"
   "e"   "f"
  )
  )

i've been playing with bricscad for a night
.des file format appears to be unsecure
whoever cares about his/her code privacy - do not use .des format.

Code:

(setq lvar3 (rem (READ (SUBSTR (VL-STRING-SUBST   ""  "."  (RTOS (GETVAR "cputicks") 2 16)  )  12  2 ) )  12    )  )  
  (setq lvar4 (rem (READ (SUBSTR (VL-STRING-SUBST   ""  "."  (RTOS (GETVAR "cputicks") 2 16)  ) 12 2   )  )  48    )  )
  (setq lvar5 (rem (READ (SUBSTR (VL-STRING-SUBST   ""   "." (RTOS (GETVAR "cputicks") 2 16)  )   12   2 )  )  48    )  )
  (setq lvar6 (rem (READ (SUBSTR (VL-STRING-SUBST   ""  "."  (RTOS (GETVAR "cputicks") 2 16)   )   12   2  )   )   48     )  )
  (setq lvar0 (rem (/ (getvar "millisecs") 10000) 26))
  (setq lvar9 (rem (getvar "millisecs") 26))
  (if (= nil lvar3) (setq lvar3 1))
  (if (= nil lvar4) (setq lvar4 2))
  (if (= nil lvar5) (setq lvar5 3))
  (if (= nil lvar6) (setq lvar6 4))

bricscad is a good alternative to acad and there will be more and more bricscad users worldwide
if you want to sell them your apps you will have to chose between money and security

Code:

(setq lvar7  (STRCAT (NTH lvar0 lvar8) (NTH lvar3 lvar1) (NTH lvar4 lvar2)
               (NTH lvar5 lvar2) (NTH lvar6 lvar2) (NTH lvar9 lvar8)  ) )
  (if (VL-POSITION  lvar7 rnd_string_list  )
   (PROGN (setq lvar7 (make_rnd_string)))
    (PROGN (setq rnd_string_list (CONS  lvar7
     rnd_string_list)) lvar7 )  )
)
(DEFUN make_rnd_string12 ()
  (strcat (make_rnd_string) (make_rnd_string))
)

AutoLisp Random number generator for integer - You can user cputicks and modulo for - Listof AutoLisp.100 — AutoLisp Random number generator for integer – poza de admin, in Listof AutoLisp.100 · 39KB

_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf

Pagini: 1

Mergi la