1. lastath = [18588]; %%18588 = Annie 2371 = for men now This is the seed of the first athlete on the leaderboard
  2. S = {};
  3. for n=1:20
  4. S{end+1} = urlread(['http://leaderboard.crossfit.com/leaderboard.php?did=2&rid=0&npp=100&uid=',num2str(lastath(n))]);
  5. %%% Note to change from men to women, change the did to either 1(men)
  6. %%% or 2 (women)
  7. ind = findstr(S{n},'/athlete/');
  8. longID = S{n}(ind(end)+9:ind(end)+15);
  9. en = findstr(longID,'"');
  10. id = longID(1:en-1);
  11. if lastath(end) == str2num(id);
  12. break
  13. else
  14. lastath(end+1) = str2num(id);
  15. end
  16. end
  17. 
  18. %%
  19. clearvars -except S xfitm xfitw lastath
  20. m = 1;
  21. for i = 1:length(S)
  22. if i == 1 %% special case of the first page, where the whole page is unique
  23. ind = findstr(S{i},'/athlete/');
  24. for j = 1:length(ind)
  25. longname = S{i}(ind(j)+20:ind(j)+100);
  26. top = findstr(longname,'"_top">');
  27. en = findstr(longname,'</a></td>');
  28. xfit(m).name = longname(top+7:en-1);
  29. st = findstr(S{i},xfit(m).name);
  30. if j<length(ind) %careful could be bad
  31. en = ind(j+1);
  32. else
  33. en = length(S{i});
  34. end
  36. allworkoutstr = S{i}(st:en);
  37. wkind = findstr(allworkoutstr,'"tooltip');
  39. for k = 1:3
  40. longwkstr = allworkoutstr(wkind(k)+10:wkind(k)+60);
  41. if k == 1
  42. if findstr(longwkstr,'">')
  43. scorest = findstr(longwkstr,'">');
  44. scoreen = findstr(longwkstr,'bur');
  45. score = str2num(longwkstr(scorest+2:scoreen-1));
  46. eval(['xfit(m).wk',num2str(k),' = score;']);
  47. else
  48. eval(['xfit(m).wk',num2str(k),' = [];']);
  49. end
  51. else
  52. if findstr(longwkstr,'">')
  53. scorest = findstr(longwkstr,'">');
  54. scoreen = findstr(longwkstr,'tot');
  55. score = str2num(longwkstr(scorest+2:scoreen-1));
  56. eval(['xfit(m).wk',num2str(k),' = score;']);
  57. else
  58. eval(['xfit(m).wk',num2str(k),' = [];']);
  59. end
  60. end
  61. end
  62. m=m+1;
  64. end
  65. else
  66. st = findstr(S{i},xfit(end).name);
  67. shortpg = S{i}(st:end);
  68. ind = findstr(shortpg,'/athlete/');
  69. for j = 1:length(ind)
  70. longname = shortpg(ind(j)+20:ind(j)+100);
  71. top = findstr(longname,'"_top">');
  72. en = findstr(longname,'</a></td>');
  73. xfit(m).name = longname(top+7:en-1);
  74. st = findstr(shortpg,xfit(m).name);
  75. if j<length(ind) %careful could be bad
  76. en = ind(j+1);
  77. else
  78. en = length(shortpg);
  79. end
  81. allworkoutstr = shortpg(st:en);
  82. wkind = findstr(allworkoutstr,'"tooltip');
  84. for k = 1:3
  85. longwkstr = allworkoutstr(wkind(k)+10:wkind(k)+60);
  86. if k == 1
  87. if findstr(longwkstr,'">')
  88. scorest = findstr(longwkstr,'">');
  89. scoreen = findstr(longwkstr,'bur');
  90. score = str2num(longwkstr(scorest+2:scoreen-1));
  91. eval(['xfit(m).wk',num2str(k),' = score;']);
  92. else
  93. eval(['xfit(m).wk',num2str(k),' = [];']);
  94. end
  96. else
  97. if findstr(longwkstr,'">')
  98. scorest = findstr(longwkstr,'">');
  99. scoreen = findstr(longwkstr,'tot');
  100. score = str2num(longwkstr(scorest+2:scoreen-1));
  101. eval(['xfit(m).wk',num2str(k),' = score;']);
  102. else
  103. eval(['xfit(m).wk',num2str(k),' = [];']);
  104. end
  105. end
  106. end
  107. m=m+1;
  108. end
  110. end
  111. end
  112. 
  113. %% Basic cdfplot
  114. 
  115. cdfplot([xfitm.wk3]); hold on; cdfplot([xfitw.wk3])
  116. title(['Early week 3 results']);
  117. xlabel('Total reps');
  118. ylabel('Percentile for week 3');