Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Tom scusa per l'intromissione,
puoi chiedere per mio conto una cosa?
Mi indichi una tecnica vincente per le lotterie?
Grazie.
Sto cercando di ovviare al problema della apparente incomunicabilità tra i due ambienti R e CONDA (anaconda) riferendomi solo al secondo con tutti i pacchetti python richiesti installati.. Vi farò sapere...
import pandas as pd
from sklearn.cluster import KMeans
from sklearn.impute import SimpleImputer
# Carica i dati dal file txt
data = []
with open("filediesempio.txt", "r") as file:
for line in file:
values = line.strip().split(".")
values = [float(x) for x in values if x.strip() != ""]
data.append(values)
# Crea un DataFrame dai dati
data = pd.DataFrame(data)
# Gestisci i valori mancanti
imputer = SimpleImputer(strategy="mean")
data = pd.DataFrame(imputer.fit_transform(data))
# Crea un oggetto KMeans con il numero di cluster desiderato
n_clusters = 5
kmeans = KMeans(n_clusters=n_clusters, random_state=42)
# Esegue il clustering sui dati
kmeans.fit(data)
# Aggiunge le etichette dei cluster al DataFrame dei dati
data["Cluster"] = kmeans.labels_
# Calcola gli errori totali e medi per ogni cluster
data["Total Error"] = data.sum(axis=1)
data["Average Error"] = data.mean(axis=1)
# Seleziona il miglior cluster per errori totali
best_cluster_total_error = data.loc[data["Total Error"].idxmin()]
# Seleziona il miglior cluster per errori medi
best_cluster_avg_error = data.loc[data["Average Error"].idxmin()]
# Stampa i risultati
print("Miglior cluster per errori totali:")
print(best_cluster_total_error)
print()
print("Miglior cluster per errori medi:")
print(best_cluster_avg_error)
Dove occorre andare per iscriversi a CGPT ? CiaoSe la si prende così di punta... si ritira subito...
Vedi l'allegato 2261846
Dopo che hai fatto la registrazione gratuita se vuoi rifarle domande simili... ti consiglio di prenderla molto più alla larga...
Dove occorre andare per iscriversi a CGPT ? Ciao
Ciao Tom
Se non ricordo male anche tu hai dovuto cambiare PC ultimamente.
Se possibile ,potresti dirmi cosa hai preso e come ti trovi?
Non farò mai più elaborazioni lunghe ore xhe mi hanno bruciato la scheda madre, ma volevo capire più o meno le tempistiche .
Grazie
esaminiamo le varie sorti di ricerca che possono essere valori interi da 1 a 5
valore 1 esempio fittizio
formazione generata da tabella 01.02.03 formazione presente nel file txt 01.22.30 sorte verificata perchè è presente almeno un valore comune... il ritardo va a 0
formazione generata da tabella 01.02.03 formazione presente nel file txt 01.22.02 sorte verificata perchè è presente almeno un valore comune... il ritardo va a 0 perchè sono presenti sia lo 01 che lo 02 in entrambe le formazioni analizzate
formazione generata da tabella 01.02.03 formazione presente nel file txt 01.02.03 sorte verificata perchè è presente almeno un valore comune... il ritardo va a 0 perchè sono presenti sia lo 01 che lo 02 che lo 03 in entrambe le formazioni analizzate
analogamente per la sorte 2,3,4,5 dove però le minime presenze rilevate in entrambe le formazioni analizzate di volta in volta devono essere rispettivamente 2,3,4,5
dimmi se non sono stato chiaro e come potrei cercare di spiegarti il significato di sorte di ricerca in altro modo
Grazie per l'esempio dettagliato. Ora ho una comprensione chiara di come dovrebbe funzionare la "sorte di ricerca al lotto" nello script. Ti spiegherò come puoi aggiungere questa funzionalità all'interno dello script.
Dovrai apportare alcune modifiche alla funzione analyze_formations per gestire la "sorte di ricerca al lotto". Ecco un'implementazione aggiornata della funzione:
Nella funzione aggiornata, ho aggiunto un nuovo parametro batch_sort che rappresenta la "sorte di ricerca al lotto" desiderata. All'interno del ciclo for che analizza le formazioni, verifichiamo se il numero di valori comuni tra la formazione generata e la formazione nel file di testo è maggiore o uguale alla batch_sort. Se ciò è vero, aggiorniamo il ritardo, incrementiamo la frequenza e teniamo traccia del ritardo massimo.
Ora puoi utilizzare la funzione analyze_formations aggiornata nel resto dello script. Quando chiami questa funzione, passa il valore corretto per il parametro batch_sort in base alla "sorte di ricerca al lotto" che desideri applicare.
Spero che questo chiarisca il concetto di "sorte di ricerca al lotto" e ti aiuti a modificare lo script di conseguenza. Fammi sapere se hai altre domande o dubbi!
È chiaro che ha generato la funzione.Aggiornamento "love story"
Dopo svariati tentativi... sono riuscito a farle capire ed implementare il concetto di ritardo per varie classi e sorti e la frequenza ma quest'ultima solo per la sorte di estratto...
ecco la chat o per meglio dire "prompt" con cui sono riuscito infine a farle apprendere il concetto di ritardo:
È chiaro che ha generato la funzione.
Questa funzione diventa di pubblico dominio (mi riferisco al costrutto della stessa) e quindi ha imparato un concetto di freq. è ritardo per il lotto. In sintesi hai trovato il "sostituto di Luigi"
Scansafatiche
Gli passi una tua lunghetta e un estrazione e conti .
Scrivigli in pseudo codice.
In pratica l AI impara dagli esempi.
Fagli degli
Option Explicit
Sub Main
'Semplicissimo scriptino per visualizzare sempre in modo aggiornato le "ultime TOTA estrazioni del lotto".
'Nel caso si necessiti di visualizzarne di più basta ovviamente cambiare il valore ESTRAZIONEINI con il + confacente (es. per le ultime 100 estrazioni basterà spostare la relativa barra sulle ultime 100 ecc...)
Dim es
Dim ruota
Dim Inizio
Inizio = EstrazioneIni 'EstrazioneFin - 1800 'EstrazioneFin - 18 ' - EstrazioneFin-1
'For es = Inizio To EstrazioneFin
For es = EstrazioneFin To Inizio Step - 1 'EstrazioneFin step -1
'Scrivi
'Scrivi "Estrazione del " & GetInfoEstrazione(es)
'Scrivi
For ruota = 6 To 6 ' in questo caso la ruota 6 è NAPOLI ma ovviamente si può generare l'archivio per la ruota o ruote volute cambiando il relativo numero...
If ruota = 11 Then
ruota = 12
End If
'Scrivi "ruota " & NomeRuota(ruota) & "-" & StringaEstratti(es,ruota,".")
Scrivi StringaEstratti(es,ruota,".") & "." & " " & "." & " " & "." & " " & "." & " " & "." & " " & "." & " "
If ScriptInterrotto Then Exit For
Next 'x ruota
If ScriptInterrotto Then Exit For
Next ' x es
End Sub
# Installa i pacchetti necessari se non sono già installati
if (!require(readr)) {
install.packages("readr")
}
if (!require(dplyr)) {
install.packages("dplyr")
}
if (!require(tidyr)) {
install.packages("tidyr")
}
# Carica i pacchetti
library(stringr)
library(readr)
library(dplyr)
library(tidyr)
# Percorso del file txt
file_path <- "filediesempio.txt"
# Leggi le righe dal file
lines <- readLines(file_path)
# Crea un dataframe vuoto per i dati
data <- data.frame()
# Estrai i numeri dalle righe valide
for (line in lines) {
numbers <- str_extract_all(line, "\\d+")[[1]]
if (length(numbers) == 5) {
data <- rbind(data, as.numeric(numbers))
}
}
# Assegna i nomi alle colonne
colnames(data) <- c("Num1", "Num2", "Num3", "Num4", "Num5")
# Esegui K-means multiple volte e salva tutte le soluzioni
num_clusters <- 5
results <- list()
best_error <- Inf
for (i in 1:10) {
# Esegui K-means con configurazione iniziale casuale
set.seed(i)
clusters <- kmeans(data, centers = num_clusters)
# Calcola l'errore totale e l'errore medio
total_error <- sum(sqrt(rowSums((data - clusters$centers[clusters$cluster, ])^2)))
average_error <- total_error / nrow(data)
# Aggiorna i risultati migliori
if (average_error < best_error) {
best_error <- average_error
best_clusters <- clusters
}
# Salva il risultato corrente
results[[i]] <- list(clusters = clusters, total_error = total_error, average_error = average_error)
}
# Stampa tutte le soluzioni ottenute
cat("Soluzioni ottenute:\n")
for (i in 1:length(results)) {
cat("Soluzione", i, "\n")
cluster <- round(results[[i]]$clusters$centers[1, ])
cat(paste(cluster, collapse = "\t"), "\n")
cat("TotalError:", results[[i]]$total_error, "\n")
cat("AverageError:", results[[i]]$average_error, "\n\n")
}
# Stampa la soluzione teoricamente ottimale
cat("Soluzione teoricamente ottimale:\n")
cluster <- round(best_clusters$centers[1, ])
cat(paste(cluster, collapse = "\t"), "\n")
cat("TotalError:", best_error, "\n")
cat("AverageError:", best_error, "\n")