//Hier sind die Zuschläge für die versch. Straßengattungen, 
//Geschwingigkeitsfaktoren etc. in Arrays gespeichert, 
//Rückgabe des entsprechenden Wertes 

function strgattung(zeile,spalte)
  {
    gattung = new Array(4);
    for (i=0; i < gattung.length; ++i)
      {
      gattung[i] = new Array(6);
      }
    gattung[0][0] = 1;
    gattung[1][0] = 2;
    gattung[2][0] = 3;
    gattung[3][0] = 4;

    gattung[0][1] = 0.014;
    gattung[1][1] = 0.011;
    gattung[2][1] = 0.008;
    gattung[3][1] = 0.011;

    gattung[0][2] = 25;
    gattung[1][2] = 20;
    gattung[2][2] = 20;
    gattung[3][2] = 10;

    gattung[0][3] = 45;
    gattung[1][3] = 20;
    gattung[2][3] = 10;
    gattung[3][3] = 3;

    gattung[0][4] = 0.92;
    gattung[1][4] = 1;
    gattung[2][4] = 1.03;
    gattung[3][4] = 1.06;

    gattung[0][5] = 1.66;
    gattung[1][5] = 1;
    gattung[2][5] = 0.52;
    gattung[3][5] = 0.32;

    return gattung[zeile-1][spalte-1];
  }

function geschwfakt(v)
  {
    if (v <= 30) {return 1;}
    else if (v <= 40) {return 2;}
    else if (v <= 60) {return 3;}
    else {return 4;}
  }

function oberflaeche(zeile,spalte)
  {
    oberfl = new Array(9);
    for (i=0; i < oberfl.length; ++i)
      {
      oberfl[i] = new Array(4);
      }

/*
0: nicht geriff. Gußasphalt, Asph.Beton, Splittmastix
1: Betone, geriffelte  Gußasphalte
2: Pflaster mit ebener  Oberfläche
3: sonstiges Pflaster
4: Betone mit Stahlbesenstrich mit L&auml;ngsgl&auml;tter
5: Betone ohne Stahlbesenstrich mit L&auml;ngsgl&auml;tter
6: Splitmastixasphalte 0/8, 0/11 ohne Absplittung
7: offenporige Asphalte 0/11
8: offenporige Asphalte 0/8
*/

// 0 -  30 km/
    oberfl[0][0] = 0;
    oberfl[1][0] = 1;
    oberfl[2][0] = 2;
    oberfl[3][0] = 3;
    oberfl[4][0] = 0;
    oberfl[5][0] = 0;
    oberfl[6][0] = 0;
    oberfl[7][0] = 0;
    oberfl[8][0] = 0;

//  >30 - 40 km/
    oberfl[0][1] = 0;
    oberfl[1][1] = 1.5;
    oberfl[2][1] = 2.5;
    oberfl[3][1] = 4.5;
    oberfl[4][1] = 0;
    oberfl[5][1] = 0;
    oberfl[6][1] = 0;
    oberfl[7][1] = 0;
    oberfl[8][1] = 0;

// >40-60 km/
    oberfl[0][2] = 0;
    oberfl[1][2] = 2;
    oberfl[2][2] = 3;
    oberfl[3][2] = 6;
    oberfl[4][2] = 0;
    oberfl[5][2] = 0;
    oberfl[6][2] = 0;
    oberfl[7][2] = 0;
    oberfl[8][2] = 0;

// >60 km/
    oberfl[0][3] = 0;
    oberfl[1][3] = 2;
    oberfl[2][3] = 3;
    oberfl[3][3] = 6;
    oberfl[4][3] = 1;
    oberfl[5][3] = -2;
    oberfl[6][3] = -2;
    oberfl[7][3] = -4;
    oberfl[8][3] = -5;

    return oberfl[zeile-1][spalte-1];
  }

//Jahresfaktor (für Verkehrswertprognose)
function jfakt(j)
  {
    jfaktor = new Array(31);

    jfaktor[0] = 0.82;
    jfaktor[1] = 0.84;
    jfaktor[2] = 0.86;
    jfaktor[3] = 0.88;
    jfaktor[4] = 0.9;
    jfaktor[5] = 0.92;
    jfaktor[6] = 0.94;
    jfaktor[7] = 0.955;
    jfaktor[8] = 0.97;
    jfaktor[9] = 0.985;
    jfaktor[10] = 1;
    jfaktor[11] = 1.01;
    jfaktor[12] = 1.02;
    jfaktor[13] = 1.04;
    jfaktor[14] = 1.05;
    jfaktor[15] = 1.06;
    jfaktor[16] = 1.07;
    jfaktor[17] = 1.08;
    jfaktor[18] = 1.085;
    jfaktor[19] = 1.095;
    jfaktor[20] = 1.1;
    jfaktor[21] = 1.11;
    jfaktor[22] = 1.12;
    jfaktor[23] = 1.125;
    jfaktor[24] = 1.13;
    jfaktor[25] = 1.135;
    jfaktor[26] = 1.14;
    jfaktor[27] = 1.15;
    jfaktor[28] = 1.155;
    jfaktor[29] = 1.16;
    jfaktor[30] = 1.17;

    return jfaktor[j-1985];
  }