// *******************************************************************
var blueimage="poll.gif"
var  redimage="red.gif"
var  clrimage="clr.gif"
var scale=3;
var big_scale=1.5;
var outputHTML = ' ';

function daysElapsed(date1,date2) {
    var difference =
        Date.UTC(date1.getYear(),date1.getMonth(),date1.getDate(),0,0,0)
      - Date.UTC(date2.getYear(),date2.getMonth(),date2.getDate(),0,0,0);
    return difference/1000/60/60/24;
}

function get_abs(lyear,lmonth,lday) {
  return daysElapsed(new Date(lyear,lmonth,lday), new Date(2004,06,01));
}

  function sortRatio(a,b) {
    var wa = a[1];
    var ma = a[2];
    var wb = b[1];
    var mb = b[2];
    if (ma == 0) { ma=1; }
    if (mb == 0) { mb=1; }

    var ta =  wa/ma;
    var tb =  wb/mb;

    if (ta > tb) return  1;
    if (ta < tb) return -1;
    return 0;
  }


  function sortTotal(a,b) {
    var wa = a[1];
    var ma = a[2];
    var wb = b[1];
    var mb = b[2];

    var ta =  wa+ma;
    var tb =  wb+mb;

    if (ta > tb) return -1;
    if (ta < tb) return  1;
    return 0;
  }


  function sortMen(a,b) {
    var wa = a[1];
    var ma = a[3];
    var wb = b[1];
    var mb = b[3];

    var ta =  ma;
    var tb =  mb;

    if (ta > tb) return -1;
    if (ta < tb) return  1;
    return 0;
  }


  function sortWomen(a,b) {
    var wa = a[1];
    var ma = a[3];
    var wb = b[1];
    var mb = b[3];

    var ta =  wa;
    var tb =  wb;

    if (ta > tb) return -1;
    if (ta < tb) return  1;
    return 0;
  }


  function sortMenTrend(a,b) {
    var wa = a[2];
    var ma = a[4];
    var wb = b[2];
    var mb = b[4];

    var ta =  ma;
    var tb =  mb;

    if (ta > tb) return -1;
    if (ta < tb) return  1;
    return 0;
  }


  function sortWomenTrend(a,b) {
    var wa = a[2];
    var ma = a[4];
    var wb = b[2];
    var mb = b[4];

    var ta =  wa;
    var tb =  wb;

    if (ta > tb) return -1;
    if (ta < tb) return  1;
    return 0;
  }


function slope(g,glen){
  var a11=0; var a12=0; var a21=0; var a22=0; var b1=0; var b2=0; 
  for (i=0;i<glen;i++) {
    var xx = get_abs(g[i][1],g[i][2],g[i][3]);
    a11 = a11 + xx*xx;
    a12 = a12 + xx;
    a21 = a21 + xx;
    a22 = a22 + 1.0;
    b1  = b1  + xx*g[i][0];
    b2  = b2  +    g[i][0];
  }

  ss = (b1*a22 - b2*a12)/(a11*a22 - a21*a12);
  return ss*365; 
}


function intcpt(g,glen){
  var a11=0; var a12=0; var a21=0; var a22=0; var b1=0; var b2=0; 
  for (i=0;i<glen;i++) {
    var xx = get_abs(g[i][1],g[i][2],g[i][3]);
    a11 = a11 + xx*xx;
    a12 = a12 + xx;
    a21 = a21 + xx;
    a22 = a22 + 1.0;
    b1  = b1  + xx*g[i][0];
    b2  = b2  +    g[i][0];
  }

  ss = (a11*b2 - a21*b1)/(a11*a22 - a21*a12);
  return ss; 
}


function getMax(g,lscale){
  var tmax=0; 
  for (i=0;i<g.length;i++) {
    var ww = parseInt(g[i][1]);
    var mm = parseInt(g[i][2]);
    if (ww+mm > tmax) { tmax = ww+mm; }
  }
  return (tmax+5)*lscale;
}


function graphlittle(g,gwidth,llabel){
  outputHTML+='<center><table border="1" cellspacing="1" cellpadding="1">'
  outputHTML+='<tr><td><b>'+llabel+'</b></td>';
  outputHTML+='<td><center><b>Women<img src="'+clrimage+'" width="100" height="10">Men</b></center></td>';
  outputHTML+='<td><b>Women</b></td><td><b>Men</b></td></tr>';
  for (i=0;i<g.length;i++){
    var wc = parseInt(g[i][1]);
    var mc = parseInt(g[i][2]);
    if (wc==0) {wc=1/scale;}
    if (mc==0) {mc=1/scale;}
    var wwidth=Math.round(wc*scale);
    var mwidth=Math.round(mc*scale);
    var cwidth=gwidth-wwidth-mwidth;
    outputHTML+='<tr><td>'+g[i][0]+'&nbsp;</td><td><img src="'+redimage+'" width="'+wwidth+'" height="10"><img src="'+clrimage+'" width="'+cwidth+'" height="10"><img src="'+blueimage+'" width="'+mwidth+'" height="10"></td>';
    outputHTML+='<td>'+g[i][1]+'</td>';
    outputHTML+='<td>'+g[i][2]+'</td>';
    outputHTML+='</tr>';
  }
  outputHTML+='</table></center><br><br>'
}



function graphage(g){
  outputHTML+='<center><table border="1" cellspacing="1" cellpadding="1">'
  outputHTML+='<tr><td><b>Dance</b></td>';
  outputHTML+='<td><input type=\"button\" value=\"Avg Age for Women\" onclick=\"showElementList(sortTotal,sortWomen)\"></td>';
  outputHTML+='<td><input type=\"button\" value=\"Women Trend\"       onclick=\"showElementList(sortTotal,sortWomenTrend)\"></td>';
  outputHTML+='<td><input type=\"button\" value=\"Avg Age for Men\"   onclick=\"showElementList(sortTotal,sortMen)\"></td>';
  outputHTML+='<td><input type=\"button\" value=\"Men Trend\"         onclick=\"showElementList(sortTotal,sortMenTrend)\"></td>';
  outputHTML+='</tr>'


  for (i=0;i<g.length;i++){
    outputHTML+='<tr>';
    outputHTML+='<td><a href="'+g[i][5]+'">'+g[i][0]+'</a>&nbsp;</td>';
    outputHTML+='<td>'+g[i][1]+'</td>';
    outputHTML+='<td>'+g[i][2]+'</td>';
    outputHTML+='<td>'+g[i][3]+'</td>';
    outputHTML+='<td>'+g[i][4]+'</td>';
    outputHTML+='</tr>'
  }
  outputHTML+='</table></center>'
}




function graphit(g,gwidth){
  outputHTML+='<center><table border="1" cellspacing="1" cellpadding="1">'
  outputHTML+='<tr><td><b>Dance</b></td>';
  outputHTML+='<td><center><b>Women<img src="'+clrimage+'" width="150" height="10">Men</b></center></td>';
  outputHTML+='<td><b>Women</b></td><td><b>Men</b></td>';
  outputHTML+='<td><input type=\"button\" value=\"Total\" onclick=\"showElementList(sortTotal,sortWomen)\"></td>';
  outputHTML+='<td><input type=\"button\" value=\"Ratio\" onclick=\"showElementList(sortRatio,sortWomen)\"></td>';


//  outputHTML+='<td><b>Ratio</b></td>';
  outputHTML+='</tr>'
  for (i=0;i<g.length;i++){
    var wc = parseInt(g[i][1]);
    var mc = parseInt(g[i][2]);
    var wwidth=Math.round(wc*big_scale);
    var mwidth=Math.round(mc*big_scale);
    if (wwidth==0) {wwidth=1;}
    if (mwidth==0) {mwidth=1;}
    var total=g[i][1]+g[i][2];
    var cwidth=gwidth-wwidth-mwidth;
    var ratio=0;
    if (mc==0) {
      if (wc==0) { ratio=0.0; }
      else       { ratio=wc; }
    }
    else
    { ratio=Math.round(100*(wc/mc))/100; }
  

    outputHTML+='<tr>';
    outputHTML+='<td>'+g[i][0]+'&nbsp;</td>';
    outputHTML+='<td><img src="'+redimage+'" width="'+wwidth+'" height="10">';
    outputHTML+=    '<img src="'+clrimage+'" width="'+cwidth+'" height="10">';
    outputHTML+=    '<img src="'+blueimage+'" width="'+mwidth+'" height="10">';
    outputHTML+=    '</td>';
    outputHTML+='<td><a href="'+g[i][3]+'">'+g[i][1]+'</a></td>';
    outputHTML+='<td><a href="'+g[i][4]+'">'+g[i][2]+'</a></td>';
    outputHTML+='<td>'+total+'</td>';
    outputHTML+='<td>'+ratio+'</td>';
    outputHTML+='</tr>'
  }
  outputHTML+='</table></center>'
}


//<input type=\"button\" value=\"Age     \" onclick=\"showElementList(\'' + sdance + '\',\'' + sgender + '\',sortAge)\">


  function showElementList(sortAlg,sortAgeAlg) {

    outputHTML = ' ';

    var  xmldoc01  = document.all("srch01").XMLDocument; 
    var  xmldoc02  = document.all("srch02").XMLDocument; 
    var  xmldoc03  = document.all("srch03").XMLDocument; 
    var  xmldoc04  = document.all("srch04").XMLDocument; 
    var  xmldoc05  = document.all("srch05").XMLDocument; 
    var  xmldoc06  = document.all("srch06").XMLDocument; 
    var  xmldoc07  = document.all("srch07").XMLDocument;
    var  xmldoc08  = document.all("srch08").XMLDocument;
    var  xmldoc09  = document.all("srch09").XMLDocument;
    var  xmldoc10  = document.all("srch10").XMLDocument;
    var  xmldoc11  = document.all("srch11").XMLDocument;
    var  xmldoc12  = document.all("srch12").XMLDocument;

    var xmlTop01  = xmldoc01.getElementsByTagName("listings_in_file").item(0); 
    var xmlTop02  = xmldoc02.getElementsByTagName("listings_in_file").item(0); 
    var xmlTop03  = xmldoc03.getElementsByTagName("listings_in_file").item(0); 
    var xmlTop04  = xmldoc04.getElementsByTagName("listings_in_file").item(0); 
    var xmlTop05  = xmldoc05.getElementsByTagName("listings_in_file").item(0); 
    var xmlTop06  = xmldoc06.getElementsByTagName("listings_in_file").item(0); 
    var xmlTop07  = xmldoc07.getElementsByTagName("listings_in_file").item(0);
    var xmlTop08  = xmldoc08.getElementsByTagName("listings_in_file").item(0);
    var xmlTop09  = xmldoc09.getElementsByTagName("listings_in_file").item(0);
    var xmlTop10  = xmldoc10.getElementsByTagName("listings_in_file").item(0);
    var xmlTop11  = xmldoc11.getElementsByTagName("listings_in_file").item(0);
    var xmlTop12  = xmldoc12.getElementsByTagName("listings_in_file").item(0);

    var xmlList01 = xmlTop01.getElementsByTagName("ps_listing");
    var xmlList02 = xmlTop02.getElementsByTagName("ps_listing");
    var xmlList03 = xmlTop03.getElementsByTagName("ps_listing");
    var xmlList04 = xmlTop04.getElementsByTagName("ps_listing");
    var xmlList05 = xmlTop05.getElementsByTagName("ps_listing");
    var xmlList06 = xmlTop06.getElementsByTagName("ps_listing");
    var xmlList07 = xmlTop07.getElementsByTagName("ps_listing"); 
    var xmlList08 = xmlTop08.getElementsByTagName("ps_listing"); 
    var xmlList09 = xmlTop09.getElementsByTagName("ps_listing"); 
    var xmlList10 = xmlTop10.getElementsByTagName("ps_listing"); 
    var xmlList11 = xmlTop11.getElementsByTagName("ps_listing"); 
    var xmlList12 = xmlTop12.getElementsByTagName("ps_listing"); 

    var tlength =  xmlList01.length +
                   xmlList02.length +
                   xmlList03.length +
                   xmlList04.length +
                   xmlList05.length +
                   xmlList06.length +
                   xmlList07.length +
                   xmlList08.length +
                   xmlList09.length +
                   xmlList10.length +
                   xmlList11.length +
                   xmlList12.length;
    var xmlMergeList  = new Array(tlength);

    var ptr=0;
    for (var i=0; i<xmlList01.length; i++) { xmlMergeList[ptr++] = xmlList01[i]; }
    for (var i=0; i<xmlList02.length; i++) { xmlMergeList[ptr++] = xmlList02[i]; }
    for (var i=0; i<xmlList03.length; i++) { xmlMergeList[ptr++] = xmlList03[i]; }
    for (var i=0; i<xmlList04.length; i++) { xmlMergeList[ptr++] = xmlList04[i]; }
    for (var i=0; i<xmlList05.length; i++) { xmlMergeList[ptr++] = xmlList05[i]; }
    for (var i=0; i<xmlList06.length; i++) { xmlMergeList[ptr++] = xmlList06[i]; }
    for (var i=0; i<xmlList07.length; i++) { xmlMergeList[ptr++] = xmlList07[i]; }
    for (var i=0; i<xmlList08.length; i++) { xmlMergeList[ptr++] = xmlList08[i]; }
    for (var i=0; i<xmlList09.length; i++) { xmlMergeList[ptr++] = xmlList09[i]; }
    for (var i=0; i<xmlList10.length; i++) { xmlMergeList[ptr++] = xmlList10[i]; }
    for (var i=0; i<xmlList11.length; i++) { xmlMergeList[ptr++] = xmlList11[i]; }
    for (var i=0; i<xmlList12.length; i++) { xmlMergeList[ptr++] = xmlList12[i]; }


    var women_total=0;            var   men_total=0;

    var women_teen=0;             var men_teen=0;      
    var women_twenties=0;         var men_twenties=0;      
    var women_thirties=0;         var men_thirties=0;      
    var women_forties=0;          var men_forties=0;      
    var women_fifties=0;          var men_fifties=0;      
    var women_senior=0;           var men_senior=0;      

    var women_beginner=0;         var men_beginner=0;      
    var women_intermediate=0;     var men_intermediate=0;  
    var women_advanced=0;         var men_advanced=0;  
    var women_competitor=0;       var men_competitor=0;  

    var women_tango=0;                var men_tango=0;            
    var women_swing=0;                var men_swing=0;
    var women_west_coast_swing=0;     var men_west_coast_swing=0;
    var women_hustle=0;               var men_hustle=0;
    var women_waltz=0;                var men_waltz=0;
    var women_foxtrot=0;              var men_foxtrot=0;
    var women_quickstep=0;            var men_quickstep=0;
    var women_lifts=0;                var men_lifts=0;
    var women_tango_ballroom=0;       var men_tango_ballroom=0;
    var women_salsa_mambo=0;          var men_salsa_mambo=0;
    var women_chacha=0;               var men_chacha=0;
    var women_merengue=0;             var men_merengue=0;
    var women_viennese=0;             var men_viennese=0;
    var women_bolero=0;               var men_bolero=0;
    var women_peabody=0;              var men_peabody=0;
    var women_samba=0;                var men_samba=0;
    var women_latin_competition=0;    var men_latin_competition=0;
    var women_ballroom_competition=0; var men_ballroom_competition=0;
    var women_twostep=0;              var men_twostep=0;
    var women_square=0;               var men_square=0;
    var women_vintage=0;              var men_vintage=0;


    var womenall=0;              var w_all         = new Array(tlength);
    var womentango=0;            var w_tango       = new Array(tlength);
    var womenswing=0;            var w_swing       = new Array(tlength);
    var womenwest_coast_swing=0; var w_west_coast_swing = new Array(tlength); 
    var womenhustle=0;           var w_hustle      = new Array(tlength);
    var womenwaltz=0;            var w_waltz       = new Array(tlength);
    var womenfoxtrot=0;          var w_foxtrot     = new Array(tlength);
    var womenquickstep=0;        var w_quickstep   = new Array(tlength);
    var womenlifts=0;            var w_lifts       = new Array(tlength);
    var womentango_ballroom=0;   var w_tango_ballroom = new Array(tlength);
    var womensalsa_mambo=0;      var w_salsa_mambo = new Array(tlength); 
    var womenchacha=0;           var w_chacha      = new Array(tlength);
    var womenmerengue=0;         var w_merengue    = new Array(tlength);
    var womenviennese=0;         var w_viennese    = new Array(tlength);
    var womenbolero=0;           var w_bolero      = new Array(tlength);
    var womenpeabody=0;          var w_peabody     = new Array(tlength);
    var womensamba=0;            var w_samba       = new Array(tlength);
    var womenlatin_competition=0; var w_latin_competition = new Array(tlength);
    var womenballroom_competition=0; var w_ballroom_competition = new Array(tlength);
    var womentwostep=0;          var w_twostep     = new Array(tlength);
    var womensquare=0;           var w_square      = new Array(tlength);
    var womenvintage=0;          var w_vintage     = new Array(tlength);


    var menall=0;                var m_all         = new Array(tlength);
    var mentango=0;              var m_tango       = new Array(tlength);
    var menswing=0;              var m_swing       = new Array(tlength);
    var menwest_coast_swing=0;   var m_west_coast_swing = new Array(tlength); 
    var menhustle=0;             var m_hustle      = new Array(tlength);
    var menwaltz=0;              var m_waltz       = new Array(tlength);
    var menfoxtrot=0;            var m_foxtrot     = new Array(tlength);
    var menquickstep=0;          var m_quickstep   = new Array(tlength);
    var menlifts=0;              var m_lifts       = new Array(tlength);
    var mentango_ballroom=0;     var m_tango_ballroom  = new Array(tlength);
    var mensalsa_mambo=0;        var m_salsa_mambo = new Array(tlength);
    var menchacha=0;             var m_chacha      = new Array(tlength);
    var menmerengue=0;           var m_merengue    = new Array(tlength);
    var menviennese=0;           var m_viennese    = new Array(tlength);
    var menbolero=0;             var m_bolero      = new Array(tlength);
    var menpeabody=0;            var m_peabody     = new Array(tlength);
    var mensamba=0;              var m_samba       = new Array(tlength);
    var menlatin_competition=0;  var m_latin_competition = new Array(tlength); 
    var menballroom_competition=0; var m_ballroom_competition = new Array(tlength); 
    var mentwostep=0;            var m_twostep     = new Array(tlength);
    var mensquare=0;             var m_square      = new Array(tlength);
    var menvintage=0;            var m_vintage     = new Array(tlength);


    var men_romance_no=0;         var women_romance_no=0;
    var men_romance_maybe=0;      var women_romance_maybe=0;
    var men_romance_yes=0;        var women_romance_yes=0;


    for (var i=0; i<xmlMergeList.length; i++) {
      var tlisting = xmlMergeList[i];
      var tname = tlisting.getElementsByTagName("name");
      var thome = tlisting.getElementsByTagName("ps_home");
      var thtml = tlisting.getElementsByTagName("ps_html");
      var tid   = tlisting.getElementsByTagName("ps_id");
      var tdate = tlisting.getElementsByTagName("ps_date");


      var tromancey = tlisting.getElementsByTagName("romance_yes");
      var tromancem = tlisting.getElementsByTagName("romance_maybe");
      var tromancen = tlisting.getElementsByTagName("romance_no");
      var promance = "&nbsp;";
      if (tromancey.length > 0) { promance = 'Yes'; }
      if (tromancem.length > 0) { promance = 'Maybe'; }
      if (tromancen.length > 0) { promance = 'No'; }


      if (tname.length > 0) {
        var pdnc;
        var pname   = tname.item(0).text;
        var phtml   = thtml.item(0).text;
        var pid     =   tid.item(0).text;
        var pdate   = tdate.item(0).text;
        var pgender = tname.item(0).getAttribute("gender");
        var pjoined = tname.item(0).getAttribute("joined");
        if ((pjoined != "GL") && (pjoined != "WW")) {
        var plevel  = tname.item(0).getAttribute("level");
        if (plevel == null)   { plevel = "&nbsp;"; }
        var page    = tname.item(0).getAttribute("age");
        if (page == null)   { page = "&nbsp;"; }

        var pyear  = pid.substring(14,18);
        var pmonth = pid.substring(19,21);
        var pday   = pid.substring(22,24);

        var pageval = -1;
        if (page == 'Teen')     pageval = 18;
        if (page == 'Twenties') pageval = 25;
        if (page == 'Thirties') pageval = 35;
        if (page == 'Forties')  pageval = 45;
        if (page == 'Fifties')  pageval = 55;
        if (page == 'Senior')   pageval = 65;

        if (pgender == 'Female') {
          women_total++;
          if (page == 'Teen')     { women_teen++; }
          if (page == 'Twenties') { women_twenties++; }
          if (page == 'Thirties') { women_thirties++; }
          if (page == 'Forties')  { women_forties++; }
          if (page == 'Fifties')  { women_fifties++; }
          if (page == 'Senior')   { women_senior++; }

          if (promance == 'No')    { women_romance_no++; }
          if (promance == 'Maybe') { women_romance_maybe++; }
          if (promance == 'Yes')   { women_romance_yes++; }

          if (plevel == 'Beginner')     { women_beginner++; }
          if (plevel == 'Intermediate') { women_intermediate++; }
          if (plevel == 'Advanced')     { women_advanced++; }
          if (plevel == 'Competitor')   { women_competitor++; }

          if (pageval>0) { w_all[womenall++] = [pageval,pyear,pmonth,pday]; }

          var tdnc = tlisting.getElementsByTagName('dnc');
          if (tdnc.length > 0) {
            for (var j=0; j<tdnc.length; j++) {
              pdnc = tdnc.item(j).text;
              if (pdnc == 'tango_argentine') { women_tango++;                     if (pageval>0) { w_tango               [womentango++]                = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'swing')           { women_swing++;                     if (pageval>0) { w_swing               [womenswing++]                = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'west_coast_swing'){ women_west_coast_swing++;          if (pageval>0) { w_west_coast_swing    [womenwest_coast_swing++]     = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'hustle')          { women_hustle++;                    if (pageval>0) { w_hustle              [womenhustle++]               = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'waltz')           { women_waltz++;                     if (pageval>0) { w_waltz               [womenwaltz++]                = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'foxtrot')         { women_foxtrot++;                   if (pageval>0) { w_foxtrot             [womenfoxtrot++]              = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'quickstep')       { women_quickstep++;                 if (pageval>0) { w_quickstep           [womenquickstep++]            = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'lifts')           { women_lifts++;                     if (pageval>0) { w_lifts               [womenlifts++]                = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'tango_ballroom')  { women_tango_ballroom++;            if (pageval>0) { w_tango_ballroom      [womentango_ballroom++]       = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'salsa_mambo')     { women_salsa_mambo++;               if (pageval>0) { w_salsa_mambo         [womensalsa_mambo++]          = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'chacha')          { women_chacha++;                    if (pageval>0) { w_chacha              [womenchacha++]               = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'merengue')        { women_merengue++;                  if (pageval>0) { w_merengue            [womenmerengue++]             = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'viennese_waltz')  { women_viennese++;                  if (pageval>0) { w_viennese            [womenviennese++]             = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'bolero')          { women_bolero++;                    if (pageval>0) { w_bolero              [womenbolero++]               = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'peabody')         { women_peabody++;                   if (pageval>0) { w_peabody             [womenpeabody++]              = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'samba')           { women_samba++;                     if (pageval>0) { w_samba               [womensamba++]                = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'latin_competition')    { women_latin_competition++;    if (pageval>0) { w_latin_competition   [womenlatin_competition++]    = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'ballroom_competition') { women_ballroom_competition++; if (pageval>0) { w_ballroom_competition[womenballroom_competition++] = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'twostep')              { women_twostep++;              if (pageval>0) { w_twostep             [womentwostep++]              = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'square_contra')        { women_square++;               if (pageval>0) { w_square              [womensquare++]               = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'vintage')              { women_vintage++;              if (pageval>0) { w_vintage             [womenvintage++]              = [pageval,pyear,pmonth,pday]; }}
            }
          }
        }
        if (pgender == 'Male') {
          men_total++;
          if (page == 'Teen')     { men_teen++; }
          if (page == 'Twenties') { men_twenties++; }
          if (page == 'Thirties') { men_thirties++; }
          if (page == 'Forties')  { men_forties++; }
          if (page == 'Fifties')  { men_fifties++; }
          if (page == 'Senior')   { men_senior++; }

          if (promance == 'No')    { men_romance_no++; }
          if (promance == 'Maybe') { men_romance_maybe++; }
          if (promance == 'Yes')   { men_romance_yes++; }

          if (plevel == 'Beginner')     { men_beginner++; }
          if (plevel == 'Intermediate') { men_intermediate++; }
          if (plevel == 'Advanced')     { men_advanced++; }
          if (plevel == 'Competitor')   { men_competitor++; }

          if (pageval>0) { m_all[menall++] = [pageval,pyear,pmonth,pday]; }

          var tdnc = tlisting.getElementsByTagName('dnc');
          if (tdnc.length > 0) {
            for (var j=0; j<tdnc.length; j++) {
              pdnc = tdnc.item(j).text;
              if (pdnc == 'tango_argentine') { men_tango++;                     if (pageval>0) { m_tango               [mentango++]                = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'swing')           { men_swing++;                     if (pageval>0) { m_swing               [menswing++]                = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'west_coast_swing'){ men_west_coast_swing++;          if (pageval>0) { m_west_coast_swing    [menwest_coast_swing++]     = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'hustle')          { men_hustle++;                    if (pageval>0) { m_hustle              [menhustle++]               = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'waltz')           { men_waltz++;                     if (pageval>0) { m_waltz               [menwaltz++]                = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'foxtrot')         { men_foxtrot++;                   if (pageval>0) { m_foxtrot             [menfoxtrot++]              = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'quickstep')       { men_quickstep++;                 if (pageval>0) { m_quickstep           [menquickstep++]            = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'lifts')           { men_lifts++;                     if (pageval>0) { m_lifts               [menlifts++]                = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'tango_ballroom')  { men_tango_ballroom++;            if (pageval>0) { m_tango_ballroom      [mentango_ballroom++]       = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'salsa_mambo')     { men_salsa_mambo++;               if (pageval>0) { m_salsa_mambo         [mensalsa_mambo++]          = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'chacha')          { men_chacha++;                    if (pageval>0) { m_chacha              [menchacha++]               = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'merengue')        { men_merengue++;                  if (pageval>0) { m_merengue            [menmerengue++]             = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'viennese_waltz')  { men_viennese++;                  if (pageval>0) { m_viennese            [menviennese++]             = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'bolero')          { men_bolero++;                    if (pageval>0) { m_bolero              [menbolero++]               = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'peabody')         { men_peabody++;                   if (pageval>0) { m_peabody             [menpeabody++]              = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'samba')           { men_samba++;                     if (pageval>0) { m_samba               [mensamba++]                = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'latin_competition')    { men_latin_competition++;    if (pageval>0) { m_latin_competition   [menlatin_competition++]    = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'ballroom_competition') { men_ballroom_competition++; if (pageval>0) { m_ballroom_competition[menballroom_competition++] = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'twostep')              { men_twostep++;              if (pageval>0) { m_twostep             [mentwostep++]              = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'square_contra')        { men_square++;               if (pageval>0) { m_square              [mensquare++]               = [pageval,pyear,pmonth,pday]; }}
              if (pdnc == 'vintage')              { men_vintage++;              if (pageval>0) { m_vintage             [menvintage++]              = [pageval,pyear,pmonth,pday]; }}
            }
          }
        }
        }
      } 
    }


  tdate = new Date();
  tint = get_abs(tdate.getFullYear(),tdate.getMonth()+1,tdate.getDate());

  var graphn=new Array()
   graphn[0]=["Argentine Tango",
              Math.round(10*((tint/365)*slope(w_tango,womentango)+intcpt(w_tango,womentango)))/10,
              Math.round(10*slope(w_tango,womentango))/10,
              Math.round(10*((tint/365)*slope(m_tango,mentango)+intcpt(m_tango,mentango)))/10,
              Math.round(10*slope(m_tango,mentango))/10,
              "nyctango.html"]
   graphn[1]=["Salsa",
              Math.round(10*((tint/365)*slope(w_salsa_mambo,womensalsa_mambo)+intcpt(w_salsa_mambo,womensalsa_mambo)))/10,
              Math.round(10*slope(w_salsa_mambo,womensalsa_mambo))/10,
              Math.round(10*((tint/365)*slope(m_salsa_mambo,mensalsa_mambo)+intcpt(m_salsa_mambo,mensalsa_mambo)))/10,
              Math.round(10*slope(m_salsa_mambo,mensalsa_mambo))/10,
              "nycsalsa.html"]
   graphn[2]=["Swing",
              Math.round(10*((tint/365)*slope(w_swing,womenswing)+intcpt(w_swing,womenswing)))/10,
              Math.round(10*slope(w_swing,womenswing))/10,
              Math.round(10*((tint/365)*slope(m_swing,menswing)+intcpt(m_swing,menswing)))/10,
              Math.round(10*slope(m_swing,menswing))/10,
              "nycswing.html"]
   graphn[3]=["Ballroom Competition",
              Math.round(10*((tint/365)*slope(w_ballroom_competition,womenballroom_competition)+intcpt(w_ballroom_competition,womenballroom_competition)))/10,
              Math.round(10*slope(w_ballroom_competition,womenballroom_competition))/10,
              Math.round(10*((tint/365)*slope(m_ballroom_competition,menballroom_competition)+intcpt(m_ballroom_competition,menballroom_competition)))/10,
              Math.round(10*slope(m_ballroom_competition,menballroom_competition))/10,
              "nycbcomp.html"]
   graphn[4]=["Latin Competition",
              Math.round(10*((tint/365)*slope(w_latin_competition,womenlatin_competition)+intcpt(w_latin_competition,womenlatin_competition)))/10,
              Math.round(10*slope(w_latin_competition,womenlatin_competition))/10,
              Math.round(10*((tint/365)*slope(m_latin_competition,menlatin_competition)+intcpt(m_latin_competition,menlatin_competition)))/10,
              Math.round(10*slope(m_latin_competition,menlatin_competition))/10,
              "nyclcomp.html"]
   graphn[5]=["Hustle",
              Math.round(10*((tint/365)*slope(w_hustle,womenhustle)+intcpt(w_hustle,womenhustle)))/10,
              Math.round(10*slope(w_hustle,womenhustle))/10,
              Math.round(10*((tint/365)*slope(m_hustle,menhustle)+intcpt(m_hustle,menhustle)))/10,
              Math.round(10*slope(m_hustle,menhustle))/10,
              "nychustle.html"]
   graphn[6]=["Waltz",
              Math.round(10*((tint/365)*slope(w_waltz,womenwaltz)+intcpt(w_waltz,womenwaltz)))/10,
              Math.round(10*slope(w_waltz,womenwaltz))/10,
              Math.round(10*((tint/365)*slope(m_waltz,menwaltz)+intcpt(m_waltz,menwaltz)))/10,
              Math.round(10*slope(m_waltz,menwaltz))/10,
              "nycwaltz.html"]
   graphn[7]=["WC Swing",
              Math.round(10*((tint/365)*slope(w_west_coast_swing,womenwest_coast_swing)+intcpt(w_west_coast_swing,womenwest_coast_swing)))/10,
              Math.round(10*slope(w_west_coast_swing,womenwest_coast_swing))/10,
              Math.round(10*((tint/365)*slope(m_west_coast_swing,menwest_coast_swing)+intcpt(m_west_coast_swing,menwest_coast_swing)))/10,
              Math.round(10*slope(m_west_coast_swing,menwest_coast_swing))/10,
              "nycwcswing.html"]
   graphn[8]=["Foxtrot",
              Math.round(10*((tint/365)*slope(w_foxtrot,womenfoxtrot)+intcpt(w_foxtrot,womenfoxtrot)))/10,
              Math.round(10*slope(w_foxtrot,womenfoxtrot))/10,
              Math.round(10*((tint/365)*slope(m_foxtrot,menfoxtrot)+intcpt(m_foxtrot,menfoxtrot)))/10,
              Math.round(10*slope(m_foxtrot,menfoxtrot))/10,
              "nycfoxtrot.html"]
   graphn[9]=["All Dances",
              Math.round(10*((tint/365)*slope(w_all,womenall)+intcpt(w_all,womenall)))/10,
              Math.round(10*slope(w_all,womenall))/10,
              Math.round(10*((tint/365)*slope(m_all,menall)+intcpt(m_all,menall)))/10,
              Math.round(10*slope(m_all,menall))/10,
              "statistics.html"]
   graphn.sort(sortAgeAlg);

//  return Math.round(10*ss)/10; 
//  var sl = slope(m_tango,mentango);

  var graphx=new Array()
   graphx[0]=["Argentine Tango",women_tango,               men_tango,               "nyctangow.html",         "nyctangom.html"]
   graphx[1]=["Swing"   ,       women_swing,               men_swing,               "nycswingw.html",         "nycswingm.html"]
   graphx[2]=["WC Swing",       women_west_coast_swing,    men_west_coast_swing,    "nycwcswingw.html",       "nycwcswingm.html"]
   graphx[3]=["Hustle"  ,       women_hustle,              men_hustle,              "nychustlew.html",        "nychustlem.html"]
   graphx[4]=["Waltz"   ,       women_waltz,               men_waltz,               "nycwaltzw.html",         "nycwaltzm.html"]
   graphx[5]=["Foxtrot" ,       women_foxtrot,             men_foxtrot,             "nycfoxtrotw.html",       "nycfoxtrotm.html"]
   graphx[6]=["Quickstep" ,     women_quickstep,           men_quickstep,           "nycquickstepw.html",     "nycquickstepm.html"]
   graphx[7]=["Lifts"     ,     women_lifts,               men_lifts,               "nycliftsw.html",         "nycliftsm.html"]
   graphx[8]=["Ballroom Tango", women_tango_ballroom,      men_tango_ballroom,      "nycballroom_tangow.html","nycballroom_tangom.html"]
   graphx[9]=["Salsa" ,         women_salsa_mambo,         men_salsa_mambo,         "nycsalsaw.html",         "nycsalsam.html"]
  graphx[10]=["Chacha" ,        women_chacha,              men_chacha,              "nycchachaw.html",        "nycchacham.html"]
  graphx[11]=["Merengue" ,      women_merengue,            men_merengue,            "nycmerenguew.html",      "nycmerenguem.html"]
  graphx[12]=["Viennese Waltz", women_viennese,            men_viennese,            "nycviennese_waltzw.html","nycviennese_waltzm.html"]
  graphx[13]=["Bolero" ,        women_bolero,              men_bolero,              "nycbolerow.html",        "nycbolerom.html"]
  graphx[14]=["Peabody" ,       women_peabody,             men_peabody,             "nycpeabodyw.html",       "nycpeabodym.html"]
  graphx[15]=["Samba" ,         women_samba,               men_samba,               "nycsambaw.html",         "nycsambam.html"]
  graphx[16]=["Latin Comp" ,    women_latin_competition,   men_latin_competition,   "nyclcompw.html",         "nyclcompm.html"]
  graphx[17]=["Ballroom Comp" , women_ballroom_competition,men_ballroom_competition,"nycbcompw.html",         "nycbcompm.html"]
  graphx[18]=["Twostep" ,       women_twostep,             men_twostep,             "nyctwostepw.html",       "nyctwostepm.html"]
  graphx[19]=["Square Contra" , women_square,              men_square,              "nycsquarew.html",        "nycsquarem.html"]
  graphx[20]=["Vintage" ,       women_vintage,             men_vintage,             "nycvintagew.html",       "nycvintagem.html"]
  graphx.sort(sortAlg);
  var xmax = getMax(graphx,big_scale);

  var graphy=new Array()
  graphy[0]=["Beginner"     ,women_beginner,    men_beginner]
  graphy[1]=["Intermediate" ,women_intermediate,men_intermediate]
  graphy[2]=["Advanced"     ,women_advanced,    men_advanced]
  graphy[3]=["Competitor"   ,women_competitor,  men_competitor]
  var ymax = getMax(graphy,scale);

  var graphz=new Array()
  graphz[0]=["Teen"     ,women_teen,     men_teen]
  graphz[1]=["Twenties" ,women_twenties, men_twenties]
  graphz[2]=["Thirties" ,women_thirties, men_thirties]
  graphz[3]=["Forties"  ,women_forties, men_forties]
  graphz[4]=["Fifties"  ,women_fifties, men_fifties]
  graphz[5]=["Senior"   ,women_senior, men_senior]
  var zmax = getMax(graphz,scale);

  var graphu=new Array()
  graphu[0]=["No"     ,women_romance_no,    men_romance_no]
  graphu[1]=["Maybe"  ,women_romance_maybe, men_romance_maybe]
  graphu[2]=["Yes"    ,women_romance_yes,  men_romance_yes]
  var umax = getMax(graphu,scale);

  outputHTML +=' The following statistics help to understand ';
  outputHTML +=' who is using the Partner Search, and what ';
  outputHTML +=' they are looking for. ';
  outputHTML +=' The total number of women participating in the NYC ';
  outputHTML +=' Dance Partner Search is ';
  outputHTML += women_total;
  outputHTML +=' and the total number of men is ';
  outputHTML += men_total;
  outputHTML +='. Click on Ratio to sort the dance types by the ';
  outputHTML +=' ratio of the number of women to men looking ';
  outputHTML +=' for a partners in each type of dance.<br><br><hr><br><br>';
  outputHTML +='<center>';
  outputHTML +='<h2>Partner Dances and Participation by Women and Men</h2>';
  outputHTML +='</center>';
  outputHTML +='<br>';

  graphit(graphx,xmax);

  outputHTML +='<br><br>';
  outputHTML +='<center><h2>Age</h2></center>';
  graphlittle(graphz,zmax,'Age');

  outputHTML +='<center><h2>Level of Expertise</h2></center>';
  graphlittle(graphy,ymax,'Level');

//  outputHTML +='<center><h2>Also Looking for Romance</h2></center>';
//  graphlittle(graphu,umax,'Romance');

//  outputHTML +='<center><h2>Average Age By Dance Type</h2></center>';
//  outputHTML +='<center>The <b>Trend</b> columns give the change';
//  outputHTML +=' during the past year in average age.</center>';
//  graphage(graphn);

  elementList.innerHTML = outputHTML;

}