// Version 18.07.2005 - Neu: R68 bei 1%
// (C) ROS 2005

function abc()
{
var list = document.Formular.liste.value+document.Formular.listea.value
if (list =="") list = "Es wurde noch keine Berechnung vorgenommen"
alert(list);
}


function bkonz(c1,c2,c3)
{
var konz=rall[c1]
//alert (c1+" "+c2+" "+c3);
//alert ("r: "+rall[c1]);
if (rall[c2]>konz) konz=rall[c2];
if (rall[c3]>konz) konz=rall[c3];
//alert ("konz "+konz)
return(konz);
}

function zusatz()
{
if (document.Formular.liste.value =="")
{
document.Formular.liste.value = document.Formular.listea.value
}
else
{
document.Formular.liste.value = document.Formular.liste.value + document.Formular.listea.value
}



zaehler=document.Formular.gefzahl1.value;

if (document.Formular.ergebnis.value!=""&&document.Formular.konz.value>0)
zaehler ++;
document.Formular.gefzahl1.value=zaehler;
if (document.Formular.ergebnis.value!="")
{
var rueb=rall.join(",");
document.Formular.rges.value=rueb;
}

//alert(rueb);

document.Formular.r1.value="";
document.Formular.r2.value="";
document.Formular.r3.value="";
document.Formular.r4.value="";
document.Formular.r5.value="";
document.Formular.r6.value="";
document.Formular.r7.value="";
document.Formular.r8.value="";
document.Formular.r9.value="";
document.Formular.r10.value="";
document.Formular.konz.value="";
document.Formular.rgesamt.value="";

}

function Numsort(a,b)
{ return a-b; }


function symbole(sm)
{
for(var j=0;j<9;++j){
var dtest=symb.join(" ");
//alert(dtest);
if (symb[j] == "0" && dtest.indexOf(sm)==-1) {
  symb[j]=sm;
  }
 } 
}

function symbole2(sm)
{
for(var j=0;j<9;++j){
var dtest=symb2.join(" ");

if (symb2[j] == "0" && dtest.indexOf(sm)==-1) {
//alert(j+" "+dtest);
  symb2[j]=sm;
  }
 } 
}

function symbloesch(sy)
{
for(var j=0;j<10;++j){
if (symb[j] == sy)
{
 for(var k=j;k<10;++k) symb[k] = symb[k+1];
j=8;
}
}
}
function symbloesch2(sy)
{
for(var j=0;j<10;++j){
if (symb2[j] == sy)
{
 for(var k=j;k<10;++k) symb2[k] = symb2[k+1];
j=8;
}
}
}

function symbsort()
{
var dtest=symb.join(" ");
//alert(dtest);

   if (dtest.indexOf("itp")> -1&&dtest.indexOf("it.")> -1)symbloesch ("it.gif");
   if (dtest.indexOf("itp")> -1&&dtest.indexOf("ixn")> -1)symbloesch ("ixn.gif");
   
   if (dtest.indexOf("itp")> -1&&dtest.indexOf("ixi")> -1)symbloesch ("ixi.gif");
   if (dtest.indexOf("it.")> -1&&dtest.indexOf("ixn")> -1)symbloesch ("ixn.gif");
   if (dtest.indexOf("it.")> -1&&dtest.indexOf("ixi")> -1)symbloesch ("ixi.gif");
   if (dtest.indexOf("ic")> -1&&dtest.indexOf("ixi")> -1)symbloesch ("ixi.gif");
   if (dtest.indexOf("ic")> -1&&dtest.indexOf("ixn")> -1)symbloesch ("ixn.gif");
   if (dtest.indexOf("ifp")> -1&&dtest.indexOf("if")> -1)symbloesch ("if.gif");
   if (dtest.indexOf("ixn")> -1&&dtest.indexOf("ixi")> -1)symbloesch ("ixi.gif");   

if (dtest.indexOf("itp")> -1&&dtest.indexOf("ic")>-1&&symb[3]!="0")symbloesch ("ic.gif");
if (dtest.indexOf("it.")> -1&&dtest.indexOf("ic")>-1&&symb[3]!="0")symbloesch ("ic.gif");
if (dtest.indexOf("ie")> -1&&dtest.indexOf("if")>-1&&symb[3]!="0")symbloesch ("if.gif");   if (dtest.indexOf("ie")> -1&&dtest.indexOf("io")>-1&&symb[3]!="0")symbloesch ("io.gif");
if (dtest.indexOf("ie")> -1&&dtest.indexOf("ifp")>-1&&symb[3]!="0")symbloesch ("ifp.gif");

}

function res()
{
document.Formular.rges.value="";
document.Formular.liste.value="";
document.Formular.listea.value="";
}

function symloesch()
{
document.bild1.src="images/ileer.gif";
document.bild2.src="images/ileer.gif";
document.bild3.src="images/ileer.gif";
document.bild4.src="images/ileer.gif";
document.bild5.src="images/ileer.gif";
document.bild6.src="images/ileer.gif";
werte=""; z="";

}

function symbaus()
{
symloesch();

// alert(symb[0]+symb[1]+symb[2]+symb[3]);

if (symb[0] != 0) document.bild1.src="images/"+symb[0];
if (symb[1] != 0) document.bild2.src="images/"+symb[1];
if (symb[2] != 0) document.bild3.src="images/"+symb[2];
if (symb2[0] != 0) document.bild4.src="images/"+symb2[0];
if (symb2[1] != 0) document.bild5.src="images/"+symb2[1];
if (symb2[2] != 0) document.bild6.src="images/"+symb2[2];
}

function zusammenfassung()
// Daten in rg und versteckte Felder übertragen
{
var konz = document.Formular.konz.value
//alert ("Start: "+konz);
konz = konz.replace(/,/,".");


var x=1; var tp = 0; var tn = 0; var xn = 0;var xi = 0;var E = 0; var F = 0;var N = 0; 
for(var j=1;j<11;++j){
var dtest=rg.join(" ");dtest=dtest+" ";

if (r[j] != "" && dtest.indexOf(r[j]+" ")==-1)
{

t=r[j];

if (t==26||t==27||t==28)                 // T+ - Gesamtkonz
{ tp=1;
}
if (t==23||t==24||t==25)                 // T - Gesamtkonz
{ tn=1;
}
if (t==20||t==21||t==22||t==40||t==42||t==62||t==63||t==68)    // Xn - Gesamtkonz
{ xn=1;
}
if (t==36||t==37||t==38)                 // Xi - Gesamtkonz
{ xi=1;
}
if (t==1||t==2||t==3||t==4||t==5||t==6||t==16||t==18||t==19||t==44)    // E - Gesamtkonz
{ E=1;
}
if (t==11||t==14||t==15||t==17||t==30)                 // F - Gesamtkonz
{ F=1;
}

if (t==50||t==51||t==52||t==53||t==54||t==55||t==56||t==57||t==58||t==59)   // N - Gesamtkonz
{ N=1;
}


if ( rall[t]>=0){
 rall[t]= rall[t]*1 + konz*1}
  else
{  rall[t]= konz*1}
  
      rg[x]=rn[j];
      x++}
}
                  // 71=T+, 72=T, 73=Xn 74=Xi 75=E 76=F 77=N
if (tp==1){                           // T+ einschreiben
if (rall[71]>0)
{ rall[71]=rall[71]*1 + konz*1}
else
{
rall[71]=konz*1
}}

if (tn==1){                           // T einschreiben
if (rall[72]>0)
{ rall[72]=rall[72]*1 + konz*1}
else
{
rall[72]=konz*1
}}

if (xn==1){                           // Xn einschreiben
if (rall[73]>0)
{ rall[73]=rall[73]*1 + konz*1}
else
{
rall[73]=konz*1
}}

if (xi==1){                           // Xi einschreiben
if (rall[74]>0)
{ rall[74]=rall[74]*1 + konz*1}
else
{
rall[74]=konz*1
}}

if (E==1){                           // E einschreiben
if (rall[75]>0)
{ rall[75]=rall[75]*1 + konz*1}
else
{
rall[75]=konz*1
}}

if (F==1){                           // F einschreiben
if (rall[76]>0)
{ rall[76]=rall[76]*1 + konz*1}
else
{
rall[76]=konz*1
}}

if (N==1){                           // N einschreiben
if (rall[77]>0)
{ rall[77]=rall[77]*1 + konz*1}
else
{
rall[77]=konz*1
}}

var rueb=rall.join(",");

//alert(rueb);

//document.Formular.rges.value = rueb;
//document.Formular.rg2.value=rg[2];
}

function rgles()

// Daten aus den Feldern in rg[] übertragen
{
rg[1]=document.Formular.rges.value;

zus=rg.join(", ");
//alert (zus);

}



function ausgabe()
{
rgles();            // Daten lesen
zusammenfassung();  //Daten in Felder Schreiben

werte = new Array;
i=1
for(var j=1;j<70;++j){
if (rall[j]>0)

{rn[i]=j; werte=werte.concat(rn[i]);i++}
}
var txt = werte.join("x")
txt="x"+txt+"x";
check (txt);

//alert(txt);



rnw = rn.join(", ");
//alert ("rnw "+ rnw);

if (rnw.indexOf("26")> -1) {tausch2(23,0);tausch2(20,0);;tausch2(67,0);}
if (rnw.indexOf("27")> -1) {tausch2(24,0);tausch2(21,0);}
if (rnw.indexOf("28")> -1) {tausch2(25,0);tausch2(22,0);}
if (rnw.indexOf("23")> -1) {tausch2(20,0);tausch2(67,0);}
if (rnw.indexOf("24")> -1) {tausch2(21,0)}
if (rnw.indexOf("25")> -1) {tausch2(22,0)}
if (rnw.indexOf("20")> -1) {tausch2(67,0)}
if (rnw.indexOf("39")> -1) {tausch2(68,0)}
if (rnw.indexOf("35")> -1) {tausch2(34,0);tausch2(36,0);tausch2(37,0);tausch2(38,0);tausch2(41,0);}
if (rnw.indexOf("34")> -1) {tausch2(36,0);tausch2(37,0);tausch2(38,0);tausch2(41,0);}
if (rnw.indexOf("41")> -1) {tausch2(36,0);tausch2(37,0);tausch2(38,0);}
if (rnw.indexOf("12")> -1) {tausch2(11,0);tausch2(10,0)}
if (rnw.indexOf("11")> -1) {tausch2(10,0)}



rn.sort(Numsort);

nwert = new Array
for(var j=1;j<105;++j){
{var nwert = nwert.concat(rn[j]);i++}
}
var wer = nwert.join(", ");
                                // 64 R-Satz Kombinationen:

var rkombi = new Array("68/20/21/22","68/21/22","68/20/22","68/20/21","68/22","68/21","68/20","39/26/27/28","39/26/27","39/26/28","39/27/28","39/26","39/27","39/28","39/23/24/25","39/23/24","39/23/25","39/24/25","39/23","39/24","39/25","48/23/24/25","48/23/24","48/23/25","48/24/25","48/23","48/24","48/25","48/20/21/22","48/20/21","48/20/22","48/21/22","48/20","48/21","48/22","36/37/38","36/37","36/38","37/38","26/27/28","26/27","26/28","27/28","23/24/25","23/24","23/25","24/25","20/21/22","20/21","20/22","21/22","14/15","15/29","42/43","50/53","51/53","52/53")

tmp = new Array(5);

for(j=0;j<57;++j){
tmp[3]=0; tmp[4]=0;
var tz=1; var kombtmp=""
satz=rkombi[j].charAt(0)

for(i=1;i<rkombi[j].length;++i){
 if(rkombi[j].charAt(i) == "/")
  { tz++; satz=rkombi[j].charAt(i+1)}
else
  { tmp[tz] = satz + rkombi[j].charAt(i);}

}
//alert (tmp[1]+" "+tmp[2]+" "+tmp[3]);

if (tmp[4]>0){                  // Vierer-Sätze
  if (wer.indexOf(tmp[1])> -1&&wer.indexOf(tmp[2])> -1&&wer.indexOf(tmp[3])> -1&&wer.indexOf(tmp[4])> -1)
   {
//   alert("t4");
   tausch(tmp[1],tmp[1]+"/"+tmp[2]+"/"+tmp[3]+"/"+tmp[4]);tausch(tmp[2],0);tausch(tmp[3],0);tausch(tmp[4],0);kombtmp=kombtmp+tmp[1]+"/"+tmp[2]+"/"+tmp[3]+"/"+tmp[4];
   }}



if (tmp[3]>0 && tmp[4]<1){                  // Dreier-Sätze
  if (wer.indexOf(tmp[1])> -1&&wer.indexOf(tmp[2])> -1&&wer.indexOf(tmp[3])> -1 &&kombtmp.indexOf(tmp[1])== -1)
   {
//      alert("t3");
   tausch(tmp[1],tmp[1]+"/"+tmp[2]+"/"+tmp[3]);tausch(tmp[2],0);tausch(tmp[3],0)
   }}

if (tmp[3]<1){                                 // Zweier-Sätze 
  if (wer.indexOf(tmp[1])> -1&&wer.indexOf(tmp[2])> -1)
   {
//      alert("t2 " + wer);
   tausch(tmp[1],tmp[1]+"/"+tmp[2]);tausch(tmp[2],0)
   }}
}


nwert = new Array
for(var j=90;j<105;++j)
{{

 if (rn[j]>0)
 {
  var nwert = nwert.concat(rn[j]);i++}
 }

}
var wer = nwert.join(", ");

//alert(wer);

rall[78]=0;
rall[79]=0;
rall[80]=0;

for(j=0;j<57;++j){
tmp[3]=0; tmp[4]=0;
tz=1; kombtmp=""
satz=rkombi[j].charAt(0)

for(i=1;i<rkombi[j].length;++i){
 if(rkombi[j].charAt(i) == "/")
  { tz++; satz=rkombi[j].charAt(i+1)}
else
  { tmp[tz] = satz + rkombi[j].charAt(i);}

}
//alert (tmp[1]+" "+tmp[2]+" "+tmp[3]);

if (tmp[4]>0){                  // Vierer-Sätze
  if (wer.indexOf(tmp[1])> -1&&wer.indexOf(tmp[2])> -1&&wer.indexOf(tmp[3])> -1&&wer.indexOf(tmp[4])> -1)
   {
   //alert("t4");
   tausch(tmp[1],tmp[1]+"/"+tmp[2]+"/"+tmp[3]+"/"+tmp[4]);tausch(tmp[2],0);tausch(tmp[3],0);tausch(tmp[4],0);kombtmp=kombtmp+tmp[1]+"/"+tmp[2]+"/"+tmp[3]+"/"+tmp[4];
   }}



if (tmp[3]>0 && tmp[4]<1){                  // Dreier-Sätze
  if (wer.indexOf(tmp[1])> -1&&wer.indexOf(tmp[2])> -1&&wer.indexOf(tmp[3])> -1 &&kombtmp.indexOf(tmp[1])== -1)
   {
      //alert("t3");
   tausch(tmp[1],tmp[1]+"/"+tmp[2]+"/"+tmp[3]);tausch(tmp[2],0);tausch(tmp[3],0)
   }}

if (tmp[3]<1){                                 // Zweier-Sätze 
  if (wer.indexOf(tmp[1])> -1&&wer.indexOf(tmp[2])> -1)
   {
      //alert("t2 " + wer);
   tausch(tmp[1],tmp[1]+"/"+tmp[2]);tausch(tmp[2],0)
   }}
}

for(var k=1;k<105;++k){
for(var l=2;l<k;++l){
if (rn[k]==rn[l] && rn[k]!="") {rn[l]=0}
}
}


werte= new Array
i=1
for(var j=1;j<105;++j){
if (rn[j]> "")
{var werte = werte.concat(rn[j]);i++}
}


//alert("Werte= "+werte);

Zahlenausgabe = werte.join(", ");
uebergabe = werte.join(",");
//alert(uebergabe);
document.Formular.ergebnis.value = Zahlenausgabe;              // Ausgabe
document.form2.num.value = uebergabe;              // Ausgabe
return(werte);
}


// R-Sätze austauschen
function tausch(ew,rw)   
{
for(var j=1;j<105;++j){
if (rn[j]==ew){ 
//alert ("rnalt "+rn[j]);
if (ew!=rall[78]&&ew!=rall[79]&&ew!=rall[80]){ 
rn[j]=rw; 
//alert (ew + " " + rw);
}
}
}
}


// R-Sätze in rn austauschen
function tausch2(ew,rw)   
{
for(var j=1;j<31;++j){
if (rn[j]==ew){ 
rn[j]=rw;
//alert ("tausch2")
}
}
}



// R-Sätze austauschen
function neu(rw)   
{
//alert (ew+" "+rw);
for(var j=1;j<11;++j){
if (rn[j]==""){ 
rn[j]=rw; j=11
}
}
}
function rtrenn(j,satz)
{
if (j==1)document.Formular.r1.value=satz;
if (j==2)document.Formular.r2.value=satz;
if (j==3)document.Formular.r3.value=satz;
if (j==4)document.Formular.r4.value=satz;
if (j==5)document.Formular.r5.value=satz;
if (j==6)document.Formular.r6.value=satz;
if (j==7)document.Formular.r7.value=satz;
if (j==8)document.Formular.r8.value=satz;
if (j==9)document.Formular.r9.value=satz;
if (j==10)document.Formular.r10.value=satz;
}

function chkFormular()
{
zaehler=document.Formular.gefzahl1.value;
symb = new Array(0,0,0,0,0,0,0,0,0,0,0);
symb2 = new Array(0,0,0,0,0,0,0,0,0,0,0);

var rgesamt = document.Formular.rgesamt.value;
if (rgesamt.length>0){

document.Formular.r1.value="";
document.Formular.r2.value="";
document.Formular.r3.value="";
document.Formular.r4.value="";
document.Formular.r5.value="";
document.Formular.r6.value="";
document.Formular.r7.value="";
document.Formular.r8.value="";
document.Formular.r9.value="";
document.Formular.r10.value="";


var tz=1
satz=rgesamt.charAt(0)
for(i=1;i<rgesamt.length;++i){

   if(rgesamt.charAt(i) == "-"
   || rgesamt.charAt(i) == "/"
   || rgesamt.charAt(i) == " "){
 rtrenn (tz,satz); tz++; satz=""}
else
var satz = satz + rgesamt.charAt(i);
}
rtrenn (tz,satz);
}
// Gesamtliste anlegen
rall = new Array(80);
for(i=0;i<81;++i){
rall[i] = 0
}

// R-Sätze checken
rg=new Array(10);
for(var j=1;j<11;++j){
rg[j]="";
}


rn=new Array(100);
rn[1]=document.Formular.r1.value
rn[2]=document.Formular.r2.value
rn[3]=document.Formular.r3.value
rn[4]=document.Formular.r4.value
rn[5]=document.Formular.r5.value
rn[6]=document.Formular.r6.value
rn[7]=document.Formular.r7.value
rn[8]=document.Formular.r8.value
rn[9]=document.Formular.r9.value
rn[10]=document.Formular.r10.value
for(var j=11;j<101;++j){
rn[j]="";
}
for(var j=2;j<11;++j){
for(var k=11;k>1;--k){
if (rn[j]=rn[k]&&rn[j]!="")rn[k]=""
}
}


r=new Array(10)
r[1]=document.Formular.r1.value
r[2]=document.Formular.r2.value
r[3]=document.Formular.r3.value
r[4]=document.Formular.r4.value
r[5]=document.Formular.r5.value
r[6]=document.Formular.r6.value
r[7]=document.Formular.r7.value
r[8]=document.Formular.r8.value
r[9]=document.Formular.r9.value
r[10]=document.Formular.r10.value


for(var j=1;j<11;++j)
{
var chkZ = 1;
for(i=0;i<r[j].length;++i)
   if(r[j].charAt(i) < "0"
   || r[j].charAt(i) > "9")
     chkZ = -1;
 if(chkZ == -1) {
   alert("Kein gültiger R-Satz!");
   
   if (j == 10) {document.Formular.r10.focus(); return false;}
      if (j == 9) {document.Formular.r9.focus(); return false;}
      if (j == 8) {document.Formular.r8.focus();return false;}
      if (j == 7) {document.Formular.r7.focus();return false;}
      if (j == 6) {document.Formular.r6.focus();return false;}
      if (j == 5) {document.Formular.r5.focus();return false;}
      if (j == 4) {document.Formular.r4.focus();return false;}
      if (j == 3) {document.Formular.r3.focus();return false;}
      if (j == 2) {document.Formular.r2.focus();return false;}
      if (j == 1) {document.Formular.r1.focus();return false;}
   return false;
  }
if(r[j] > 0){
 if(r[j] < 1  || r[j] > 68 || r[j]==13 || r[j]==47)  {
   alert("Kein gültiger R-Satz!");
   if (j == 10) {document.Formular.r10.focus(); return false;}
      if (j == 9) {document.Formular.r9.focus(); return false;}
      if (j == 8) {document.Formular.r8.focus();return false;}
      if (j == 7) {document.Formular.r7.focus();return false;}
      if (j == 6) {document.Formular.r6.focus();return false;}
      if (j == 5) {document.Formular.r5.focus();return false;}
      if (j == 4) {document.Formular.r4.focus();return false;}
      if (j == 3) {document.Formular.r3.focus();return false;}
      if (j == 2) {document.Formular.r2.focus();return false;}
      if (j == 1) {document.Formular.r1.focus();return false;}
   return false;
  }
 }
}
//r.sort(Numsort);

if(document.Formular.konz.value == "") {
   alert("Bitte die Konzentration in Gewichts-% an!");
   document.Formular.konz.focus();
   return false;
}

var konz = document.Formular.konz.value
//alert ("Start: "+konz);
konz = konz.replace(/,/,".");
var konzx = konz                     // Für Listenausgabe


document.Formular.konz.value = konz;

for(i=0;i<document.Formular.konz.length;++i)
   if(document.Formular.konz.charAt(i) < "0"
   || document.Formular.konz.charAt(i) > "9")
         // Prozentangabe prüfen
{
alert("Kein gültiger Zahlenwert!");
document.Formular.konz.focus();
return false;
}

if(document.Formular.konz.value < 0.00001 || document.Formular.konz.value > 100)    // Prozentangabe prüfen
{
alert("Der Wert muss zwischen 0 und 100% liegen!");
document.Formular.konz.focus();
return false;
}

//rn.sort(Numsort);
werte = rn.join(" ");


// Eingabe fertig

if (document.Formular.rges.value != "")
{
var tmp = document.Formular.rges.value;
var tz=0;
satz=tmp.charAt(0);

for(i=1;i<tmp.length;++i){

   if(tmp.charAt(i) == ",")
   {
 rall[tz] = satz; tz++; satz=""}
else
var satz = satz + tmp.charAt(i);
}
rall[tz] = satz; tz++; satz="";

}

z=1
for(i=1;i<71;++i)
{
if (rall[i]>0)
{rn[z]=i;z++}
}
werte = werte.concat(rg[j]);


werte = new Array;
for(var j=0;j<11;++j){

if (r[j] > 0) {
  werte = werte.concat(r[j]);
                }
}

werte.sort(Numsort);
var liste = werte.join(", ");

// Doppel-Test für R 39,68,48
if (liste.indexOf("48")>-1||liste.indexOf("39")>-1||liste.indexOf("68")>-1)
{
for(var j=0;j<11;++j){
for(var k=j+1;k<11;++k){
if (r[j]==r[k]&&r[j]>0)
{
for(var l=78;l<81;++l){
if (rall[l]<1)
{ rall[l]=r[j]; l=80}

}}}}
}


var list ="Substanz "+zaehler+": R "+liste + "     ("+konzx+" %ig)"+"\n";
document.Formular.listea.value = list

Zahlenausgabe = werte.join(", ");
//alert (Zahlenausgabe);
var txt = werte.join(" ")


//check (txt)

werte = ausgabe();

//  Symbole berechnen
z = werte.join("x");
z= "x"+z+"x";

if (z.indexOf("26")> -1||z.indexOf("27")> -1||z.indexOf("28")> -1)
{
symbole("itp.gif"); 
}
if (z.indexOf("23")> -1||z.indexOf("24")> -1||z.indexOf("25")> -1)
{
symbole("it.gif"); 
}
if (z.indexOf("45")> -1 || z.indexOf("49")> -1)
{
symbole("it.gif"); 
}
if (z.indexOf("60")> -1 || z.indexOf("61")> -1)
{
symbole("it.gif");
}
if (z.indexOf("46")> -1)
{
symbole("it.gif");
}
if (z.indexOf("20")> -1||z.indexOf("21")> -1||z.indexOf("22")> -1||z.indexOf("40")> -1||z.indexOf("42")> -1||z.indexOf("62")> -1||z.indexOf("63")> -1||z.indexOf("65")> -1||z.indexOf("68")> -1)
{
symbole("ixn.gif"); 
}
if (z.indexOf("36")> -1||z.indexOf("37")> -1||z.indexOf("38")> -1||z.indexOf("41")> -1||z.indexOf("43")> -1)
{
symbole("ixi.gif"); 
}
if (z.indexOf("x1x")> -1||z.indexOf("x2x")> -1||z.indexOf("x3x")> -1||z.indexOf("x4x")> -1||z.indexOf("x5x")> -1||z.indexOf("x6x")> -1||z.indexOf("16")> -1||z.indexOf("18")> -1||z.indexOf("19")> -1||z.indexOf("44")> -1)
{
symbole("ie.gif"); 
}
if (z.indexOf("12")> -1)
{
symbole("ifp.gif");
}

if (z.indexOf("11")> -1||z.indexOf("14")> -1||z.indexOf("15")> -1||z.indexOf("17")> -1||z.indexOf("30")> -1)
{
symbole("if.gif"); 
}
if (z.indexOf("x7x")> -1||z.indexOf("x8x")> -1)
{
symbole("io.gif"); 
}
if (z.indexOf("34")> -1||z.indexOf("35")> -1)
{
symbole("ic.gif"); 
}
if (z.indexOf("50")> -1||z.indexOf("51")> -1||z.indexOf("54")> -1||z.indexOf("55")> -1||z.indexOf("56")> -1||z.indexOf("57")> -1)
{
symbole("in.gif"); 
}
if (z.indexOf("45")> -1 || z.indexOf("49")> -1)
{
symbole2("ik.gif"); 
}
if (z.indexOf("60")> -1 || z.indexOf("61")> -1)
{
symbole2("ir.gif"); 
}
if (z.indexOf("46")> -1)
{
symbole2("im.gif"); 
}

symbsort();
symbaus();
//document.bild1.src="images/it+.gif"

 document.Formular.gefzahl2.value = zaehler;
 document.Formular.ergebnis.value = Zahlenausgabe;              // Ausgabe

if (Zahlenausgabe.length == 0)
document.Formular.ergebnis.value = "Keine Einstufung erforderlich";

  return false;
}
function check (txt)
{
var wtausch
//alert ("txt: "+txt);

var xnkenn = (rall[71]/0.1+rall[72]/3+rall[73]/25);
   //alert (xnkenn);
var tkenn = (rall[71]/1 + rall[72]/25);
   //alert (tkenn);



// *** Xn
if (txt.indexOf("20")> -1 ||txt.indexOf("21")> -1||txt.indexOf("22")> -1||txt.indexOf("40")> -1){
   

   if (rall[73] < 10){    
   tausch(48,0)
   //if (txt.indexOf("45")== -1&&txt.indexOf("49")== -1) tausch(40,0)
   }
   if (rall[73] < 25 && txt.indexOf("48")== -1 && xnkenn<1){    
   tausch(22,0);tausch(21,0);tausch(20,0);
//   document.Formular.ergebnis2.value = "Keine Einstufung erforderlich.";
   }
   if (rall[73] < 10 && txt.indexOf("48")> -1 && xnkenn<1){    
   tausch(22,0);tausch(21,0);tausch(20,0);
//   document.Formular.ergebnis2.value = "Keine Einstufung erforderlich.";
   }
   if (rall[73] < 10 && xnkenn<1){    
   tausch(68,0);
   }
}

// *** T
if (txt.indexOf("23")> -1 ||txt.indexOf("24")> -1||txt.indexOf("25")> -1)
{

 if(txt.indexOf("39")> -1||txt.indexOf("48")> -1)
 {      
  if (rall[72] < 10 && rall[72] >= 1 && tkenn <1){    
      tausch(23,20);tausch(24,21);tausch(25,22);tausch(39,68);
      }
      
      
   if (rall[72]>0 && rall[72]<1 && xnkenn<1){    
   tausch(39,0);tausch(48,0);tausch(23,0);tausch(24,0);tausch(25,0);
   }
if (rall[72]>0 && rall[72]<1 && xnkenn>= 1){    
   tausch(23,20);tausch(24,21);tausch(25,22);tausch(39,68);
   }



 }
   else
 {
   if (rall[72] < 25 && rall[72] >= 3 && tkenn <1){    
//     document.Formular.ergebnis2.value = "Rückstufung auf Xn";
      tausch(23,20);tausch(24,21);tausch(25,22);
      }
   
   if (rall[72]>0 && rall[72]<3 && xnkenn<1){    
   tausch(39,0);tausch(48,0);tausch(23,0);tausch(24,0);tausch(25,0);
   }
if (rall[72]>0 && rall[72]<3 && xnkenn>= 1){    
   tausch(23,20);tausch(24,21);tausch(25,22);tausch(39,68);
   }
  
  }
}

// *** T+
if (txt.indexOf("26")> -1 ||txt.indexOf("27")> -1||txt.indexOf("28")> -1){

  if (rall[71]<7&&rall[71]>=1){    
//alert ("austausch " +tausch);
      tausch(26,23);tausch(27,24);tausch(28,25);
      }
   if (rall[71]>=0.1 &&rall[71]<1){    
//   document.Formular.ergebnis2.value = "Rückstufung auf Xn";
   tausch(26,20);tausch(27,21);tausch(28,22);tausch(39,68);
   }

   if (rall[71]<0.1){    
//   document.Formular.ergebnis2.value = "Rückstufung auf Xn";
   tausch(26,0);tausch(27,0);tausch(28,0)
   }
}

var xikenn = (bkonz(35)/5+bkonz(34)/10+bkonz(41)/10);
   //alert (xikenn);


// *** Xi 41
if (txt.indexOf("41")> -1){
konz = bkonz(41);
   if (konz < 10 && konz >= 5 && xikenn<1){    
      tausch(41,0);neu(36);
      }
   if (konz < 5 && xikenn<1){    
      tausch(41,0)
      }

}
var xi36kenn = (bkonz(35)/1+bkonz(34)/5+bkonz(41)/5+bkonz(36,37,38)/20);
   //alert (xi36kenn);
if (xi36kenn >=1)
{
if (bkonz(35)>0 || bkonz(34)>0)
{
neu(36);neu(38)
}
}


// *** Xi 36/37/38
if (txt.indexOf("36")> -1||txt.indexOf("37")> -1||txt.indexOf("38")> -1){
konz = bkonz(36,37,38);
   if (konz < 20 && xi36kenn<1){    
      tausch(36,0);tausch(37,0);tausch(38,0);
//   document.Formular.ergebnis2.value = "Keine Einstufung erforderlich.";
      }
}


var ckenn = (bkonz(35)/5+bkonz(34)/10);
   //alert (ckenn);


// *** C 34
if (txt.indexOf("34")> -1){
konz = bkonz(34);
   if (konz < 10 && konz >= 5 && ckenn<1){    
      tausch(34,0);tausch(36,0);tausch(38,0);neu(36);neu(38);

      }
      if (konz >= 10 ){
 neu(41);
      } 
      if (konz < 5 && ckenn<1){
 tausch(34,0);
      }
//if (txt.indexOf("34")> -1) {tausch(36,0);tausch(37,0);tausch(38,0);}

}


// *** C 35

if (txt.indexOf("35")> -1){
konz = bkonz(35);

   if (konz < 10 && konz >= 5 ){    
      tausch(34,0);tausch(35,34);
      }
      if (konz >= 5 ){
 tausch(41,0);neu(41);
      } 
      if (konz < 1 ){
 tausch(35,0);
      }
     
   if (konz < 5 && konz >= 1 ){    
      tausch(35,0);tausch(36,0);tausch(38,0);neu(36);neu(38);
//      document.Formular.ergebnis2.value = "Rückstufung auf Xi";
      }

}


   // *** Xn 42,43
if (txt.indexOf("42")> -1||txt.indexOf("43")> -1||txt.indexOf("21")> -1){
konz = bkonz(42);
   if (konz < 1 ){    
      tausch(42,0)
      }
konz = bkonz(43);
   if (konz < 1 ){    
      tausch(43,0)
      }   
}

   // *** N 50-53 

 if (rall[77] < 0.25){    
      tausch(50,0);tausch(51,0);tausch(52,0);tausch(53,0);
      }


   // *** R 60, 61
if (txt.indexOf("60")> -1||txt.indexOf("61")> -1){
konz = bkonz(60,61);
   if (konz < 0.5 ){    
      tausch(60,0);tausch(61,0);
      }
}

   // *** Xn R 62, 63
if (txt.indexOf("62")> -1||txt.indexOf("63")> -1){
konz = bkonz(62,63);
   if (konz < 5 && rall[73]<10){    
      tausch(62,0);tausch(63,0);
      }
}
   // *** R 67
if (txt.indexOf("67")> -1){
konz = bkonz(67);
   if (konz < 15 ){    
      tausch(67,0);
      }
}
  // *** R 68
if (txt.indexOf("68")> -1){
konz = bkonz(68);
   if (konz < 1 ){    
      tausch(68,0);
      }
}


   // *** R 40
if (txt.indexOf("40")> -1){
konz = bkonz(40);
   if (konz < 1 ){    
      tausch(40,0);
      }
     }

   // *** R 10
if (txt.indexOf("10")> -1){
konz = bkonz(10);
   if (konz < 10 ){    
      tausch(10,0);
      }
}

   // *** R 11
if (txt.indexOf("11")> -1||txt.indexOf("14")> -1||txt.indexOf("15")> -1||txt.indexOf("17")> -1||txt.indexOf("30")> -1){
konz = rall[76]
   if (konz < 10 ){    
      tausch(11,0);tausch(14,0);tausch(15,0);tausch(17,0);tausch(30,0);
      }
    if (konz < 25 && konz >= 10 ){    
      tausch(10,0);tausch(11,10);
    }
}

   // *** F 30
if (txt.indexOf("30")> -1){
konz = bkonz(30);
if (konz < 25 && konz >= 10 ){    
      tausch(30,10);
      }
   if (konz < 10 ){    
      tausch(30,0);
      }
}


   // *** R 7, 8
   if (txt.indexOf("x8x")> -1||txt.indexOf("x7x")> -1){
   konz = bkonz(7,8); 
   if (konz < 5 ){
      tausch(7,0);tausch(8,0);
            }
   }     

// *** R 1-6,16,18,19,44     E

   if (rall[75] < 10 ){
 tausch(1,0);tausch(2,0);tausch(3,0);tausch(4,0);tausch(5,0); tausch(6,0);tausch(16,0);
 tausch(18,0);tausch(19,0);tausch(44,0);
      
         }

// *** R 48
if (txt.indexOf("48")>-1){
 konz = bkonz(48);
 	
    if (konz < 1 ){    
tausch(48,0)
    }}        
         
         
// *** R 52
if (txt.indexOf("52")>-1){
 konz = bkonz(52);
 	
    if (konz < 25 ){    
tausch(52,0)
    }}         

// *** R 51,53
if (txt.indexOf("51")>-1&&txt.indexOf("53")>-1){
 konz = bkonz(51);tausch(52,0);
	
 	if (konz >= 2.5 && konz < 25 ){    
      tausch(51,52);
    }
    
    if (konz < 2.5 ){    
tausch(51,0)
    }}         

         
            
// *** R 50,53
if (txt.indexOf("50")>-1&&txt.indexOf("53")>-1){
 konz = bkonz(50);tausch(51,0);tausch(52,0);
	
 	if (konz >= 2.5 && konz < 25 ){    
      tausch(50,51);
    }
    
    if (konz >= 0.25 && konz < 2.5 ){    
      tausch(50,52);
    }
    if (konz < 0.25 ){    
tausch(50,0);tausch(53,0)
    }}         
       
// *** R 53
    if (bkonz(53)<25 && bkonz(50)<.25 && bkonz(51)<2.5 && bkonz(52)<25) tausch(53,0)

// *** R 50
if (txt.indexOf("50")>-1&&txt.indexOf("53")==-1){
 konz = bkonz(50);
 	
    if (konz < 25 ){    
tausch(50,0)
    }}         

// *** R 51
if (txt.indexOf("51")>-1&&txt.indexOf("53")==-1){
 konz = bkonz(51);
 	
    if (konz < 25 ){    
tausch(51,0)
    }}                
                      
         
var wloesch = new Array(1,2,3,4,5,6,7,8,9,10,11,12,13,29,31,32,33,39,45,46,47,48,49,54,55,56,57,58,59,64,65,66,67,68)

for (var i=0;i<34;i++)
{
konz = bkonz(wloesch[i]);

if (konz < 0.1)
{ tausch(wloesch[i],0)}	
}	    

    
}