-
Originally Posted by clips
list of picks ranked by popularity would be interesting, cheers
Ferg did this a few posts back ...good effort by Ferg
ATM the most popular by far
“ At the top of every bubble, everyone is convinced it's not yet a bubble.”
-
Originally Posted by winner69
Ferg did this a few posts back ...good effort by Ferg
ATM the most popular by far
It can't possibly go lower can it?
Safe pick for the competition.
Put my own money on it .... lets just see how this month pans out.
-
Thanks winner Here is the full list. Picks is total picks 1 to 6. Backups is the number of times that stock code was pick #6.
Code |
Picks |
BackUps |
Rank |
ATM |
137 |
12 |
1 |
OCA |
117 |
8 |
2 |
PEB |
92 |
5 |
3 |
PX1 |
82 |
8 |
4 |
MFT |
77 |
10 |
5 |
HGH |
70 |
10 |
6 |
EBO |
66 |
12 |
7 |
IFT |
64 |
10 |
8 |
SKT |
60 |
3 |
9 |
FPH |
58 |
6 |
10 |
AIR |
43 |
14 |
11 |
HLG |
38 |
8 |
12 |
STU |
35 |
4 |
13 |
ZEL |
35 |
8 |
13 |
PPH |
33 |
4 |
15 |
FBU |
32 |
7 |
16 |
IKE |
32 |
3 |
16 |
AIA |
31 |
6 |
18 |
ARV |
31 |
7 |
18 |
SKO |
30 |
6 |
20 |
BLT |
28 |
7 |
21 |
RYM |
28 |
3 |
21 |
SPK |
28 |
8 |
21 |
AFT |
26 |
11 |
24 |
KPG |
25 |
5 |
25 |
ERD |
24 |
4 |
26 |
SML |
24 |
5 |
26 |
VGL |
24 |
3 |
26 |
FRE |
22 |
3 |
29 |
KMD |
22 |
6 |
29 |
THL |
22 |
6 |
29 |
APL |
20 |
1 |
32 |
SUM |
19 |
4 |
33 |
TWR |
19 |
3 |
33 |
WBC |
17 |
4 |
35 |
ANZ |
16 |
7 |
36 |
CVT |
16 |
2 |
36 |
SAN |
16 |
3 |
36 |
SKC |
16 |
2 |
36 |
GNE |
15 |
7 |
40 |
MPG |
15 |
3 |
40 |
NZO |
15 |
1 |
40 |
POT |
15 |
5 |
40 |
SKL |
15 |
8 |
40 |
CDI |
14 |
3 |
45 |
ALF |
13 |
2 |
46 |
MCY |
13 |
3 |
46 |
EVO |
12 |
2 |
48 |
GTK |
12 |
1 |
48 |
MCK |
12 |
2 |
48 |
RAK |
12 |
1 |
48 |
TLT |
12 |
2 |
48 |
WHS |
12 |
2 |
48 |
MEL |
11 |
2 |
54 |
SCL |
11 |
4 |
54 |
TRU |
11 |
0 |
54 |
WDT |
11 |
0 |
54 |
ARB |
10 |
2 |
58 |
BRM |
10 |
2 |
58 |
MHJ |
10 |
1 |
58 |
NWF |
10 |
2 |
58 |
SCT |
10 |
2 |
58 |
BOT |
9 |
0 |
63 |
CAV |
9 |
1 |
63 |
CEN |
9 |
2 |
63 |
MLN |
9 |
2 |
63 |
BGP |
8 |
2 |
67 |
CBD |
8 |
2 |
67 |
CNU |
8 |
1 |
67 |
FNZ |
8 |
4 |
67 |
NZR |
8 |
1 |
67 |
TRA |
8 |
4 |
67 |
VTL |
8 |
1 |
67 |
ARG |
7 |
1 |
74 |
GEN |
7 |
0 |
74 |
HMY |
7 |
0 |
74 |
NTL |
7 |
1 |
74 |
GXH |
6 |
1 |
78 |
MEE |
6 |
1 |
78 |
PGW |
6 |
1 |
78 |
TLL |
6 |
2 |
78 |
DGL |
5 |
4 |
82 |
FSF |
5 |
2 |
82 |
MOA |
5 |
0 |
82 |
NPH |
5 |
2 |
82 |
NZX |
5 |
1 |
82 |
QEX |
5 |
0 |
82 |
SPY |
5 |
0 |
82 |
MMH |
4 |
0 |
89 |
RBD |
4 |
1 |
89 |
SDL |
4 |
0 |
89 |
SEK |
4 |
1 |
89 |
TNZ |
4 |
1 |
89 |
AMP |
3 |
2 |
94 |
DIV |
3 |
2 |
94 |
JLG |
3 |
1 |
94 |
MHM |
3 |
0 |
94 |
NZK |
3 |
1 |
94 |
PIL |
3 |
1 |
94 |
PYS |
3 |
1 |
94 |
USG |
3 |
1 |
94 |
ASF |
2 |
1 |
102 |
ENS |
2 |
0 |
102 |
FWL |
2 |
0 |
102 |
OZY |
2 |
1 |
102 |
PFI |
2 |
0 |
102 |
PLX |
2 |
2 |
102 |
RUA |
2 |
0 |
102 |
TWF |
2 |
0 |
102 |
USF |
2 |
0 |
102 |
AGL |
1 |
0 |
111 |
CGF |
1 |
0 |
111 |
CMO |
1 |
1 |
111 |
FCG |
1 |
1 |
111 |
KFL |
1 |
1 |
111 |
MDZ |
1 |
0 |
111 |
MZY |
1 |
0 |
111 |
NPF |
1 |
0 |
111 |
NZL |
1 |
0 |
111 |
NZM |
1 |
0 |
111 |
PCT |
1 |
0 |
111 |
RAD |
1 |
0 |
111 |
SPN |
1 |
0 |
111 |
TLS |
1 |
1 |
111 |
VCT |
1 |
1 |
111 |
If anyone is interested, here is the VBA code used to analyse the data published for the competition and to output the picks into a list.
Code:
Option Explicit
Dim MyPicks(500) As MyStock 'Export array for all picks
Dim StkCount As Long 'Counter to record number of unique picks
Sub GetStats()
Dim LC As Long 'Loop
Dim AllPicks() As Variant 'Import array
AllPicks = ThisWorkbook.Sheets("Sheet1").Range("B2:B353").Value
StkCount = 1
MyPicks(1).Code = Left$(AllPicks(1, 1), 3)
For LC = 1 To 352
Call ProcessPick(Left$(AllPicks(LC, 1), 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 5, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 9, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 13, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 17, 3))
Call ProcessPick(Right$(AllPicks(LC, 1), 3), True)
Next LC
With ThisWorkbook.Sheets("Sheet2")
For LC = 1 To StkCount
.Range("A" & LC).Value = MyPicks(LC).Code
.Range("B" & LC).Value = MyPicks(LC).Count
.Range("C" & LC).Value = MyPicks(LC).BackUp
Next LC
End With
MsgBox "Finished processing picks", vbInformation, "Done"
End Sub
Sub ProcessPick(NewPick As String, Optional IsBackUp As Boolean)
Dim NewStk As Long
NewStk = CheckNew(NewPick)
If NewStk = 0 Then
StkCount = StkCount + 1
MyPicks(StkCount).Code = NewPick
MyPicks(StkCount).Count = 1
NewStk = StkCount
Else
MyPicks(NewStk).Count = MyPicks(NewStk).Count + 1
End If
If IsBackUp Then MyPicks(NewStk).BackUp = MyPicks(NewStk).BackUp + 1
End Sub
Function CheckNew(CodeToCheck As String) As Long
Dim IL As Long
CheckNew = 0
For IL = 1 To StkCount
If MyPicks(IL).Code = CodeToCheck Then
CheckNew = IL
Exit For
End If
Next IL
End Function
Also in a separate module:
Option Explicit
Public Type MyStock
Code As String
Count As Long
BackUp As Long
End Type
-
Originally Posted by Ferg
....If anyone is interested, here is the VBA code used to analyse the data published for the competition and to output the picks into a list.
Code:
Option Explicit
Dim MyPicks(500) As MyStock 'Export array for all picks
Dim StkCount As Long 'Counter to record number of unique picks
Sub GetStats()
Dim LC As Long 'Loop
Dim AllPicks() As Variant 'Import array
AllPicks = ThisWorkbook.Sheets("Sheet1").Range("B2:B353").Value
StkCount = 1
MyPicks(1).Code = Left$(AllPicks(1, 1), 3)
For LC = 1 To 352
Call ProcessPick(Left$(AllPicks(LC, 1), 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 5, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 9, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 13, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 17, 3))
Call ProcessPick(Right$(AllPicks(LC, 1), 3), True)
Next LC
With ThisWorkbook.Sheets("Sheet2")
For LC = 1 To StkCount
.Range("A" & LC).Value = MyPicks(LC).Code
.Range("B" & LC).Value = MyPicks(LC).Count
.Range("C" & LC).Value = MyPicks(LC).BackUp
Next LC
End With
MsgBox "Finished processing picks", vbInformation, "Done"
End Sub
Sub ProcessPick(NewPick As String, Optional IsBackUp As Boolean)
Dim NewStk As Long
NewStk = CheckNew(NewPick)
If NewStk = 0 Then
StkCount = StkCount + 1
MyPicks(StkCount).Code = NewPick
MyPicks(StkCount).Count = 1
NewStk = StkCount
Else
MyPicks(NewStk).Count = MyPicks(NewStk).Count + 1
End If
If IsBackUp Then MyPicks(NewStk).BackUp = MyPicks(NewStk).BackUp + 1
End Sub
Function CheckNew(CodeToCheck As String) As Long
Dim IL As Long
CheckNew = 0
For IL = 1 To StkCount
If MyPicks(IL).Code = CodeToCheck Then
CheckNew = IL
Exit For
End If
Next IL
End Function
Also in a separate module:
Option Explicit
Public Type MyStock
Code As String
Count As Long
BackUp As Long
End Type
Don't let Waltzing ?Matilda? see that.
-
Staying hungry, staying foolish
Originally Posted by Ferg
Thanks winner Here is the full list. Picks is total picks 1 to 6. Backups is the number of times that stock code was pick #6.
Code |
Picks |
BackUps |
Rank |
ATM |
137 |
12 |
1 |
OCA |
117 |
8 |
2 |
PEB |
92 |
5 |
3 |
PX1 |
82 |
8 |
4 |
MFT |
77 |
10 |
5 |
HGH |
70 |
10 |
6 |
EBO |
66 |
12 |
7 |
IFT |
64 |
10 |
8 |
SKT |
60 |
3 |
9 |
FPH |
58 |
6 |
10 |
AIR |
43 |
14 |
11 |
HLG |
38 |
8 |
12 |
STU |
35 |
4 |
13 |
ZEL |
35 |
8 |
13 |
PPH |
33 |
4 |
15 |
FBU |
32 |
7 |
16 |
IKE |
32 |
3 |
16 |
AIA |
31 |
6 |
18 |
ARV |
31 |
7 |
18 |
SKO |
30 |
6 |
20 |
BLT |
28 |
7 |
21 |
RYM |
28 |
3 |
21 |
SPK |
28 |
8 |
21 |
AFT |
26 |
11 |
24 |
KPG |
25 |
5 |
25 |
ERD |
24 |
4 |
26 |
SML |
24 |
5 |
26 |
VGL |
24 |
3 |
26 |
FRE |
22 |
3 |
29 |
KMD |
22 |
6 |
29 |
THL |
22 |
6 |
29 |
APL |
20 |
1 |
32 |
SUM |
19 |
4 |
33 |
TWR |
19 |
3 |
33 |
WBC |
17 |
4 |
35 |
ANZ |
16 |
7 |
36 |
CVT |
16 |
2 |
36 |
SAN |
16 |
3 |
36 |
SKC |
16 |
2 |
36 |
GNE |
15 |
7 |
40 |
MPG |
15 |
3 |
40 |
NZO |
15 |
1 |
40 |
POT |
15 |
5 |
40 |
SKL |
15 |
8 |
40 |
CDI |
14 |
3 |
45 |
ALF |
13 |
2 |
46 |
MCY |
13 |
3 |
46 |
EVO |
12 |
2 |
48 |
GTK |
12 |
1 |
48 |
MCK |
12 |
2 |
48 |
RAK |
12 |
1 |
48 |
TLT |
12 |
2 |
48 |
WHS |
12 |
2 |
48 |
MEL |
11 |
2 |
54 |
SCL |
11 |
4 |
54 |
TRU |
11 |
0 |
54 |
WDT |
11 |
0 |
54 |
ARB |
10 |
2 |
58 |
BRM |
10 |
2 |
58 |
MHJ |
10 |
1 |
58 |
NWF |
10 |
2 |
58 |
SCT |
10 |
2 |
58 |
BOT |
9 |
0 |
63 |
CAV |
9 |
1 |
63 |
CEN |
9 |
2 |
63 |
MLN |
9 |
2 |
63 |
BGP |
8 |
2 |
67 |
CBD |
8 |
2 |
67 |
CNU |
8 |
1 |
67 |
FNZ |
8 |
4 |
67 |
NZR |
8 |
1 |
67 |
TRA |
8 |
4 |
67 |
VTL |
8 |
1 |
67 |
ARG |
7 |
1 |
74 |
GEN |
7 |
0 |
74 |
HMY |
7 |
0 |
74 |
NTL |
7 |
1 |
74 |
GXH |
6 |
1 |
78 |
MEE |
6 |
1 |
78 |
PGW |
6 |
1 |
78 |
TLL |
6 |
2 |
78 |
DGL |
5 |
4 |
82 |
FSF |
5 |
2 |
82 |
MOA |
5 |
0 |
82 |
NPH |
5 |
2 |
82 |
NZX |
5 |
1 |
82 |
QEX |
5 |
0 |
82 |
SPY |
5 |
0 |
82 |
MMH |
4 |
0 |
89 |
RBD |
4 |
1 |
89 |
SDL |
4 |
0 |
89 |
SEK |
4 |
1 |
89 |
TNZ |
4 |
1 |
89 |
AMP |
3 |
2 |
94 |
DIV |
3 |
2 |
94 |
JLG |
3 |
1 |
94 |
MHM |
3 |
0 |
94 |
NZK |
3 |
1 |
94 |
PIL |
3 |
1 |
94 |
PYS |
3 |
1 |
94 |
USG |
3 |
1 |
94 |
ASF |
2 |
1 |
102 |
ENS |
2 |
0 |
102 |
FWL |
2 |
0 |
102 |
OZY |
2 |
1 |
102 |
PFI |
2 |
0 |
102 |
PLX |
2 |
2 |
102 |
RUA |
2 |
0 |
102 |
TWF |
2 |
0 |
102 |
USF |
2 |
0 |
102 |
AGL |
1 |
0 |
111 |
CGF |
1 |
0 |
111 |
CMO |
1 |
1 |
111 |
FCG |
1 |
1 |
111 |
KFL |
1 |
1 |
111 |
MDZ |
1 |
0 |
111 |
MZY |
1 |
0 |
111 |
NPF |
1 |
0 |
111 |
NZL |
1 |
0 |
111 |
NZM |
1 |
0 |
111 |
PCT |
1 |
0 |
111 |
RAD |
1 |
0 |
111 |
SPN |
1 |
0 |
111 |
TLS |
1 |
1 |
111 |
VCT |
1 |
1 |
111 |
If anyone is interested, here is the VBA code used to analyse the data published for the competition and to output the picks into a list.
Code:
Option Explicit
Dim MyPicks(500) As MyStock 'Export array for all picks
Dim StkCount As Long 'Counter to record number of unique picks
Sub GetStats()
Dim LC As Long 'Loop
Dim AllPicks() As Variant 'Import array
AllPicks = ThisWorkbook.Sheets("Sheet1").Range("B2:B353").Value
StkCount = 1
MyPicks(1).Code = Left$(AllPicks(1, 1), 3)
For LC = 1 To 352
Call ProcessPick(Left$(AllPicks(LC, 1), 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 5, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 9, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 13, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 17, 3))
Call ProcessPick(Right$(AllPicks(LC, 1), 3), True)
Next LC
With ThisWorkbook.Sheets("Sheet2")
For LC = 1 To StkCount
.Range("A" & LC).Value = MyPicks(LC).Code
.Range("B" & LC).Value = MyPicks(LC).Count
.Range("C" & LC).Value = MyPicks(LC).BackUp
Next LC
End With
MsgBox "Finished processing picks", vbInformation, "Done"
End Sub
Sub ProcessPick(NewPick As String, Optional IsBackUp As Boolean)
Dim NewStk As Long
NewStk = CheckNew(NewPick)
If NewStk = 0 Then
StkCount = StkCount + 1
MyPicks(StkCount).Code = NewPick
MyPicks(StkCount).Count = 1
NewStk = StkCount
Else
MyPicks(NewStk).Count = MyPicks(NewStk).Count + 1
End If
If IsBackUp Then MyPicks(NewStk).BackUp = MyPicks(NewStk).BackUp + 1
End Sub
Function CheckNew(CodeToCheck As String) As Long
Dim IL As Long
CheckNew = 0
For IL = 1 To StkCount
If MyPicks(IL).Code = CodeToCheck Then
CheckNew = IL
Exit For
End If
Next IL
End Function
Also in a separate module:
Option Explicit
Public Type MyStock
Code As String
Count As Long
BackUp As Long
End Type
@Ferg
Thanks for sharing the code. From where can I download the full dataset?
-
I got the full dataset from the link I was provided that shows my placing. If you are entered into the competition, then you should have an e-mail with the link. If you are going to use the code, then it goes into the Workbook VBA section and the last part goes into a new module in the same spreadsheet. Since I did this a couple more entries have entered. Be aware that I hard coded 352 and 353 into 2 places in the first macro which you will need to amend if there are more than 352 entries. Copy and paste the web data into Sheet1 in Excel. Make sure the picks are in column B and make sure Sheet 2 exists.
Last edited by Ferg; 10-01-2021 at 03:30 PM.
Reason: typo
-
Member
I notice that after 7 weeks, the top 5 picks have DROPPED in price by an average of about 8% since the 1st of January.
The first five of the bottom picks (AGL, CGF, CMO, FCG, KFL) have GONE UP by an average of more than 4%.
-
Originally Posted by winner69
Ferg did this a few posts back ...good effort by Ferg
ATM the most popular by far
Awesome work by the Ferg :-)! Appreciated...I was out of range while the questions were coming in!
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
|
Bookmarks