Posizione da numeri primi

Mike58 · 23 Febbraio 2016

Ciao GiorgioAntonio, scusa ma strada facendo mi vengono dei dubbi.
Io avrei fatto cosi quando il numeroprimo è = 1 trasformalo in 2 e questo interagisce con i calcoli.

ma il numero trovato sarà sempre 1 vedi videata di CA dove i numeroPrini sono 83-1 calcolo 39-2 = 37
Numeri Primi : 1.3.5.7.11.13.17.19.23.29.31.37.41.43.47.53.59.61. 67.71.73.79.83.89 ---> 24
[TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #0000FF, align: center"] Id Data Trovata
[/TD]
[TD="bgcolor: #0000FF, align: center"] Ruota
[/TD]
[TD="bgcolor: #0000FF, align: center"] Estratti
[/TD]
[TD="bgcolor: #0000FF, align: center"] Numeri Primi
[/TD]
[TD="bgcolor: #0000FF, align: center"] Q,Tà
[/TD]
[TD="bgcolor: #0000FF, align: center"] Numeri Lato-Primi
[/TD]
[TD="bgcolor: #0000FF, align: center"] Num Prono
[/TD]
[/TR]
[TR]
[TD="bgcolor: #FFFFFF, align: center"] 02.02.2016
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] BA
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 74.23.36.27.05
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 23.5
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 2
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 74.27
[/TD]
[TD="bgcolor: #00FF00, align: center"] 22.51
[/TD]
[/TR]
[TR]
[TD="bgcolor: #FFFFFF, align: center"] 02.02.2016
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] CA
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 36.83.39.01.35
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 83.2
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 2
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 36.39
[/TD]
[TD="bgcolor: #00FF00, align: center"] 37.47
[/TD]
[/TR]
[TR]
[TD="bgcolor: #FFFFFF, align: center"] 02.02.2016
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] FI
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 56.20.46.70.33
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] [/TD]
[TD="bgcolor: #FFFFFF, align: center"] 0
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] [/TD]
[TD="bgcolor: #00FF00, align: center"] [/TD]
[/TR]
[TR]
[TD="bgcolor: #FFFFFF, align: center"] 02.02.2016
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] GE
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 76.39.52.56.44
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] [/TD]
[TD="bgcolor: #FFFFFF, align: center"] 0
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] [/TD]
[TD="bgcolor: #00FF00, align: center"] [/TD]
[/TR]
[TR]
[TD="bgcolor: #FFFFFF, align: center"] 02.02.2016
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] MI
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 63.89.70.47.16
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 89.47
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 2
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 63.70
[/TD]
[TD="bgcolor: #00FF00, align: center"] 23.26
[/TD]
[/TR]
[TR]
[TD="bgcolor: #FFFFFF, align: center"] 02.02.2016
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] NA
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 63.58.42.80.05
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 5
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 1
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 80
[/TD]
[TD="bgcolor: #00FF00, align: center"] 75
[/TD]
[/TR]
[TR]
[TD="bgcolor: #FFFFFF, align: center"] 02.02.2016
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] PA
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 44.09.25.21.43
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 43
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 1
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 21
[/TD]
[TD="bgcolor: #00FF00, align: center"] 22
[/TD]
[/TR]
[TR]
[TD="bgcolor: #FFFFFF, align: center"] 02.02.2016
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] RO
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 34.36.12.40.42
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] [/TD]
[TD="bgcolor: #FFFFFF, align: center"] 0
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] [/TD]
[TD="bgcolor: #00FF00, align: center"] [/TD]
[/TR]
[TR]
[TD="bgcolor: #FFFFFF, align: center"] 02.02.2016
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] TO
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 73.78.79.87.36
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 79
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 1
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 78
[/TD]
[TD="bgcolor: #00FF00, align: center"] 1
[/TD]
[/TR]
[TR]
[TD="bgcolor: #FFFFFF, align: center"] 02.02.2016
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] VE
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 51.44.76.45.03
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 3
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 1
[/TD]
[TD="bgcolor: #FFFFFF, align: center"] 45
[/TD]
[TD="bgcolor: #00FF00, align: center"] 42
[/TD]
[/TR]
[/TABLE]
Oppure bisogna cercare direttamente il numero 2 come numeroPrimo ?

fammi sapere che in questo caso bisogna veramente ingannare il codice Primo().

Ciao

Mike vorrei dire che il 2 è numero primo mentre uno no. L'ho detto che è una pignoleria.

N.B i Numeri Primi sono quei numeri che sono divisibili solo per se stessi.
Il Numero 2 non è numero primo in quanto è divisibile anche per altri numeri infatti 6:3 =2

giorgioantonio · 23 Febbraio 2016

Ciao Mike, se pensi che sia un matematico o comunque afferrato in matematica, vai tranquillo che non sono nè uno nè l'altro
aggiungendoti che in materia sarei ignorantello.
Inizialmnte ero convinto anch'io che l'uno fosse numero primo e viceversa il 2.
Il sospetto ho chiamato i numeri primi da internet ed ho scoperto che il numero uno non e mentre il 2 è numero primo.
Detto questo, se devi stravolgere tutto il lavor che hai fatto quel numero uno lo possiamo anche ritenere numero primo
che in matematica sia o no corretto a noi che ci... non ci comanda nessuno.
Spero solo che qualche interessato si degni di farti qualche complimento.
FANTASTICO e aggiungo GRAZIE
ciao

Mike58 · 23 Febbraio 2016

Mi tocca riscrivere..... avevo scritto e il forum mi ha cancellato il tutto.

Come puoi leggere la spiegazione dei numeri Primi in matematica è questa.

Poi il programma Spaziometria ed il relativo codice con i 90 numeri conteggia 24 numeri che corrispondono all'elenco scritto in testa al listato.

Neanche io sono un matematico e ne intento, ne voglio anch'io definire diversamente quelli che sono le leggi e le regole fin qui create al gioco del lotto.

Io, se vuoi la mia opinione lascerei che 1 fosse numero primo e visto che anche tu reputi che abbiamo fatto un buon lavoro e una bella tabella, lascerei cosi la tabella ottenuta per l'utilizzo di tutti.

Il tutto lo dico ancora senza presunzione di perfezione.

Fammi sapere intanto ci lavoro come ingannare il codice.

Oggi finalmente riposo con un po' di tempo disponibile.

Ciao

Mike58 · 23 Febbraio 2016

in altra videata e ricerca effettivamente per dare sostegno alla tua tesi viene elencato il numero 2 anziché 1.

Ma secondo la spiegazione di prima questo a me non torna.

apettiamo anche l'opinione di qualche altro volenteroso suggerimento.

Mike58 · 23 Febbraio 2016

Se vuoi il codice Primo è stato ingannato.

Codice:

Sub Main
 Dim Nu(90)
 For Np = 1 To 90
  If Primo(Np) Then
   kn = kn + 1
   Nu(Np) = Np
  End If
 Next
 Scrivi "Numeri Primi Reali    : " & StringaNumeri(Nu) & " ---> " & kn,1
 kn = 0
 ' Numeri primi con 2 anzichè 1
 For Np = 1 To 90
  If Primo(Np) Then
   kn = kn + 1
   Nu(Np) = Np
   If Nu(np) = 1 Then Nu(np) = 2
  End If
 Next
 Scrivi "Numeri Primi Simulati : " & StringaNumeri(Nu) & " ---> " & kn,1
End Sub

fammi sapere quale vuoi

giorgioantonio · 23 Febbraio 2016

Ciao Mike un ottimo lavoro, ora per una sciocchezza puoi lasciar perdere,
tanto che quel -1 non lo vedo poi male, fai come vuoi.
ciao

Mike58 · 23 Febbraio 2016

Tra le tante cose viste, mi sono perso a quale punto siamo, dimmi tu come devo procedere o se il lavoro postato è ok cosi come era.

Se vuoi il tutto con il numero 2 non c'è problema inserisco un if then ed il gioco è servito.

giorgioantonio · 23 Febbraio 2016

Visto che per te è semplicissimo allora completalo, anzi mi terrò le 2 versioni per vedere quale rende di più.
Allora aspetto il completamento.
Ciao

Joe91 · 23 Febbraio 2016

Ciao Mike.

Tempo fa avevo costruito un Crivello di Eratostene ... naturalmente software, andato perso, da un lato,

e di cui alcuno se ne è impossessato, dall'altro. Capita.

Ma, se permetti, ho scritto un programmino "demo" con l'array impostabile dall'utente ...

e nel caso con i "numeri_primi" entro 90 a partire dal 2.

Ho ricopiato l'elenco pari-pari ... a quello pubblicato qui, qualche messaggio sopra.

Codice:

 Sub Main
NP = Split("0.2.3.5.7.11.13.17.19.23.29.31.37.41.43.47.53.59.61.67.71.73.79.83.89",".")
Scrivi StringaNumeri(NP) : Scrivi
For Q = 1 To 100
ColoreTesto 0
N = NumeroCasuale(1,90)
If Presente(N,NP) Then ColoreTesto 2
Scrivi N
Next
End Sub
Function Presente(N,NP)
Presente = False
For X = 1 To UBound(NP)
If N = Int(NP(x)) Then Presente = True
Next
End Function

Penso inoltre che ...

in modo del tutto simile e più comodo ...

si potesse usare PuntiSuArray (anche se non ricordo d'aver visto utilizata questa funzione).

Con questa istruzione è possibile controllare se è il numero analizzato fa "un punto" su quelli presenti in array.

Cordiali saluti

Mike58 · 23 Febbraio 2016

Se vuoi il tutto con il numero 2 non c'è problema inserisco un if then ed il gioco è servito.

Sembrava facile poi mettere tutto o meglio if-Then per la raccolta NumeriPrimi simulati ma poi qualcosa non fa il suo dovere.
Forse mi sfugge qualcosa.

Ci penso un attimo.

X Joe intanto un saluto e un grazie dell'intervento e anche vero che dall'array di comodo puoi valutarne le presenze, ma esitendo il codice apposito ho cercata la via + consona e con un if then trasformare un dato numero in un numero voluto.

Poi perché molte spiegazioni su internet portano il numero 2 come numero Primo se la spiegazione dei numeri primi è un altra.

PuntiSuArray ? si ho provato ad usarlo ma solo per conteggio verifiche che poi è il suo scopo reale.

Resta inteso che tutto è opinabile e tutto si può utilizzare ad oc.

Ciao a tutti

Joe91 · 23 Febbraio 2016

Ok ...

.. io dicevo:

Codice:

Sub Main
	Dim N(1)
	NP = Array(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89)
	ColoreTesto 2 : Scrivi StringaNumeri(NP) : Scrivi
	For Q = 1 To 100
		ColoreTesto 0
		N(1) = NumeroCasuale(1,90)
		If PuntiSuArray(NP,N) = 1 Then ColoreTesto 2
		Scrivi N(1)
	Next
End Sub

Mike58 · 23 Febbraio 2016

Ok Compreso, e se magari non trovo la soluzione per la via da me intrapresa, proverò a mettere ed elaborare la soluzione da te proposta.

Può Venire utile anche per altre soluzioni.

Ciao e grazie del tuo parere ed intervento.

giorgioantonio · 25 Febbraio 2016

Salve JOE91,
chiedo per pura statistica se col primo Sub Main che hai postato è possibile vedere un numero PRIMO quanto ha reso.
Tenendo conto sul numero di estrazioni da considerare.
e facendo le dovute sottrazioni col numero prima del primo oppure del col numero secondo dopo il primo.
Ciao

Joe91 · 25 Febbraio 2016

Ciao ...

Mi spiace ma non ho capito cosa hai chiesto.

Il primo Sub Main, secondo me, è uguale al secondo ...

Ma soprattutto, non riesco, ad interessarmi a questa richiesta.

Il mio intervento intendeva essere solo un suggerimento a Mike per una possibile soluzione,

considerando che, l'istruzione dedicata a questo calcolo non aveva fornito risultati,

per te, soddisfacenti.

Cordiali saluti.

Mike58 · 25 Febbraio 2016

Ciao, ho voluto preparare lo stesso script dei numeri primi con un array creato ad oc, non senza difficoltà e anche se non sono molto soddisfatto del risultato riassuntivo lo posto lo stesso.

Secondo il mio parere lo script iniziale dei NumeriPrimi Reali è migliore, ma lo script puo servire per valutare numeri immessi a scelta propria.

Per quanto mi riguarda si volta pagina lasciando agli utenti l'uso e le correzioni di propria esigenza.

Codice:

Sub Main
 'Dim
 Np = Array(0,2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89)
 Scrivi StringaNumeri(Np),1,,,1
 Scrivi "Numeri in Array : " & UBound(Np),1,,,2
 'Nu = Split("0," & NP,",")
 Ini = EstrazioneFin - 10
 fin = EstrazioneFin
 For es = Ini To fin
  t = Array(t,"Ruota","estratti","Numeri Array","Num Array Prec","Numeri diff")
  Call InitTabella(t,1,,2,5)
  For r = 1 To 10
   For p = 2 To 5
    a = Estratto(es,r,p)
    b = Estratto(es,r,p - 1)
    'Next
    For x = 1 To UBound(np)
     If a = Np(x) Then
      k = k + 1
      kk = kk + 1
      ReDim Preserve Nprimi(k)
      Nprimi(k) = a
      bb = Differenza(Nprimi(k),b)
      ReDim Preserve NprimiTot(kk)
      NprimiTot(kk) = bb
      If k > 0 Then
       v = Array(v,SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(Nprimi,,1),b,bb)
       Call AddRigaTabella(v)
      End If
     End If
     k = 0
    Next
   Next
  Next
  CreaTabella
  Scrivi String(160,"=")
  aa = NumeriRipetuti(NprimiTot)
  EliminaRipetuti(NprimiTot)
  Scrivi StringaNumeri(NprimiTot) & "    Tot.. " & kk - aa
  Scrivi String(160,"=")
  kk = 0
  ImpostaArchivio10ELotto(1)
  ess = es + 1
  exx = es + 10
  For xx = ess To exx
   Call VerificaEsitoDL(NprimiTot,xx,1,1,esito,clp,est1,id1)
   Scrivi xx & vbTab & GetInfoEstrazioneDL(id1) & vbTab & est1 & vbTab & esito
  Next
  Scrivi String(160,"=")
  Scrivi
 Next
End Sub

Mike58 · 26 Febbraio 2016

Sono riuscito a mettere in modo corretto i numeri in Array accorpandoli con il Redim Preserve, la situazione non cambio in termini di gioco
dato che lo script è stato fatto ex-novo mancano le scelte in input box ed il controllo spoglio verifica agisce solo su 10 e lotto serale.

Il Mio scopo non è verificare un metodo ma rendere possibile un progetto in script.

L'array numeri e adattabile per ogni verifica che si voglia fare, semplicemente cambiando l'array numeri.

Codice:

Sub Main
 'Dim
 Np = Array(0,2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89)
 Scrivi "Numeri scelti....  : ",1,0
 Scrivi StringaNumeri(Np),1,,,1
 Scrivi "Numeri in Array : " & UBound(Np),1,,,2
 'Nu = Split("0," & NP,",")
 Ini = EstrazioneFin - 10
 fin = EstrazioneFin
 For es = Ini To fin
  t = Array(t,"Ruota","estratti","Numeri Array","Num Array Prec","Numeri diff")
  Call InitTabella(t,1,,2,5)
  For r = 1 To 10
   For p = 2 To 5
    a = Estratto(es,r,p)
    b = Estratto(es,r,p - 1)
    'Next
    For x = 1 To UBound(np)
     If a = Np(x) Then
      k = k + 1
      kp = kp + 1
      kd = kd + 1
      kk = kk + 1
      ReDim Preserve Nprimi(k)
      Nprimi(k) = a
      ReDim Preserve Nprimiprec(kp)
      Nprimiprec(kp) = b
      ReDim Preserve Ndiff(kd)
      bb = Differenza(Nprimi(k),b)
      Ndiff(kd) = bb
      'bb = Differenza(Nprimi(k),b)
      ReDim Preserve NprimiTot(kk)
      NprimiTot(kk) = bb
     End If
    Next
   Next
   If k > 0 Then
    v = Array(v,SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(Nprimi,,1),StringaNumeri(Nprimiprec,,1),StringaNumeri(Ndiff,,1))
    Call AddRigaTabella(v)
   End If
   If k = 0 Then    
   v = Array(v,SiglaRuota(r),StringaEstratti(es,r),"","","")
    Call AddRigaTabella(v)
   End If
   k = 0
   kp = 0
   kd = 0
  Next
  CreaTabella
  Scrivi String(160,"=")
  aa = NumeriRipetuti(NprimiTot)
  EliminaRipetuti(NprimiTot)
  Scrivi StringaNumeri(NprimiTot) & "    Tot.. " & kk - aa,1,1,,1,3
  Scrivi String(160,"=")
  kk = 0
  ImpostaArchivio10ELotto(1)
  ess = es + 1
  exx = es + 10
  For xx = ess To exx
   Call VerificaEsitoDL(NprimiTot,xx,1,1,esito,clp,est1,id1)
   Scrivi xx & vbTab & GetInfoEstrazioneDL(id1) & vbTab & est1 & vbTab & esito
  Next
  Scrivi String(160,"=")
  Scrivi
 Next
End Sub

Ciao

giorgioantonio · 26 Febbraio 2016

Ciao Mike ti volevo dire che è importante che si possa scegliere i colpi di gioco e se ti va implementa anche sottrazione dopo
il numero primo.
Ma ti dico anche che sei grande.
Io non me ne intendo ma vedo che hai ridotto all'osso la struttura dello script cioè l'hai raccolto in pochissime righe.
Sempre salute e saluti.
Ciao

Joe91 · 27 Febbraio 2016

Ciao Mike.

Ho letto lo script presente al messagio #56 ed esso rappresenta sia evuluzione che una involuzione.

Comunque sia ... penso tu abbia fatto un buon lavoro. Bravo.

Tuttavia chi lo userà ... se non se lo è scritto ... è perchè non ci azzecca molto.

Pertanto è assai probabile che egli pensi che quello "zero" in imput ...

sia o un errore, o un qualcosa di inutile... o un qualcosa di dimenticato, uno sbaglio.

Probabilmente, non lo inserirà quando andrà a modificare lo script

per testare nuove formazioni come hai suggerito fiutando il businness.

Tanto meno, dopo non essersi preso la briga di imparare a gestire correttamente lo script ...

controllando i risultati ... finirà per affermare che....

lo script (diversamenente giusto) non funziona bene.

Lunga e doverosa premessa per scriverti e consigliarti alcune piccolissime modifiche

che ti riporto in ordine cronologico

nelle 3 linee interessate nella gestione globale delle variazioni:

Codice:

  Np [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#0000c0]Array[/COLOR][/B](2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89)
  
  [B][COLOR=#800080]Scrivi[/COLOR][/B] "[COLOR=#ff8000]Numeri in Array : [/COLOR]" [B][COLOR=#ff0000]&[/COLOR][/B] [B][COLOR=#0000c0]UBound[/COLOR][/B](Np)[B][COLOR=#ff0000]+[/COLOR][/B]1,1,,,2
  
  [B][COLOR=#0000c0]For[/COLOR][/B] x [B][COLOR=#ff0000]=[/COLOR][/B] 0 [B][COLOR=#0000c0]To[/COLOR][/B] [B][COLOR=#0000c0]UBound[/COLOR][/B](Np)

Cordiali saluti

giorgioantonio · 27 Febbraio 2016

Salve Mike, stavo tentando di fare delle statistiche col tuo ultimo elaborato ma mancando gli input necessari non si può fare.
Per esempio scegliere quante estrazioni prendere in considerazione, per esempio ho lasciato solo un numero primo nell'Arry
ma mi dava errore.
Mi spiego cosa avrei voluto ottenere:
capire qual'è il numero primo non solo più frequente ma dalla operazione che fa cosa rende ai fini del 10elotto,
cioè cioè numero primo più frequente il cui numero che si ottiene quanto rende col 10elotto (serale).
Siccome dovrebbe essere un pò complicato chiedo che a questo elaborato si potesse stabilire su quante
estrazioni fare la ricerca e utilizzare a rotazione un solo numero nell'Arry.
Ciao

Mike58 · 27 Febbraio 2016

Ciao Joe, grazie per i complimenti, poi fatti da un maestro preso ad esempio copiato ed imitato,fanno ancor di più Piacere.
Si ho compreso il tuo appunto e suggerimento e mi auguro che anche altri ne facciano tesoro.

Ciao giorgioantonio, sicuramente si può rifinire e definire nei dettagli il tuo progetto, tempo e lucidità necessaria permettemdo.
cerco di capire e come sempre vedremo di capirci.

Ciao

Posizione da numeri primi

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<