lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Lista Forumurilor Pe Tematici
|
lisp2arx | Reguli | Inregistrare | Login
POZE LISP2ARX
Nu sunteti logat.
|
Nou pe simpatie:
dela_dela din Bucuresti
 | Femeie
24 ani
Bucuresti
cauta Barbat
24 - 48 ani |
|
|
admin
Administrator
Din: Bucharest
Inregistrat: acum 13 ani
Postari: 506
|
|
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 |
61.5KB
_______________________________________
|
|
| pus acum 2 ani |
|
