E ora tocca a Marini

Ma far cosa?
Ma ci pensate? "consultazioni"...
Sentirsi dire da un Pierferdy (come dice la Littizzetto) che "ora" non c'è più spazio per un accordo trasversale sulla legge elettorale...mentre due giorni prima vantava la propria eterna coerenza nell'affermare che "è necessario un governo di transizione per risolvere il gravoso problema della legge elettorale".
Eppure essendo super partes (il Presidente del Senato), non potrà che ascoltare e basta...avete presente quando il nervosismo fa venire gli spasmi al retto? Si si al retto...non avete mai provato a mettere un filo di cotone nella cruna di un ago e non ci riuscite e ad un tratto sentite quel nervosismo spasmodico?
Ecco ci si dovrà sentire così ad essere super partes innanzi a cotanta ipocrisia e indegnità...

Un sentimento...ritratto

Niente parole per un sentimento d'amore che può essere descritto da questa mia foto.

Cartella condivisa

Ho creato una cartella condivisa a questo link.

Di seguito, invece, tre post della cartella.

You_and_Me.mp3
Dracula_And_Friends.mp3
Only for you Archi.mp3

Di seguito un meccanismo da me scritto semplice (sicuramente ottimizzabile), per il calcolo della complessità di una password digitata, il meccanismo di calcolo è semplicemente basato sulle disposizioni con ripetizione di N elementi presi a K a K, mentre la scala è basata su decibel :) . Viene dato un peso notevolmente basso alle password contenenti un solo carattere ripetuto, password banalissima da individuare e caso limite da escludere dalle disposizioni con ripetizione.


Procedure CheckPassword(Const aMaxChars : Integer;
Const aPassword: String;
Var aMinDecibelValue,
aCurrentDecibelValue : Real );
Const
cRipetitionValue = 100;

Type
cChars = (ccLowCaseChars,ccUpCaseChars,ccNumbers,ccSymbols1,ccSymbols2,ccSymbols3,ccSymbols4);
cSet = Set Of cChars;

Var
lFirstChar : Char;
lSameChars : Boolean;
lKElements,
I : Integer;
lNElements,
lExtinguishingIndex,
lCurrentValue,
lMaxValue : Real;
lSet : cSet;
begin
lKElements:=Length(aPassword);
lMaxValue:=Power((255-32),aMaxChars);
aMinDecibelValue:=Log10((1/cRipetitionValue) / lMaxValue);
lSet:=[];
If lKElements>0 Then
Begin
lSameChars:=True;
lFirstChar:=aPassword[1];
For I:=1 To lKElements Do
Begin
If lSameChars Then
If aPassword[I]<>lFirstChar Then lSameChars:=False;
// Ricerca dei gruppi di caratteri presenti nella password
Case Ord(aPassword[I]) Of
32..47 : If Not (ccSymbols1 In lSet) Then lSet:=lSet+[ccSymbols1];
48..57 : If Not (ccNumbers In lSet) Then lSet:=lSet+[ccNumbers];
58..64 : If Not (ccSymbols2 In lSet) Then lSet:=lSet+[ccSymbols2];
65..90 : If Not (ccUpCaseChars In lSet) Then lSet:=lSet+[ccUpCaseChars];
91..96 : If Not (ccSymbols3 In lSet) Then lSet:=lSet+[ccSymbols3];
97..122 : If Not (ccLowCaseChars In lSet) Then lSet:=lSet+[ccLowCaseChars];
123..254 : If Not (ccSymbols4 In lSet) Then lSet:=lSet+[ccSymbols4];
End;
End;
lNElements:=0;
If (ccNumbers In lSet) Then lNElements:=lNElements+10;
If (ccUpCaseChars In lSet) Then lNElements:=lNElements+26;
If (ccLowCaseChars In lSet) Then lNElements:=lNElements+26;
If (ccSymbols1 In lSet) Then lNElements:=lNElements+16;
If (ccSymbols2 In lSet) Then lNElements:=lNElements+7;
If (ccSymbols3 In lSet) Then lNElements:=lNElements+6;
If (ccSymbols4 In lSet) Then lNElements:=lNElements+132;
lExtinguishingIndex:=1;
If lSameChars Then
// Disposizioni con ripetizione di N elementi a 1 a 1
lCurrentValue:=lNElements*2
Else
// Disposizioni con ripetizione di N elementi a k a k
lCurrentValue:=Power(lNElements,lKElements)*lExtinguishingIndex;
// Calcolo su scala logaritmica
aCurrentDecibelValue:=Log10(lCurrentValue/lMaxValue);
If aCurrentDecibelValue
Else If aCurrentDecibelValue>0 Then aCurrentDecibelValue:=0;
End
Else
aCurrentDecibelValue:=aMinDecibelValue;
// Inversione scala logaritmica
aCurrentDecibelValue:=(-1*aMinDecibelValue)+aCurrentDecibelValue;
End;

Cuffia da studio

E' inutile...le cose buone sono sempre le stesse. Avevo acquistato tempo fa una cuffia Sennheiser da studio per le mie registrazioni, ma sentivo sempre la grande differenza tra i monitor e la cuffia...in peggio però, quindi basta : AKG K271 e il problema è risolto.
Risposta in frequenza da 16Hz a 28Khz, la nitidezza del suono è pari a quella di una foto scattata con un 50mm F/1.4 a 22 mpx.