// // // Mensurberechnung und -analyse für Orgelpfeifen // // Autor: Arndt Brünner // // Version: 13. 4. 2001, 17:53 // var yy=new Array(61); function ErzeugeTabelle() { pr('\n
'); pr('\n'); for(var i=1;i<61;i++) { pr('\n'); yy[i-1]=""; } pr('
TasteMaß
'+GetTonName(i)+' '); var Name="y"+(i-1); pr('
  
'); } function pr(t){document.write(t);} function MensurAnalyse() { for (var i=0 ; i<61 ; i++) eval('yy[i]=document.f.y'+i+'.value;'); var Start=document.f.von.selectedIndex; var Ende=document.f.bis.selectedIndex; var R=GetFuss(document.f.Register.options[document.f.Register.selectedIndex].value,document.f.txtRegister.value); var f=document.f.Funktionsart.selectedIndex+1; var funkt=""; var Nummer=1; var t=new String; var tt=new String; var sep="\t"; //unescape("%09"); var MZ; if (document.f.MensurAnzeigen.checked==true) MZ=1; else MZ=0; var rund=Number(document.f.AnzDez.options[document.f.AnzDez.selectedIndex].value); var r="Ergebnis der Mensuranalyse"; r+=''; r+='

Ergebnis der Mensuranalyse

'; t=""; for (var i=Start;i"; if (f<6) r+="Nr.Art Teilung  arcanum Oktav-
 teilung Standard-
 abweichung  Funktionsterm \n"; switch (f) { case 0: // automatisch funkt=GetExpC(t,2)+"
"; funkt+=GetExpG(t,2)+"
"; funkt+=GetPolynom(t,1)+"
"; funkt+=GetPolynom(t,2)+"
"; funkt+=GetPolynom(t,3)+"
"; break; case 1: // e + c funkt=GetExpC(t,2); if ((Math.abs(q)==5)||(Math.abs(q)>=24)||(SA>5)) {alert("Keine sinnvolle Exponentialfunktion gefunden.");return;} r+=""+Nummer+"Exp+Const"+GetIntervall(q)+""+Runden(k[0],rund)+"1 : "+Runden(Math.pow(2,-12/q),4)+BTest(q)+""; r+=""+SA+""+funkt+"\n"; Nummer++; break; case 2: // e + g funkt=GetExpG(t,2); if ((Math.abs(q)==5)||(Math.abs(q)>=24)||(SA>5)) {alert("Keine sinnvolle Exponentialfunktion gefunden.");return;} r+=""+Nummer+"Exp+Gerade"+GetIntervall(q)+""+(Runden(k[1],rund)+"x + "+Runden(k[0],rund)).replace(/\+\-/g,"-").replace(/\+ \-/g," - ")+"1 : "+Runden(Math.pow(2,-12/q),4)+BTest(q)+""; r+=""+SA+""+funkt+"\n"; Nummer++; break; case 3: // p1 funkt=GetPolynom(t,1); if ((Math.abs(q)==5)||(Math.abs(q)>=24)||(SA>5)) {alert("Keine passende Gerade gefunden.");return;} r+=""+Nummer+"Gerade    "; r+=""+SA+""+funkt+"\n"; break; case 4: // p2 funkt=GetPolynom(t,2); if ((Math.abs(q)==5)||(Math.abs(q)>=24)||(SA>5)) {alert("Keine passende Parabel gefunden.");return;} r+=""+Nummer+"Parabel   "; r+=""+SA+""+funkt+"\n"; break; case 5: // p3 funkt=GetPolynom(t,3); if ((Math.abs(q)==5)||(Math.abs(q)>=24)||(SA>5)) {alert("Keine passende kubische Parabel gefunden.");return;} r+=""+Nummer+"kubische Parabel   "; r+=""+SA+""+funkt+"\n"; break; case 6: // alle r+='\n'; funkt="\n"; funkt+="\n"; funkt+="\n"; funkt+="\n"; funkt+="\n"; r+=funkt+"
Art der FunktionFunktionstermStandardabweichung
Exponential+Konstante"+GetExpC(t,2)+""+SA+"
Exponential+Gerade"+GetExpG(t,2)+""+SA+"
Gerade"+GetPolynom(t,1)+""+SA+"
Parabel"+GetPolynom(t,2)+""+SA+"
kubische Parabel"+GetPolynom(t,3)+""+SA+"
"; break; } //r+='

zurück zur Eingabe

'; r+='

'; r+=''; } r+="
\n'; if (f<6) r+=""; if ((MZ==1)&&(f<6)) r+=""; if(f==6)r+=""; r+="\n"; for (i=Start;i"; if ((MZ==1)&&(f<6)) { r+=""; tt+=sep+GetMensur(i,R,M,1); } r+="\n"; tt+="\r\n"; } if (f<6) r+='\n'; else ; if (document.f.KommaArt.selectedIndex==0) { r=r.replace(/\./g,",").replace(/Nr\,/,"Nr."); tt=tt.replace(/\./g,","); } r=r.replace(/Kub\,/,"Kub."); r=r.replace(/ory\,back/,"ory.back"); r=r.replace(/ \,/g,"0,").replace(/\-\,/g,"-0,").replace(/\+\,/g,"+0,").replace(/\>\-\,/g,">-0,").replace(/\>\,/g,">0,"); r=r.replace(/ \./g,"0.").replace(/\-\./g,"-0.").replace(/\+\./g,"+0.").replace(/\>\-\./g,">-0.").replace(/\>\./g,">0.").replace(/\+\-/g,"-"); tt=tt.replace(/ \,/g,"0,").replace(/\-\,/g,"-0,").replace(/\+\,/g,"+0,").replace(/\>\-\,/g,">-0,").replace(/\>\,/g,">0,"); tt=tt.replace(/ \./g,"0.").replace(/\-\./g,"-0.").replace(/\+\./g,"+0.").replace(/\>\-\./g,">-0.").replace(/\>\./g,">0.").replace(/\+\-/g,"-"); r+='
TastegegebenberechnetMensurExp+CExp+GGeradeParabelKub. Parabel
"+yy[i]+""; tt+=TN+sep; switch (f) { case 0: r+="?"; break; case 1: M=Exp(i,q,2,k[1],0,k[0]); r+=Runden(M,rund); tt+=Runden(M,rund); break; case 2: M=Exp(i,q,2,k[2],k[1],k[0]); r+=Runden(M,rund); tt+=Runden(M,rund); break; case 3: M=Polynom(i,1); r+=Runden(M,rund); tt+=Runden(M,rund); break; case 4: M=Polynom(i,2); r+=Runden(M,rund); tt+=Runden(M,rund); break; case 5: M=Polynom(i,3); r+=Runden(M,rund); tt+=Runden(M,rund); break; case 6: M=Exp(i,q,2,k[1],0,k[0]); r+=Runden(M,rund)+""; tt+=Runden(M,rund)+sep; M=Exp(i,q,2,k[2],k[1],k[0]); r+=Runden(M,rund)+""; tt+=Runden(M,rund)+sep; M=Polynom(i,1); r+=Runden(M,rund)+""; tt+=Runden(M,rund)+sep; M=Polynom(i,2); r+=Runden(M,rund)+""; tt+=Runden(M,rund)+sep; M=Polynom(i,3); r+=Runden(M,rund); tt+=Runden(M,rund); break; } r+=""+GetMensur(i,R,M,1)+"
s =  '+SA+'
'; var tttt=false; if (document.f.Textfeld.checked==true) { tttt=true; r+='
   '; // r+='

zurück zur Eingabe		   '; r+='

Textfeld zum Kopieren und Einfügen über die Zwischenablage in ein Tabellenblatt

'; r+='

zurück zur Eingabe
"; //var win=window.window; var win=window.open("","Analyseergebnisse"); win.document.write(r); win.document.close(); win.focus(); win=null; } function GetIntervall(i) { //goldener Schnitt: if(Math.abs(Math.abs(i)-17.285)<0.1) return "goldener Schnitt
(=1728,5 Cent)
"+Runden(Math.abs(i)*100,1)+" Cent"; if (Math.abs(Runden(i,0))==Math.abs(i)) if (Math.abs(i)<5) return "< Quarte
"+Runden(Math.abs(i)*100,1)+" Cent"; if (Math.abs(i)>24) return "> 2 Oktaven
"+Runden(Math.abs(i)*100,1)+" Cent"; if (Math.abs(i)==Math.abs(Math.floor(i))) { switch (Math.abs(i)){ case 5:return 'reine Quarte'; case 6:return 'verminderte Quinte'; case 7:return 'reine Quinte'; case 8:return 'kleine Sexte'; case 9:return 'große Sexte'; case 10:return 'kleine Septime'; case 11:return 'große Septime'; case 12:return 'reine Oktave'; case 13:return 'kleine None'; case 14:return 'große None'; case 15:return 'kleine Dezime'; case 16:return 'große Dezime'; case 17:return 'reine Undezime'; case 18:return 'übermäßige Undezime'; case 19:return 'reine Duodezime'; case 20:return 'Oktave + kleine Sexte'; case 21:return 'Oktave + große Sexte'; case 22:return 'Oktave + kleine Septime'; case 23:return 'Oktave + große Septime'; case 24:return '2 Oktaven'; default: ; } } return "~ "+GetIntervall(Runden(i,0))+"
"+Runden(Math.abs(i)*100,1)+" Cent"; } function GetMensur(i,R,M,rund) { var t=Runden(i+1 + (8 * Math.log((M*M/4)*Math.PI) - 12 * Math.log(R)) / 0.69314718 - 78.704,rund); if (t<=0) return t; else return "+"+t; } function Wertetransfer(w,tt) { var n=0; var n=GetTonNummer(tt)-1; w=w.replace(/\t/g,":"); if (w.indexOf(':')>0) { w=w.replace(/: /g,":"); w=w.replace(/\n/g," ").replace(/\r/g,"").replace(/;/g," "); var ww=w.split(" ") for (var i=0;i<61;i++) eval('document.f.y'+i+'.value=""'); for (var i=0;i=0) eval('document.f.y'+nn+'.value=www[1]'); } return; } w=w.replace(/\r/g,""); var ww=w.split("\n"); for (var i=0;i<61;i++) { if ((i>=n)&&(i-n» Ö2'; if(Math.abs(Math.abs(qq)-1.618)<.025) return '
» gold. Schnitt (1,618)'; if(Math.abs(Math.abs(qq)-Math.sqrt(3))<.025) return '
» Ö3'; if(Math.abs(Math.abs(qq)-Math.pow(8,0.25))<.025) return '
» 4Ö8 (Normmensur)'; return ''; }