{"id":345,"date":"2016-06-15T12:18:26","date_gmt":"2016-06-15T10:18:26","guid":{"rendered":"http:\/\/www.hunggartorino.it\/ql\/?p=345"},"modified":"2016-05-13T14:53:11","modified_gmt":"2016-05-13T12:53:11","slug":"numeri-casuali-e-ql-2","status":"publish","type":"post","link":"https:\/\/www.hunggartorino.it\/ql\/numeri-casuali-e-ql-2\/","title":{"rendered":"Numeri casuali e QL"},"content":{"rendered":"
<\/div>\n
<\/div>\n

Recentemente in lista si \u00e8 discusso sulla effettiva casualit\u00e0 dei numeri \u201crandom\u201d generati dal QL dall\u2019istruzione RND.<\/p>\n

Diversamente da quanto avviene sullo ZX Spectrum, la cui omonima funzione non generer\u00e0 mai alcuni valori, sul QL sembra che effettivamente i numeri siano davvero casuali.<\/p>\n

Con un semplice programmino di 3 righe lo mettiamo alla prova:<\/p>\n

REPeat CR_POINTS
\nPOINT RND(255),RND(255)
\nEND REPeat<\/p><\/blockquote>\n

Tale programma ha il compito di disegnare dei punti a caso e pertanto il rettangolo dello schermo dovrebbe dopo un po\u2019 riempirsi completamente di punti.<\/p>\n

\"Immagine\"<\/a><\/p>\n

Da una prima occhiata sembra che davvero alcune zone siano del tutto improbabili dato che sono presenti \u201cbuchi\u201d e righe dove il QL non andr\u00e0 mai a disegnare il punto. In realt\u00e0 il programma proposto non \u00e8 completo in quanto oltre al comando POINT esistono altri comandi e metodi per disegnare dei punti sul QL:\u00a0 PLOT (da caricare, non nativo Qdos) e BLOCK. Un utente della lista (\u201cCRX\u201d)\u00a0 ha analizzato il problema ed ha effettuato i test con i tre comandi e con l\u2019aggiunta del colore. Si ottengono dei risultati differenti.<\/p>\n

100 REMark *** CASUALITA' ***\r\n110 REMark ~~~~~~~~~~~~~~~~~~\r\n120 MODE 8: PAPER 0\r\n130 WINDOW 512,256,0,0: CLS\r\n140 INK 5: CSIZE 0,1: CURSOR 77,130: PRINT \"Point       Block      Plot\"\r\n150 :\r\n160 FOR points=1 TO 3000\r\n170   POINT RND(22 TO 40),RND(60 TO 80)\r\n180   INK RND(1 TO 7)\r\n190 END FOR points\r\n200 :\r\n210 FOR blocks=1 TO 5000\r\n220   BLOCK 2,1,RND(218 TO 280),RND(50 TO 100),RND(1 TO 7)\r\n230 END FOR blocks\r\n240 :\r\n250 REMark ** Richiede PLOT & DRAW **\r\n260 REMark ~~~~~~~~~~~~~~~~~~~~~~~~~~\r\n270 :\r\n280 FOR plots=1 TO 5000\r\n290   PLOT RND(350 TO 410),RND(50 TO 100)\r\n300   INK RND(1 TO 7)\r\n310 END FOR plots<\/pre>\n
\"4casi\"<\/a><\/p>\n
In tutti i casi POINT non riempie mai il rettangolo ma dispone i pixel su una sorta di griglia, sia su QL reale che su emulatore. Con le rom Minerva recenti i colori appaiono tutt\u2019altro che casuali. Con Minerva meno recente e con JS invece tutto appare pi\u00f9 casuale ma\u2026 aguzzando la vista si nota che i pixel sono disposti esattamente nello stesso modo e con i medesimi colori. Dato che l\u2019orologio interno del QL base non dispone di batteria tampone esso si resetta ad ogni accensione; perci\u00f2 la funzionalit\u00e0 di RND, che \u00e8 data da un conteggio in frazioni di secondo dal momento in cui il QL viene acceso, pu\u00f2 essere modificata con lo statement RANDOMISE.
\nPer esempio, facendo:
\nRANDOMISE DATE
\nsi ottengono subito rettangoli dall\u2019aspetto molto pi\u00f9 casuale, senza l\u2019effetto arcobaleno.<\/p>\n
Per quanto riguarda i buchi che si notano con il POINT rispetto agli altri comandi, in realt\u00e0 sono dovuti al fatto che POINT,\u00a0a differenza di BLOCK e PLOT, usa le coordinate grafiche e non pixels. Quindi necessita anche di coordinate con valori frazionati (POINT 3.5,8.5) per poter accendere tutti i pixel, mentre RND fornisce solo numeri interi.<\/p>\n
 <\/p>\n
Photo: <\/span><\/a>red numbers <\/a>\u00a0 by DaveBleasdale \/\u00a0 CC BY\u00a0 <\/a>\/ Blurred from original<\/em><\/span><\/p>\n
\u00a0<\/em><\/span><\/p>\n
<\/div>\n","protected":false},"excerpt":{"rendered":"Recentemente in lista si \u00e8 discusso sulla effettiva casualit\u00e0 dei numeri \u201crandom\u201d generati dal QL dall\u2019istruzione RND. Diversamente da quanto avviene sullo ZX \n [..more...]<\/a>","protected":false},"author":3,"featured_media":318,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[7],"tags":[],"class_list":["post-345","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-senza-categoria-it"],"_links":{"self":[{"href":"https:\/\/www.hunggartorino.it\/ql\/wp-json\/wp\/v2\/posts\/345","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.hunggartorino.it\/ql\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.hunggartorino.it\/ql\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.hunggartorino.it\/ql\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/www.hunggartorino.it\/ql\/wp-json\/wp\/v2\/comments?post=345"}],"version-history":[{"count":6,"href":"https:\/\/www.hunggartorino.it\/ql\/wp-json\/wp\/v2\/posts\/345\/revisions"}],"predecessor-version":[{"id":695,"href":"https:\/\/www.hunggartorino.it\/ql\/wp-json\/wp\/v2\/posts\/345\/revisions\/695"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.hunggartorino.it\/ql\/wp-json\/wp\/v2\/media\/318"}],"wp:attachment":[{"href":"https:\/\/www.hunggartorino.it\/ql\/wp-json\/wp\/v2\/media?parent=345"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hunggartorino.it\/ql\/wp-json\/wp\/v2\/categories?post=345"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hunggartorino.it\/ql\/wp-json\/wp\/v2\/tags?post=345"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}