SPAZIOMETRIA di Luigi e Baffoblu 12° POST

[fillotto]

quote:Originally posted by elephantbig

Mò andiamo alla fonte.

x FILLOTTO

Ciao Fill,
svelaci l'arcano mistero.
Come fai ad avere la versione 1.1.63 se Luigi non l'ha ancora
fatta ??????
Ciao e buona domenica
PS. Ehi Fill non te la prendere se stasera la magica Roma se ne torna da Palermo con 2 Cannoli nel sacco

Io con la versione 1.1.63 non centro niente, molto più semplicemente
non vi siete accorti che quello è un post di provenienza Luigi? evidentemente sta preparando l'ennesimo aggiornamento e sta aspettando di aggiunere qualcosa
Me la dovrei prendere se la magica Roma se ne torna da Palermo con 2 Cannoli nel sacco ?!? MAGARI che tu possa essere esaudito !!
Io so della LAZIOOOOOO !!!! (come Luigi) "Lazio 1900 Quelli che hanno portato il calcio a Roma" Roma 1927 ...pfui!!!!
Piuttosto io se fossi in voi mi proteggerei con amuleti potentissimi
solo per curiosità vai su google e digita : "rigore per la roma"
= Circa 735.000 risultati è un tormentone che circola sul Web
un abbraccio fill
P.S. FORZA PALERMO !!!

 

[LuigiB]

ATTENZIONE VERSIONE 1.1.63


http://www.hotshare.net/file/335835-38303370f0.html




In questa versione

- ho inserito la funzione filtro che mi ha suggerito rubino (libera interpretazione ) sia sugli estratti che sugli ambi

- ho aggiunto altre funzioni allo spazioscript che consentono di ottenere dellefigure spaziometriche tramite script sull'archivio letto dal file di testo. Allego un esempio di codice valido per questa nuova versione del programma

 Sub Main

	Dim sFile
	Dim collFig
	Dim CollPar
	Dim clsFig
	
	Dim sFilefigura
	
	sFilefigura = GetDirectoryAppData & "Strutture\varie\cubo3.dat"
	

	sFile = GetDirectoryAppData & "Estrazioni.txt"
	
	
	Call CreafileCasuale(sFile,100,7,49)
	
	If ApriBaseDatiFT(sFile,7,",") Then
	
		ReDim aQuadro(30,7)
		Call AlimentaQuadroNumeri(aQuadro)
		'Call ScriviQuadro(aQuadro)
		Call GetCollFiguraUtenteQN(aQuadro,sFilefigura,collFig)
		
		
		Call GetCollParallelepipediQN(aQuadro,CollPar)
		For Each clsFig In collFig
			Call DisegnaFiguraSpaziometricaQN(aQuadro,clsFig)
			
		Next
		For Each clsFig In CollPar
			nfatte = nfatte + 1
			Call DisegnaFiguraSpaziometricaQN(aQuadro,clsFig)
			Call AvanzamentoElab(1,CollPar.count,nfatte)
			If nfatte = 100 Then Exit For
		Next
		

	End If
		

End Sub
		
		
Sub ScriviQuadro(aQuadro)
	Dim k
	Dim s
	
	For k = 1 To UBound(aQuadro)
		s = ""
		For e = 1 To UBound(aQuadro,2)
			s = s & Format2(aQuadro(k,e)) & " "
		Next
		Call Scrivi(s)
		
	Next
End Sub
Sub AlimentaQuadroNumeri(aQuadro)

	Dim k
	Dim riga
	Dim e
	
	For k = EstrazioniArchivioFT -(UBound(aQuadro) - 1) To EstrazioniArchivioFT
		If k > 0 Then
			riga = riga + 1
			For e = 1 To UBound(aQuadro,2)
				aQuadro(riga,e) = EstrattoFT(k,e)
				
			Next
			
		End If
	Next
End Sub
Sub CreafileCasuale(sFile,EstrDaGenerare,classe,MaxNumEstraibile)

	Dim k
	
	Call EliminaFile(sFile)
	
	For k = 1 To EstrDaGenerare
		Call ScriviFile(sFile,"0,0," & GeneraColonnaCasuale(classe,MaxNumEstraibile))
		
	Next
	

		
End Sub

Function GeneraColonnaCasuale(classe,MaxNumEstraibile)


	Dim nEstratti
	Dim n
	Dim sRet
	
	
	ReDim aColonna(MaxNumEstraibile)	

	Do While nEstratti < classe
		n = NumeroCasuale(1,MaxNumEstraibile)
		If aColonna(n) = False Then
			aColonna(n) = True
			sRet = sRet & Format2(n) & ","		
			nEstratti = nEstratti + 1
			
		End If
		
	
	Loop
	GeneraColonnaCasuale = Left(sRet,Len(sRet) - 1)
	
	


End Function

Un saluto

 

[imported_n/a]

Ciao LuigiB, grazie

vorrei fare una domanda, che forse hanno fatto in passato ma me la sono persa... (credo)

a riguardo i frattali......

 

[fillotto]

Ciao Luigi ho iniziato l'operazione pulizia ho disistallato in modo automatico la 1.1.61 ho fatto la ricerca e mi è rimasta questa roba

In particolare tutte quei file in C WINDOWS/Prefetch li tolgo tutti ?
e Programmi/SpazioMetria/Rollback tolgo?

 

[elephantbig]

Yes,Fill,elimina tutto

 

[peppe60]

grazie luigi

 

[peppe60]

ollora se ho capito bene x esempio se qualcuno bravo capace di fare listati potrebbe fare un listato x i frattali?
speriamo di si ciao

 

[fillotto]

quote:Originally posted by elephantbig

Yes,Fill,elimina tutto

Niente da fare inizio :15/07/1939 ma dove cacchio lo va a trovà?
non si schioda neanche con il cacciacopertoni!! fine giusto: 27/11/2010 incazzato nero

 

[solare]

Un grazie Luigi
anche per quest'ultimo aggiornamento......!!

Ciao e buona serata

 

[LuigiB]

Fil fai cosi

1) apri il programma spaziometria
2) clicca sul primo menu e la voce APRI DIRECTORY DATI
3) nella finestra che si apre (è espolora risorse) fai seleziona tutto
4) clicca col destro e fai elimina tutto (cosi cancelli tutti i file dati del programma)
5) chiudi il programma spaziometria
6) vai a cancellare a mano la cartella c:\programmi\spziometria
7) reinstalla il programma daccapo

 

[LuigiB]

quote:Originally posted by peppe60

ollora se ho capito bene x esempio se qualcuno bravo capace di fare listati potrebbe fare un listato x i frattali?
speriamo di si ciao

si è possibile , le istruzioni per disegnare sul quadro estrazionale ci sono quindi si possono utilizzare .
Il fatto è che i frattali innanzi tutto bisogna vedere cosa sono...
ma comunque si è possibile.

 

[imported_n/a]

come fai a dire che è possibile se on sai nemmeno cosa sono?

 

[peppe60]

i frattali sono xme' i piu' belli , quelli che fa l'amico cablat su questo forum e' un artista non ho mai capito come riesce avra' un dono di natura ciao

 

[LuigiB]

a prescindere da cosa sono posso affermare tranquillamente che è possibile disegnarli in quanto le funzioni per disegnare sul quadro estrazionale attraverso gli script ci sono, sono astratte e quindi valide per essere usate da qualche scripter di talento , se ti dovessi ritenere tra questi...

 

[imported_n/a]

gli script

si potrebbero essere facili

ma non conosco le funzioni da applicare


comunque ti correggo... i fratti non possono essere disegnati nel quadro estrazionale

per alcuni motivi ed alcune regole matematiche

 

[LuigiB]

Io correggo te ! Se qualcuno riesce a disegnarli a mano si possono disegnare pure attraverso le apposite funzioni
dello spazioscript che ti puoi studiare nell'help e anche guardando i numerosi esempi presenti nella directory test.
Evidentemente quello che manca è l'algoritmo per cercarli ...io non sono un matematico e non mi piace parlare di cose che non conosco e a cui molto probabilmente si fa riferimento in modo inappropriato.

 

[LuigiB]

ATTENZIONE VERSIONE 1.1.64


http://www.hotshare.net/file/335977-5768709076.html


ho fatto alcune ottimizzazioni... non è indispesabile aggiornare volendo potete aspettare pure il prossimo aggiornamento ma per evitare che poi qualcuno mi chieda che fine ha fatto la versione 1.1.64 se avessi messo direttamente la prossima volta la vers 1.1.65 ho preferito pubblicare anche questa complialazione della 1.1.64





Un saluto

 

[elephantbig]

X FILLOTTO
ciao caro Fill,come vedi ti abbiamo accontentato

PALERMO - ROMA
3 (cannoli) - 1 (cannolo)

In questo caso abbiamo applicato la promozione:
PRENDI TRE PAGHI 1

 

[oruam]

un saluto a tutti,
un grazie infinito a Luigi.

quote:Originally posted by Morfeo

gli script

si potrebbero essere facili

ma non conosco le funzioni da applicare


comunque ti correggo... i fratti non possono essere disegnati nel quadro estrazionale

per alcuni motivi ed alcune regole matematiche

morfeo,visto che anche tu ,tieni particolarmente a questo argomento,puoi dare una "mano" al programma.Le funzioni da applicare hai detto di non conoscerle,ma quelle matematiche si,puoi quindi tentare di fare un approccio o un implementazione,se c'è da correggere sicuramente interverranno altri big

 

[Debora73]

Ciao Luigi,
con Spaziometria è possibile ricercare le decine naturali (per ambo) scompensate?
E se si,come si fa?
Grazie ciao