NUOVO AMBIENTE SCRIPT AREA TECNICA

[rubino2]

HO provato a mettere un sottomenu nello smess nel settore STATISTICA nominandolo
STATISTICHE RUBINO

devo dire che funziona bene

ho capito che per l'archivio, i dati o il range dell'archivio a cui fanno riferimento i sottomenu sono
quelli dello Smess alla pagina iniziale, sia per aggiornamento che per stabilire eventuali range o periodi
differenti. (fine archivio, aggiornato)

chiedo se ci fosse un aggiornamento dello smess, perdo eventuali aggiunte che faccio io.
del tipo statistica che ho provato ora, ma avrei o vorrei farne una sistemistica/Matrici e Random.

in tal caso cerco di gestire le cose a parte.

 

[LuigiB]

il range di ricerca viene ripreso dalal pagina principale pero poi è selezionable ancje dalel varie funzioni che lo richiedono è possibile impostarlo come nella funzione fatta da te che io ho un po' rivisitato , l'avrai vista immagino.

sefai altre cose e sostituisci il file è chiaro che perdi tutto .. rinomina il file a cui stai lavorando e chiamalo Smesse_rubino .. poi se ritieni me lo mandi e io integro le tue nuove funzioni dentro la versioen ufficiale.

 

[rubino2]

ok grazie

continuo sui miei menu, poi quando avrò una serie di cose e se fossero utili da mettere nello Smess
te le mando, da visionare.

ciao

 

[giomi]

ciao ,nessuno mi puo dire dov' e' l' errore

 

[411m]

PER IL SIGNOR LUIGIB
signor luigi non so se puo aiutarmi se non puo la ringrazio ugualmente
io o 80 anni sono invalido al 100 X 100 giornate intere davanti al compiuter su una sedia a rotetele e passo il tempo al gioco del lotto
avrei bisogno di un CERCHIO CICLOMETRICO da utilizare per passare il tempo MI PUO AIUTARE' ? cordiali saluti e grazie .

 

[lotto_tom75]

Ragazzi.. forse ci sono quasi...


Realizzato ora con spaziometria ma anche lì non avevo (ho) per nulla chiaro come si creano i grafici...

Quindi questo per me è un traguardone... in tal senso...

In questo caso sono riuscito a visualizzare "staticamente" questa situazione incmax...

aElencoRit = Array(79,75,12,100,550,440,62,31,39,27,259,132,77,186,167,244,38,220,217,45,18,362,310,90,39,53,68,70,194,211,21,132,4,253,300,447,99,34,17,29,233,202,167,90,137,307,6,161,3,238,52,245,20,35,53,147,30,150,104,170,32,492,40,142,94,303,155,143,63,99,5,13,15,13,40,13 )
aIdEstrIncrRitMax = Array(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75)
'aElencoIncrRitMax = Array(-4,-63,88,450,-110,-378,-31,8,-12,232,-127,-55,109,-19,77,-206,182,-3,-172,-27,344,-52,-220,-51,14,15,2,124,17,-190,111,-128,249,47,147,-348,-65,-17,12,204,-31,-35,-77,47,170,-301,155,-158,235,-186,193,-225,15,18,94,-117,120,-46,66,-138,460,-452,102,-48,209,-148,-12,-80,36,-94,8,2,-2,27,-27)
aElencoIncrRitMax = Array(4,63,88,450,110,378,31,8,12,232,127,55,109,19,77,206,182,3,172,27,344,52,220,51,14,15,2,124,17,190,111,128,249,47,147,348,65,17,12,204,31,35,77,47,170,301,155,158,235,186,193,225,15,18,94,117,120,46,66,138,460,452,102,48,209,148,12,80,36,94,8,2,2,27,27)
aRitardiAllIncremento = Array(79,75,12,100,550,440,62,31,39,27,259,132,77,186,167,244,38,220,217,45,18,362,310,90,39,53,68,70,194,211,21,132,4,253,300,447,99,34,17,29,233,202,167,90,137,307,6,161,3,238,52,245,20,35,53,147,30,150,104,170,32,492,40,142,94,303,155,143,63,99,5,13,15,13,40,13 )
riferito ad un caso reale non ottimale x A in 3ina (1.2.3) su BA

dove in blu ci sono tutti i ritardi, in nero i numeri progressivi degli incrementi, in rosso tutti i valori degli incrementi e in violetto tutti i ritardi rispetto ogni valore di incremento che in questo caso considerandoli tutti... corrispondono a tutti i ritardi riportati in blu.

Come si può facilmente notare i veri valori di incrementi sarebbero in realtà quelli in verde (incrementi e decrementi) ma, per usare un termine usato da rookie, per riuscire a visualizzare il grafico soprastante li ho dovuti traslare.. in positivo... perchè lasciandoli in negativo lo script mi dava errore dicendo che erano fuori range...

Ora domando a chi lo sa sia possibile o no lasciar invariati in negativo i relativi valori incmax e vederli visualizzati secondo la rispettiva sezione < 0 del grafico o se invece bisogna comunque traslarli, come ho fatto in questo esempio, sempre tutti in positivo...

Di seguito il codice estrapolato da uno dei molti script che lo includono e che ho cercato di capire e riadattare alle mie esigenze e che spero di riuscire a riportare in un secondo tempo anche in twinbasic...

Option Explicit
Sub Main

Call DisegnaGraficoIncrRitMax

End Sub

   Sub DisegnaGraficoIncrRitMax
      Dim x,y,k
      Dim nValoreMaxX,nValoreMaxY,nValoreMinX
      Dim nStepX,nStepY
      Dim nUpperVetIncrRit
      Dim aIdEstrIncrRitMax
      Dim aElencoRit
      Dim mInizio
      Dim aElencoIncrRitMax
      Dim aRitardiAllIncremento
 
      mInizio = EstrazioneIni
 
     aElencoRit = Array(79,75,12,100,550,440,62,31,39,27,259,132,77,186,167,244,38,220,217,45,18,362,310,90,39,53,68,70,194,211,21,132,4,253,300,447,99,34,17,29,233,202,167,90,137,307,6,161,3,238,52,245,20,35,53,147,30,150,104,170,32,492,40,142,94,303,155,143,63,99,5,13,15,13,40,13 )
     aIdEstrIncrRitMax = Array(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75)
     'aElencoIncrRitMax = Array(-4,-63,88,450,-110,-378,-31,8,-12,232,-127,-55,109,-19,77,-206,182,-3,-172,-27,344,-52,-220,-51,14,15,2,124,17,-190,111,-128,249,47,147,-348,-65,-17,12,204,-31,-35,-77,47,170,-301,155,-158,235,-186,193,-225,15,18,94,-117,120,-46,66,-138,460,-452,102,-48,209,-148,-12,-80,36,-94,8,2,-2,27,-27)
     aElencoIncrRitMax = Array(4,63,88,450,110,378,31,8,12,232,127,55,109,19,77,206,182,3,172,27,344,52,220,51,14,15,2,124,17,190,111,128,249,47,147,348,65,17,12,204,31,35,77,47,170,301,155,158,235,186,193,225,15,18,94,117,120,46,66,138,460,452,102,48,209,148,12,80,36,94,8,2,2,27,27)
     aRitardiAllIncremento = Array(79,75,12,100,550,440,62,31,39,27,259,132,77,186,167,244,38,220,217,45,18,362,310,90,39,53,68,70,194,211,21,132,4,253,300,447,99,34,17,29,233,202,167,90,137,307,6,161,3,238,52,245,20,35,53,147,30,150,104,170,32,492,40,142,94,303,155,143,63,99,5,13,15,13,40,13 )

 
 
      nValoreMinX = MinimoV(aIdEstrIncrRitMax,1)
      nValoreMaxX = aIdEstrIncrRitMax(UBound(aIdEstrIncrRitMax))
      nValoreMaxY = MassimoV(aElencoRit,1)
      nStepX =(nValoreMaxX -(mInizio - 1)) '\10
      nStepY = nValoreMaxY '\10
 
 
 
       Call PreparaGrafico("BA 1-2-3",nValoreMinX,nValoreMaxX,0,nValoreMaxY,nStepX,nStepY)
 
      nUpperVetIncrRit = UBound(aElencoIncrRitMax)
 
      ReDim aV(nUpperVetIncrRit - 1,2)
 
      For k = 1 To nUpperVetIncrRit
 
         x = aIdEstrIncrRitMax(k)
         y = aElencoIncrRitMax(k)
         aV(k - 1,1) = x
         aV(k - 1,2) = y
 
      Next
 
 
      Call DisegnaLineaGrafico(aV,vbRed,"IncrRitMax")
 
      ReDim aV(nUpperVetIncrRit - 1,2)
 
      For k = 1 To nUpperVetIncrRit
 
         x = aIdEstrIncrRitMax(k)
         y = aRitardiAllIncremento(k)
         aV(k - 1,1) = x
         aV(k - 1,2) = y
 
      Next
 
 
      'Call DisegnaLineaGrafico(aV,vbBlue,"RitMax")
 
      Call InserisciGrafico
 
   End Sub

Inoltre già che ci sono vi chiedo una traduzione "pane al pane e vino al vino" per queste righe di codice sottostanti che mi rimangono ancora piuttosto "arcane" e "misteriose.." non essendo purtroppo per nulla avvezzo a grafici , ascisse, ordinate, matrici multidimensionali... e amenità similari...

 For k = 1 To nUpperVetIncrRit
 
         x = aIdEstrIncrRitMax(k)
         y = aRitardiAllIncremento(k)
         aV(k - 1,1) = x
         aV(k - 1,2) = y
 
      Next

Tnx

ps: ho provato il nuovo code di luigi per disegnare su form twinbasic con le sue funzioni ma purtroppo senza esito + forse perchè non ho ancora aggiornato all'ultima dll n.28.

 

[LuigiB]

allora di legger lo script non mi va ... per i lresto hai mai sentito parlare di torta alle ascisse e pasticcini alle ordinate ?

 

[lotto_tom75]

allora di legger lo script non mi va ... per i lresto hai mai sentito parlare di torta alle ascisse e pasticcini alle ordinate ?

Vedi l'allegato 2255628

Questo l'avevo capito comuqnue grazie luigi per la "dolcissima" rappresentazione esplicativa . Purtroppo però non riesco a mettere nello script il range negativo e positivo dell'esempio soprastante... Puoi farmi vedere come si fa? Grazie

 

[LuigiB]

se hai valori negativisi possiono passare come quelli positivi , parlo dello smess

 

[lotto_tom75]

se hai valori negativisi possiono passare come quelli positivi , parlo dello smess

Ma nello smess dove e come posso provare questa funzione grafico?

Inoltre con spaziometria non è possibile visualizzare i valori negativi di incremento massimo? Se invece è possibile come si fa ad estendere il range di visualizzazione anche a quelli?

A proposito di smess... hai avuto modo di testare e/o accettare o buttare.. o modificare del tutto my robot boss v162?

 

[Rookie]

Questo l'avevo capito comuqnue grazie luigi per la "dolcissima" rappresentazione esplicativa . Purtroppo però non riesco a mettere nello script il range negativo e positivo dell'esempio soprastante... Puoi farmi vedere come si fa? Grazie

dimensiona il tuo vettore in modo appropriato
dim ArrayIncrMax(-500 to 500) as long
dim Scorri as integer

e quando li scorri
for Scorri=-500 to 500
leggi i valori dell'arrayIncrMax(Scorri)
next

Ovviamente il range -500 to 500 deve contenerli con certezza, altrimenti estendi in modo appropriato...

 

[lotto_tom75]

dimensiona il tuo vettore in modo appropriato
dim ArrayIncrMax(-500 to 500) as long
dim Scorri as integer

e quando li scorri
for Scorri=-500 to 500
leggi i valori dell'arrayIncrMax(Scorri)
next

Quindi secondo l'esempio che ho postato poco più sopra... basterebbe mettere qualcosa di questo tipo:

   For k = -500 To nUpperVetIncrRit
      x = aIdEstrIncrRitMax(k)
      y = aRitardiAllIncremento(k)
      aV(k - 1,1) = x
      aV(k - 1,2) = y
   Next

ps: nel frattempo non so perchè ma con la versione 277 e la dll 28 gli script twin per elaborazioni su più ruote unite mi ridanno il simpatico... errore native...

 

[LuigiB]

Ma nello smess dove e come posso provare questa funzione grafico?

Inoltre con spaziometria non è possibile visualizzare i valori negativi di incremento massimo? Se invece è possibile come si fa ad estendere il range di visualizzazione anche a quelli?

A proposito di smess... hai avuto modo di testare e/o accettare o buttare.. o modificare del tutto my robot boss v162?

Tom abbi pazienza ma io volevo vedere lo script di rubino se aveva qualche errore che ne impediva il funzionamento riferito all'ambiente di twinbasic .. non posso entrare nel merito degli script .. cioè un conto uno script che da problemi anomali che non si capisce da che dipendono ... un altro uno script fa forma di torta nuziale ..

 

[Rookie]

Quindi secondo l'esempio che ho postato poco più sopra... basterebbe mettere qualcosa di questo tipo:

   For k = -500 To nUpperVetIncrRit
      x = aIdEstrIncrRitMax(k)
      y = aRitardiAllIncremento(k)
      aV(k - 1,1) = x
      aV(k - 1,2) = y
   Next

ps: nel frattempo non so perchè ma con la versione 277 e la dll 28 gli script twin per elaborazioni su più ruote unite mi ridanno il simpatico... errore native...

Questo non lo' so ma so' come puoi fare in linea generale

setta due variabili long, Vmin e Vmax
Vmax=0 e Vmin=100000
e ogni volta che leggi un valore fai in modo che Vmax contenga l'estremo superiore dell'intervallo e Vmin quello inferiore. Le due if devono essere scritte per questo scopo

if aRitardAllIncremento(k)>vmax then
vmax=ARitardAllIncremnto(k)
end if

if aRitardAllIncremento(k)<vmin then
vmin=ARitardAllIncremnto(k)
end if

quindi il tuo for avra' questa forma
For k = Vmin To Vmax
x = aIdEstrIncrRitMax(k)
y = aRitardiAllIncremento(k)
aV(k - 1,1) = x
aV(k - 1,2) = y
Next

Presta attenzione al segno algebrico di tutte le variabili che usi..., usa la funzione sgn(var) che restituisce -1 se var e' negativa, 1 se e' positiva o 0 (zero) se vale zero

 

[LuigiB]

con quel grafico che hai usato in spaziometria non mi ricordo ma mi pare che i fvalor negativi non l iavevo previsti ..devi usare le funzioni della libreria nuova , percio scaricala e aggiornala e aggiorna pure twinbasic

 

[lotto_tom75]

Tom abbi pazienza ma io volevo vedere lo script di rubino se aveva qualche errore che ne impediva il funzionamento riferito all'ambiente di twinbasic .. non posso entrare nel merito degli script .. cioè un conto uno script che da problemi anomali che non si capisce da che dipendono ... un altro uno script fa forma di torta nuziale ..

 

[rubino2]

vorrei calcolare la deviazione standard di un dato periodo

prima se usavo DEV.ST, andava bene, ora mi da errore appena lo scrivo.

cosa si dovrebbe usare in Twinbasic?

 

[LuigiB]

mi sa che ti confondi con excel .. non credo ci siano istruzioni simili in twinbasic ..

 

[Rookie]

vorrei calcola la deviazione standard di un dato periodo

prima se usavo DEV.ST, andava bene, ora mi da errore appena lo scrivo.

cosa si dovrebbe usare in Twinbasic?

Per esempio, voglio calcolare la dev. standard dell'estratto in 1000 prove
dim devStandard as single
devStandard=Sqr(0.05555*0.94444*1000)

 

[LuigiB]

Per esempio, voglio calcolare la dev. standard dell'estratto in 1000 prove
devStandard=Sqr(0.05555*0.94444*1000)

ecco io non sono un matematico ma con la formula di rookie la puoi implemetare da solo la funzioneche tiserve