Word VBA

Generazione personale di numeri pseudo casuali

Gianni Giaccaglini — Thu, 01 Dec 2011 17:23:00 GMT

Generazione personale di numeri pseudo casuali

Nell’ultimo mio intervento nella sezione Articoli, ovvero:

http://blog.shareoffice.it/giannigiaccaglini/articles/11052.aspx

Ho esposto un procedimento che ritengo originale (e comunque ingegnoso, se permettete) in grado di “Scombussolare un documento Word” disponendo in modo random delle sue parti tri-letterali.

L’esperimento illustrato comunque curioso e istruttivo si è in un primo tempo presentato deludente per quanto riguarda il recupero del testo originario. Ne ho dedotto, erroneamente, che i casuali generati da Rnd senza ricorrere a Randomize sono inizializzati in modo sempre differente ad ogni riapertura del documento stravolto.

In realtà tale sequenza è identica e i primi numeri sono sempre 0,7055475; 0,533424; 5795186; 2895625; 301948; 7747401;... e via di seguito, in qualunque nuova sessione e sia con le versioni 2007 che 1010. Con le quali, dunque il recupero di documenti scombussolati e salvati può funzionare regolarmente.

Nota Permettendo così a se stessi o a un eventuale corrispondente amico di recuperare l’originale. Qui va anche evidenziato che, come si rendono conto quanti sperimentano ques’idea, che vengono comunque perdute le formattazioni. Qualcuno sa dire come porvi rimedio?

Comunque rimane il timore non tanto di future versioni VBA che alterino la funzione Rnd rendendola più aleatoria, ma piuttosto il fatto che questa eccessiva Regolarità si presenti fragile, magari nell’ipotesi che questo procedimento diventi noto in giro.

Il modo migliore per ovviare all’inconveniente, è dato da una sequenza molto ampia di numeri casuali ma che resta identica se se ne fissa il primo valore (il “seme”, in gergo).

Mi dicono che la cosa è possibile in Visual Studio con un complesso generatore Random, ma non nel convento VB6 su cui si fiondano le macro di MS Office. Per fortuna ci si può arrangiare con un algoritmo del cosiddetto metodo della congruenza lineare. Con un po’ di pazienza si può trovare descritto sul Web.

Illustrazione pratica del metodo con Excel

La formula che fornisce il successore di un siffatto casuale è abbastanza semplice:

x_i+1= (a* x_i+ c) Mod m

ove Mod in VBA è proprio l’operatore che, per fare un esempio banale, con l’istruzione Resto = 12 Mod 5 ci dà il resto della divisione intera fra i due numeri interi, ossia 2 nella fattispecie.

Per comprendere più da presso la faccenda propongo di ricorrere a Excel. La figura seguente illustra un caso particolare dovuto alla scelta x₀= 1, a = 12, c=5, m=11. Le intestazioni di riga e colonna sono omesse ma l’intervallo è “appeso” in A1.

X0	1	1
a	12	6
c	5	0
m	11	5
		10
		4
		9
		3
		8
		2
		7
		1
		6
		0
		5

Le formule nelle celle di colonna C sono subito viste:

C1=B1

C2:C15=RESTO($B$2*C1+$B$3;$B$4)

Ove la seconda formula si ottiene al volo in tre mosse: 1. Selezione di C1:C15; 2. Digitazione della formula in C2; 3. Consolidamento della stessa con Ctrl+Invio.

Si constaterà una sequenza di numeri ciclica di lunghezza 11: 1, 6, 0, 5, 10, 4, 9, 3, 8, 2, 7... Chiaramente troppo breve. Addirittura con certi valori la lunghezza è 1, ossia del tipo 3, 3, 3, 3,...

L’algoritmo proposto

La teoria chiarisce i criteri da adottare per ottenere sequenze di massima lunghezza. In base ad essi diversi studiosi, tra cui il famoso Knuth, hanno escogitato opportuni valori dei parametri suddetti. Suggerisco quelli dovuti a Goodman e Miller: m=2³¹-1; a = 7⁵; c=0

Il risultato è del tipo seguente:

X0	2310882914	2310882914
a	16807	1767379603
c	0	355182317
m	2147483647	1692146806
		785431221
		160553238
		1178810434
		1730320663
		275835367
		1695302943
		143534605
		761970654
		995794717
		981747548
		1114179335
		2102165152

Stavolta, per maggior generalità ho assegnato all’intervallino dei parametri i nomi X0, a ed m, tralasciando c, che essendo nullo si può omettere nella formula base. Ed ecco infine le formule del caso:

B1=INT(CASUALE()*10000000000)

B2=7^5

B4=2^31-1

C1=X0

C2=RESTO(a*C1;m)

C3=RESTO(a*C2;m)

E via di seguito nelle celle sottostanti, a piacere. Premendo il tasto RICALCOLA, alias F9 si assisterà alla riproduzione di serie caratterizzate da un seme X0 variabile da zero a 10 alla decima.

Nota. I sullodati Goodman e Miller ne garantiscono una siffatta lunghezza, che poi corrisponde al range massimo di 10 cifre distinte supportate da Excel e, credo, anche da VB6.

Soluzione del nostro problema? problematica

Per lo scopo di cui all’inizio, sconvolgere un documento, salvarlo e recuperarne l’originale la soluzione è presto detta: usare un generatore come quello appena illustrato adottando come chiave un seme di massimo 10 cifre.

Chi legge attentamente anche l’articolo citato in apertura, se interessato e buon intenditore, può cavarsela anche da solo. Prima di chiudere tuttavia è doveroso precisare che nel frattempo ho scoperto un altro inghippo:

Il metodo sopra illustrato, tradotto in VBA purtroppo dà luogo a blocchi per “overflow”, a causa del limitato range del tipo Long.

Nota.Il tipo Long in VBA spazia da -2.147.483.648 a 2.147.483.647, mentre in Visual Studio il range è di 18 cifre, inoltre c’è pure un tipo ancor più ampio, Ulong). La cosa buffa è che Excel, essendo un foglio di calcolo accetta interi fino a 10^11 – 1, e pertanto sullo spreadsheet il metodo funziona.

Il guaio si può constatare, con raccapriccio, lanciando questo macrocodice:

Function NextRand(PrecRand) '

Dim a, m

a = CDec(7 ^ 5): m = CDec(2 ^ 31 - 1)

Dim NextRnd As Double

NextRnd = a * PrecRand Mod m

NextRand = NextRnd

End Function

Sub Prova()

x = 12345

For i = 1 To 1000

MsgBox x

x = NextRand(x)

End Sub

Altrettanto male vanno le cose se ci si illude di sfruttare NextRand come funzione personale sul foglio di lavoro...

Ma ci si può accontentare

Provando e riprovando un po’ a casaccio ho trovato questi parametri: a = 16807, c = 78125, m = 2047, che danno una sequenza di casuali di lunghezza 93. Questa sarebbe troppo breve se si adottasse il metodo per una crittografia, “classica”, ovvero di cifratura. Ma Nel nostro sistema scombussolante le cose vanno decisamente meglio.

Si lanci il seguente macrocodice:

Sub Scombussola()

strOrig = "abcdefghijklmnopqrstuvwxyz"

strRand = "793152468"

NOrig = Len(strOrig): NRand = Len(strRand)

ReDim VettRand(NOrig)

j = 1

For i = 1 To NOrig

VettRand(i) = Mid(strRand, j, 1)

j = IIf(j = NRand, 1, j + 1)

' Bubble sort

For i = 1 To NOrig - 1

For j = i To NOrig

If VettRand(j) < VettRand(i) Then

dep = VettRand(i)

VettRand(i) = VettRand(j)

VettRand(j) = dep

dep = Mid(strOrig, i, 1)

Mid(strOrig, i, 1) = Mid(strOrig, j, 1)

Mid(strOrig, j, 1) = dep

End If

Next j

For i = 1 To NOrig

Debug.Print VettRand(i), Mid(strOrig, i, 1)

End Sub

La routine crea un banale VettRand di interi casuali di lunghezza 9, che si succedono come nella strRand, quindi si procede al bubble sort sia di VettRand che della stringa originaria qui rappresentata dai caratteri dell’alfabeto. Ed ecco il risultato nella finestra di Debug:

1 d

1 m

1 v

2 o

2 f

2 x

3 u

3 c

3 l

4 p

4 g

4 y

5 w

5 e

5 n

Eccetera...

In prima battuta si evince che l’ordinamento di VettRand ha creato ripetizioni, la qual cosa potrebbe far sorgere qualche timore, che però viene (ragionevolmente) fugato dalla constatazione che ciò nonostante un buon grado di disordine nella stringa, stravolta come “dmvofxuclpgywen....”.

Mi fermo qui, confidando in commenti e suggerimenti da parte dei più esperti.

Caselle di testo dinamiche inserite in un UserForm

Gianni Giaccaglini — Wed, 18 May 2011 16:37:00 GMT

Caselle di testo dinamiche inserite in un UserForm

Recentemente mi è stata posta questa domanda: “Si può inserire in una UserForm un numero variabile, fissato a run-time (magari tramite opportuna macro VBA) di caselle di testo?” La richiesta è inusuale, visto che il più delle volte una UserForm viene definita al tempo di progetto. Con un po’ di pazienza, frugando nella Guida dell’Editor VBA, ho trovato la risposta, di cui riporto un tipico esempio in fondo a questo post. Adattandolo al caso che tormentava il nostro amico ho escogitato una prima macro di test, sull’evento Click dell’unico pulsante di una UserForm1, per il resto vuota di altri controlli:

Private Sub CommandButton1_Click()

Dim miaTxtBox As Control

Set miaTxtBox = Controls.Add("Forms.TextBox.1", "miaCasella", True)

With miaTxtBox

.Left = 18

.Top = 150

.Width = 175

.Height = 20

End With

Me.Controls("miaCasella").Value = InputBox("Scrivi...")

End Sub

L’istruzione basilare, grassettata, ha la seguente sintassi:

Controls.Add(“<Tipo ctrontrollo>”, “Nome”,

E ha l’effetto di aggiungere (metodo Add) all’insieme dei Controls una TextBox definita come “Forms.Textbox.1” – mentre analoghe sintassi valgono per altri controlli come il "MSForms.CommandButton.1” esemplificato dalla Guida e altri di pari eloquenza. Il terzo argomento va prudentemente posto a True assicurando la visibilità della neonata casella impostata nella MiaTxtBoz (di tipo Control, ovviamente). Dopo di che a MiaTxtBox sono assegnati, dinamicamente, proprietà relative al posizionamento e alle dimensioni e, infine, vi viene inserito il valore stabilito dall’utente in risposta a una InputBox.

Come i più svegli subito notano nell’ultima istruzione si ricorre, in alternativa a miaTextBox, al nome “miaCasella”, secondo nome facoltativo di Controls.Add.

Se poi si vuole lanciare la UserForm1 non resta che lanciare una macro bene nota come questa:

Sub UserFormDinamica()

Load UserForm1

UserForm1.Show

End Sub

Una variante appena un po’ più elaborata è la seguente, che crea ben due (“e regali..”, dicono a Livorno) casellineficcandovi due scemenze:

Dim CaselleAggiunte As Boolean

Private Sub CommandButton1_Click()

If Not CaselleAggiunte Then

Me.Controls.Add "Forms.TextBox.1", "Casella1", True

Me.Controls.Add "Forms.TextBox.1", "Casella2", True

With Me.Controls("Casella2")

.Left = 50

.Top = 50

End With

CaselleAggiunte = True

End If

Me.Controls("Casella1") = "ambarabà"

Me.Controls("Casella2") = "Ciccì coccò"

End Sub

Il punto più rilevante è dato dalle istruzioni “creative” la cui sintassi è nata dalla scoperta che non occorre nessuna variabile per registrare il nuovo controllo, basta invocare il medoto Add dell’insieme Controls dell’UserForm corrente, ovvero Me.Controls.

Creazione dinamica di N casella all’apertura dell’UserForm

Dopo i precedenti esperimenti, torniamo all’esigenza iniziale ovvero, ricordate?, aggiungere un numero di TexBox definite di volta in volta. In tale prospettiva, si compiano le mosse seguenti:

1. Creare un UserForm2

2. Aggiungervi come prima un solo CommandButton1, magari dotato di Caption “Caselle dinamiche” in luogo del default “UserForm2”;

3. Digitare la macro dell’evento Initialize:

Private Sub UserForm_Initialize()

Dim i As Integer, N As Integer

Dim NomeCasella As String

Dim Cima As Integer

N = Range("NumCaselle")

Cima = 10

Me.Height = N * 25 + 75

CommandButton1.Top = Me.Height - 50

' If N > 10 Then N = 10 ' Limitazione num. caselle? Non serve col combo...

For i = 1 To N

NomeCasella = "Casella" & i

Me.Controls.Add "Forms.TextBox.1", NomeCasella, True

With Me.Controls(NomeCasella)

.Left = 50

.Height = 20

.Width = 150

.Top = Cima

End With

Cima = Cima + 25

End Sub

Commenti tacitiani. Il valore N è attinto da una cella del foglio di lavoro preliminarmente battezzata “NumCaselle”, ove l’utente dovrà stabilire appunto il desiato numero caselle. Il clou sta nel ciclo For i = 1 To N in seno al quale vengono via via fissato un NomeCasella pari a “ Casella” & i vale a dire “Casella1”, “Casella2” e così via. Il dimensionamento Me.Heigth dell’altezza del Form in modo da adeguarsi alle N caselle (ciascuna di altezza, Height, pari a 20) + 5 spazi tra le stesse è lasciato all’esegesi autogestita. Idem il posizionamento del Top del CommandButton1, sottostante alla N caselline ma senza sparire.

E la Sub dell’evento Click di quest’ultimo? Eccone una ipotetica, che segnala (MsgBox) i nomi delle N caselle create inserendovi man mano numeri casuali. Tanto per fare qualcosa, nei casi personali ognuno personalizzerà questa faccenda.

Private Sub CommandButton1_Click()

Dim Ctrl As Control

For Each Ctrl In Me.Controls

If Left(Ctrl.Name, 7) <> "Command" Then

Randomize

Ctrl = Int(Rnd * 100000 + 100)

MsgBox Ctrl.Name

End If

End Sub

Concludo suggerendo, in luogo del controllo del numero massimo N = 10, un combo box sul foglio di lavoro associato alla predetta cella di nome”NumCaselle”.

Ultimissima variante

Consiste nell’omissione del secondo argomento di Controls.Add, nel qual caso la caselle di testo via via create assumono i nomi default o standard che dir si voglia “TextBox1” ,” TextBox2”, eccetera.

Private Sub UserForm_Initialize()

Dim i As Integer, N As Integer

Dim Cima As Integer

N = Range("NumCaselle")

Cima = 10

Me.Height = N * 25 + 75

CommandButton1.Top = Me.Height - 60

For i = 1 To N

Me.Controls.Add "Forms.TextBox.1", , True

With Me.Controls(i)

.Left = 50

.Height = 20

.Width = 150

.Top = Cima

End With

Cima = Cima + 25

End Sub

L’esempio della Guida

Esempio dell'evento AddControl e del metodo Add

In questo esempio il metodo Add viene utilizzato per aggiungere un controllo a un form in fase di esecuzione. L'evento AddControl viene utilizzato per verificare se il controllo è stato aggiunto.

Per eseguire l'esempio, copiare il codice riportato di seguito nella sezione Dichiarazioni di un form. Verificare che il form contenga:

· Un controllo CommandButton (CommandButton1).

· Un controllo Label (Label1).

Dim Mycmd as Control

Private Sub CommandButton1_Click()

Set Mycmd = Controls.Add("Forms.CommandButton.1") ', CommandButton2, Visible)

Mycmd.Left = 18

Mycmd.Top = 150

Mycmd.Width = 175

Mycmd.Height = 20

Mycmd.Caption = "This is fun." & Mycmd.Name

End Sub

Private Sub UserForm_AddControl(ByVal Control As _

MSForms.Control)

Label1.Caption = "Control was Added."

End Sub

Nota. Qui osservo, solamente, che a) definire a livello Dichiarazione la variabile Mycmd (o la mia Casella nel caso di una TextBox) non è indispensabile, come ho mostrato nei miei esempietti; b) il secondo pulsante di comando Mycmd creato di fatto non serve quasi a nulla, non potendo associarvi routine d’evento (possibilità speciale ammessa in VB .NET). Lo stesso vale per le nostre caselle di cui però si può modificare il valore.

Istruzione VBA KILL. Pericolosa? Sì ma non è una falla...

Gianni Giaccaglini — Fri, 11 Mar 2011 11:22:00 GMT

Dibattito sull’istruzione Kill

La possibilità di utilizzare in una macro VBA di Excel o Word un’istruzione come Kill indicata nel mio testo Excel e Office VBA (Ed. Hoepli) su computer differenti dal proprio ultimamente mi è stata messa in dubbio da diversi interlocutori. Uno di costoro si è addirittura scandalizzato dichiarando che “se fosse vero Microsoft avrebbe ammesso la presenza di una falla clamorosa nel VBA!”.

Gente ma non avete mai sentito parlare di “virus da macro” contro i quali i produttori di antivirus promettono protezioni adeguate? Perché mai, se il rischio non ci fosse? E come si spiega la creazione, dopo Office 2007, di file di estensione diversificata – xlsx/xlsm, docx e docm? La cosa assicura che quelli senza la m finale sono privi di macro ma se si apre un modello Excel o un documento Word del secondo tipo nulla garantisce (salvo azioni più o meno miracolose degli antivirus, sempre che installati) che un’istruzione criminosa non venga eseguita, magari automaticamente e a tradimento all’apertura del file (macro di auto avvio Document_Open in Word, Workbook_Open in Excel). Per non parlare di file xls e doc dotati cioè del formato precedente, tuttora prevalenti.

Un’obiezione più sensata (ma solo in apparenza)

Mi è pervenuta recentemente. La riporto direttamente qui sotto, in corsivo, alternando le mie controdeduzioni in carattere normale.

Sembrerebbe che Vba e il mondo Excel permettano di creare magari casualmente e senza volerlo virus che a questo punto avrebbero già messo in ginocchio l'informatica. Infatti sembrerebbe che l'istruzione scritta sul mio computer per fare un po’ di pulizia da vecchi file finirebbe per diventare un virus se passato al mio vicino di casa.

Nell'era della comunicazione globale ciò risulterebbe una catastrofe.

Secondo me certe istruzioni potenzialmente dannose come Kill o analoghe funzionano solo se il loro autore e l'amministratore del sistema coincidono. Così se le eseguo sul computer di casa mia funzionano, ma se le metto in un file excel e le passo ad un amico e lui le fa girare sul proprio computer non sortiranno nessun effetto sulla sua macchina perché quel file non ha diritti amministrativi sulla macchina del mio amico.

Purtroppo non è come lei spera (o si illude?). Non escludo (ma ne dubito assai) che i sistemi connessi in rete possano avere qualche protezione intrinseca del tipo che ipotizza, ma su PC normali l'istruzione di eliminazione file sembra proprio che funzioni tranquillamente. L'ho verificato sulle due macchine che ho in casa, dotate per giunta di s.o. differenti, Win XP e Win 7 addirittura con una chiavetta USB sulla quale ho creato una directory fasulla E:\Uccidi, contenente un file Kill.xls nella radice E: più diversi altri archivi Excel in E:\Uccidi. Orbene l'istruzione Kill "E:\Uccidi\*.*" compie regolarmente la sua missione omicida in entrambi i computer. E con file "presi" tanto dal primo che dal secondo computer.

Il punto è che, per quanto perigliosa, Kill è un'istruzione come tante, e limitarne l'utilizzo creerebbe solo confusioni. Anche perché sarebbe sempre possibile anche dall'umile VBA accedere a DLL di livello più basso che fanno altrettanto.

NOTA – Beninteso stiamo parlando di archivi normali, ossia la maggioranza. E quelli di sistema? Chi ne ha voglia verifichi se sono protetti contro la cancellazione (nel qual caso temo che si possa sempre sproteggerli anche con del codice...).

Il problema mi sembra di capire sta proprio nel muoversi all'interno di una penna che il sistema non riconosce come un hard disk di sua proprietà ....

Provi ad "aggredire" direttamente i file di un pc (c:\percorso) con la kill creata in un altro pc ... È lì che secondo me si perdono i diritti di amministratore....D'altronde se si entra nel profilo guest e da lì si lancia una Kill si viene immediatamente bloccati, a dimostrazione di quanto sostengo.

A parte il fatto che un'insidia proveniente da una banale chiavetta sarebbe comunque una falla imbarazzante, secondo il suo punto di vista, ..."vista" la sua ostinazione ho fatto la prova copiando il file omicida nella radice del disco C: del mio secondo PC. Esso ammazza tranquillamente e senza proteste tutti i file di una C:\percorso, riempita con file sia del primo che del secondo PC, nuovi o vecchi.

Riepilogando, sono due le cose da puntualizzare:

1) gli archivi NON recano nessuna traccia relativa al PC ove sono stati creati e comunque Windows, né credo altri sistemi operativi, fanno distinzioni sull’origine dei file (sarebbe troppo complesso e fonte di confusione);

2) il profilo Guest la trae in inganno; esso è relativo a un ESTRANEO cui pertanto sono vietate operazioni varie (*), ma noi stiamo parlando dell'utente "legittimo", il quale può fare quello che vuole (ci mancherebbe!), a suo rischio e pericolo.

NOTA (*) Anche la copia di file, nei sistemi aziendali ben protetti (ma ci sono sempre le spie e/o gli impiegati "venduti" che cedono le password, perché contro la disonestà non c'è difesa...)

Sia dia pace: nihil novi sub sole e la storia, se riflette, appartiene ai normali casi dell'esistenza. Pensi ai coltellacci da cucina. Le cronache sono piene di uxoricidi o, semplicemente, infortuni compiuti con tale strumenti, indispensabili a macellai come a normali massaie. Sarà opportuno nasconderli ai fanciulli ma di più non si può fare...

Già che ci sono, le descrivo a parole un possibile procedimento maligno che trasforma in spazzatura un certo MioBellArch, utilizzando due file gemelli Spazz e SpazzBis (contenenti porcherie o, magari, file .xls virali):

1. Rinomina MioBellArch => MioBellArchBis

2. Elimina MioBellArchBis (addio, mio bell’addio!)

3. Rinomina Spazz => MioBellArch ("risuscitato” come spazzatura!)

4. Copia SpazzBis => Spazz

Ciclando il procedimento in tutti gli archivi di una o più directory o il disastro sarà completo. Per carità che NESSUNO lo metta in atto!

Sarebbero poi da considerare le insidie facilmente inseribili nelle routine di Excel relative a eventi come Change o SelectionChange. Una macro innocua ma fastidiosa (e facilmente implementabile) potrebbe essere la seguente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Insulti, NumInsult As Integer
    Insulti = Array("Scemo!", "Deficiente!", "Vergognati!")
    NumInsult = UBound(Insulti) + 1
    MsgBox Insulti(Int(Rnd * NumInsult))
    ActiveCell = Insulti(Int(Rnd * NumInsult))
End Sub

che pgni volta che il malcapitato seleziona un'altra cella lo tormenta con messaggi insultanti che vanno anche a sporcare la cella attiva. Anche qui mi raccomando: non speditala nemmeno al vostro capo più antipatico...

NOTA. A volte a me, come ad altri, è capitato di non ricevere e/o di non riuscire a recapitare attachment xls, anche privi di macro. Si tratta palesemente dell’intervento del firewall di un server di posta vicino o remoto, un comportamento censorio antipatico quando idiota. Infatti basta rinominare l’estensione in .zip...

Considerazioni eretiche sugli antivirus

Qui sotto incollo infine una mia replica a un lettore che aveva sollevato lo stesso angoscioso dubbio.

L’istruzione VBA Kill non rappresenta una falla di Windows. Tutti i sistemi operativi hanno istruzioni del genere che sono rispecchiate dai vari linguaggi di programmazione. Eliminarle equivarrebbe a una "censura" che limita le possibilità del s.o. come degli sviluppatori. E ce ne sono altre, meno evidenti, ma ancor più insidiose, ad esempio quelle che sostituiscono con file di contenuto fasullo degli archivi più o meno importanti (catalogati come "sensibili", ovvero vitali per un utente o un'intera azienda).

Il punto è che è l'INFORMATICA E' FRAGILE PER SUA NATURA, altrimenti come potrebbero esistere i virus e il malware? Quanto agli antivirus, si tratta di arnesi che fanno molte promesse, mantenendone pochissime, come dimostrano le ultime inchieste che sanciscono in modo impressionante il loro fallimento. La balla più clamorosa è il vanto dei sistemi "proattivi" o "preventivi", e il caso di istruzioni palesemente pericolose ma che nessun antivirus rileva è solo uno dei tanti. Restando al tema di questo dibattito, basta creare un file xls dotato di macro di auto avvio con eloquenti istruzioni Kill e sottoporlo a un antivirus per rendersi conto che... non fa una piega.

A un'obiezione del genere produttori titolati mi hanno replicato che "prevedere tutto sarebbe troppo costoso e fonte di FALSI POSITIVI". Sarà anche vero ma la conseguenza è che il lavoro principale di tali prodotti consiste nel catalogare le cosiddette "firme" di virus GIA' SCOPERTI, come dire chiudere la stalla quando i buoi sono scappati.

A mio personale parere, infine, almeno per gli utilizzatori singoli ,di fatto i rischi sono esagerati (dalla non disinteressata propaganda dei vari Simantec, Kasperski, McAfee ecc.). Occorre e basta una grande prudenza, eliminando e-mail sospette, visitando siti sicuri e così via. A fronte della scarsa o nulla protezione che tali prodotti offrono rispetto a nuovissimi attacchi nonché del fastidio che danno (rallentamento all'avvio per caricare vagonate di nuove firme - sospetto che alcune siano inventate... -., segnalazione di falsi positivi) e del loro COSTO, io ho deciso di non usarli più!

Ovviamente non sto incitando nessuno a seguirmi su questa strada. Faccia ognuno come

crede e... preghi la Madonna.

Forecasting con l’equazione di Volterra suggerita da Roberto Vacca

Gianni Giaccaglini — Sat, 29 Jan 2011 17:11:00 GMT

Forecasting con l’equazione di Volterra suggerita da Roberto Vacca

Excel è uno strumento formidabile per elaborazioni di tipo statistico, che poi si possono agevolmente graficizzare mediante il tipo “dispersione”. Ricordo qui che esso pone sull’asse x i dati della prima colonna – assunti come valori e non come etichette – e sull’asse y rappresenta i valori della/e altre serie riportate nelle altre colonne. Si parla di “dispersione” proprio perché in molte analisi statistiche si parte con una “nube” di punti sparpagliati dovuti a dati caratterizzati da un “rumore” più o meno marcato e aleatorio e lo scopo è quello di azzeccare con la massima attendibilità possibile la curva che esprime andamento, il trend che tale nube racchiude.

Il caso più ambizioso è quello del forecasting, che punta cioè a prevedere andamenti futuri sulla base dei dati attualmente rilevati. Il notissimo scrittore e divulgatore ing. Roberto Vacca in diverse delle sue molte opere futurologiche ma improntate al massimo rigore scientifico – da Medioevo Prossimo venturo all’ultima Salvare il prossimo decennio – Ed. Garzanti (v. http://www.garzantilibri.it/default.php?page=visu_libro&CPID=2710)

che qui mi sento di suggerire a chi s’interessa di Scienza e Tecnologia e non solo di microinformatica, nonché delle minacce e speranze che incombono su tutti noi.

Su Roberto Vacca nel Web si danno link a iosa e un’ampia voce su Wikipedia. Oltre al sito dell’Autore – www.robertovacca.it – indico poi http://www.printandread.com/ da cui l’ingegnere stesso offre taluni suoi libri scaricabili in formato PDF.

L’equazione di Volterra

Costituisce un leit-motif di Roberto Vacca, che l’ha citata in tutti i suoi testi futurologici, avendola sfruttata con successo in moltissimi casi. In pratica ecco la formula:

y =N/(1+Exp(A*t+B))

che esprime un andamento, direi, simile alla curva di prima magnetizzazione. Ricordate? All’inizio i magnetini elementari seguono “pigramente” la corrente applicata al solenoide, poi si orientano in modo deciso ma alla fine, quando in maggioranza sono ben allineati, danno contribuiti sempre più scarsi, fino alla saturazione. Insomma ne deriva una curva piatta all’inizio che, prima o poi, tende a una saturazione. Non ci vuol molto a cogliere un’analogia col ciclo di vita di nuovi prodotti (il personal computer? Indovinato): all’inizio debbono farsi conoscere, poi hanno successo e forte espansione, ma allo stadio della maturità crescono molto meno.

Volterra ha appunto un andamento del genere con un asintoto finale, e il problema in pratica consiste nel determinare i valori più adatti dei coefficienti N, A e B visti sopra.

Un modellino generico, per gente di buona volontà...

Il compito precedente non dovrebbe presentare difficoltà. Anzi il gentile ing. Vacca ha avuto la bontà di inviarmi delucidazioni al riguardo. Ma al momento ho poco tempo per rinfrescare tali nozioni di statistica... Tuttavia ho pensato ugualmente di creare un modellino introduttivo, che semplicemente rappresenta una funzione di Volterra sulla base, si badi bene, di dati calcolati a partire da determinati valori dei predetti N, A e B e su una scala di tempi anch’essi determinati.

Il modellino scaricabile da http://www.giannigiaccaglini.it/download/Volterra.zip, una volta unzippato l’accluso .xls, si presenta grossomodo così (indicando solo le prime righe):

	A	B	C	D	E
1	N	100
2	A	-0,05		T	V
3	B	3		0	4,742587318
4	Dt	5		5	6,008665017
5				10	7,585818002
6				15	9,53494649
7				20	11,9202922
8				25	14,8047198
9				30	18,24255238
10				35	22,27001388

Nomi delle celle. Sono, guarda caso, N, A, B relativi alle celle B1, B2 e B3. Inoltre Dt (cella B4) sta per Delta-ti e viene utilizzato nel campo intestato T (asse dei tempi) nelle celle sottostanti il valore iniziale 0 con la formula seguente, ricopiata in tutte le celle sottostanti:

=D3+Dt

=D4+Dt

eccetera.

Si ottiene in tal modo un asse dei tempi variabile.

Ed ecco infine la formula, identica in tutte le celle della serie V:

=N/(1+EXP(A*T+B))

La particolarità che forse molti ignorano sta nel fatto che in tale formula T è un nome di tipo relativo, ovvero definito con riferimento privo del dollaro sulla riga (ossia come $D3 in luogo del solito $D$4). Di conseguenza la T della formula aggiusta automaticamente la riga dei riferimenti (di fatto $D4, $D5 ecc.).

Sulla destra del modellino si ha poi un grafico che evidenzia l’andazzo à-la-Volterra, in particolare con quello asintotico finale. E variando i vari parametri lo si può modificare.

Tutto qui? Certo ma in attesa di miei approfondimenti più o meno futuri (a proposito di futurologia...), chi ha voglia si può divertire in uno o entrambi i modi seguenti:

a) inserendo una seconda serie parziale di valori empirici, operando un paziente what-if coi parametri predetti (è quel che ho fatto nella versione AGGIORNATA di Volterra.xls, fino a ottenere una curva che, almeno "a sentimento", si adatta al forecasting presunto (magari con l’ausilio di una macro?);

b) utilizzando le opportune formule per calcolare i valori più idonei di N, A e B.

Se qualcuno è in grado di svolgere il secondo compitino mi scriva: sarò lieto di pubblicare tale soluzione.

giannigiac@tin.it

P.S. Giro a tutti un'utile segnalazione: una particolare implementazione portatile dell'ultima edizione della suite OpenOffice, che ora ha nome LibreOffice. Le innovazioni sono interessanti (anche se le macro VBA coninuano a non essere "sopportate") ma il bello della storia è che a) è tutto compreso in un unico file .exe; b) non occorre più il dannato Registry per cui lo si può sic et simpliciter copiare in una chiavetta USB, portarla in giro e lanciare il programma ovunque! Onore al merito, ovvero ai prof & studenti del sicilianissimo Istituto Majorana.

Tale gioiello si scarica dal link seguente:

http://www.istitutomajorana.it/index.php?option=com_content&task=view&id=1431&Itemid=33

NB - Un piccolo suggerimento NON scegliete l'opzione ESEGUI ma direttamente SALVA. Nel primo caso infatti l'applicativo si apre in modo virtualizzato e funziona!, però se si chiude la sessione sparisce... (oddio forse conviene conservare tale link, da sfruttare fuori sede in casi estremi, se non si ha una chiavetta; o no?).