Dampfradioforum

// PROGRAMM ZUR BERECHNUNG DER TONARMGEOMETRIE VON PLATTENSPIELERN
//
// (C) 2004 User "Ben" fuer Dampfradioforum.org
//
// Das Programm fragt zunaechst den Abstand Plattentellerlager - Tonarmlager
// ab. Sodann koennen verschiedene Werte fuer den Ueberhang eingegeben werden,
// und das Programm berechnet hierfuer jeweils die wichtigsten geometrischen
// Daten.
//
// Der Ueberhang kann nun solange variiert werden, bis die Spurfehlwinkel
// minimal werden.
//
// Hierzu wird (quasi) das Integral des Absolutbetrags des
// Spurfehlwinkels über den gesamten Plattenschnitt berechnet.
// Da Spurfehler bei den Innenrillen staerker hoerbar sind, wird zusaetzlich
// noch ein entsprechend bewertetes Integral ausgerechnet.
//
// Darueber hinaus werden die Spurfehlwinkel bei den Innen-
// und Aussenrillen ausgegeben.
//
// Die "optimale Kroepfung" ist ein arithmetischer Mittelwert ueber den
// gesamten Plattenschnitt.
//
// Nach welchem Kriterium letztlich optimiert wird, bleibt dem Anwender ueberlassen.
//
// Zur Herstellung von Einstellschablonen werden zusaetzlich die Plattenradien
// angegeben, bei denen der Tonabnehmer genau senkrecht zur Platten radialen
// steht ("Schablonen-Nullpunkte l und 2").
//
// Eine kommerzielle Verwendung des Programms oder der Programmstruktur ist untersagt!

# include <iostream>
# include <math.h>
# include <stdio.h>

using namespace std;

double inradius, aussradius, radius, schrittweite, ueberhang, nadelabstand, lagerabstand,
optkroepfung, spurfehler, anzahl, sumgamma, sumspurfehlerunbew, sumspurfehlerbew,
signumalt, signumneu, schabloneinnen, schabloneaussen;

// Definition der Funktion cosinussatz, welche bei 3 gegebenen Dreiecksseiten
// einen Winkel berechnet:

double cosinussatz (double gamma)
{
gamma = acos ((radius*radius+nadelabstand*nadelabstand-
lagerabstand*lagerabstand)/2/radius/nadelabstand);
return (gamma);
}

int main ()
{
double gamma;

// Hier die Handeingaben der Schallplatten - Parameter (alle in cm), sowie
// der Schrittweite der Berechnungen (in cm)!

inradius = 5.;
aussradius = 14.6;
schrittweite = 0.001;

cout << "Bitte Lagerabstand (in cm) eingeben: ";
cin >> lagerabstand;

programmstart:

cout << "Bitte Ueberhang (in cm) eingeben: ";

cin >> ueberhang;

cout << endl;

nadelabstand = lagerabstand + ueberhang;
radius = inradius;
sumgamma = 0;
anzahl = 0;
sumspurfehlerbew = 0;
sumspurfehlerunbew = 0;

while (radius <= aussradius)
{
gamma = cosinussatz (gamma);
sumgamma = sumgamma + gamma;
anzahl = anzahl + 1;
radius = radius + schrittweite;
}

optkroepfung = sumgamma / anzahl;

radius = inradius;
signumalt = -1;

do
{
gamma = cosinussatz (gamma);
spurfehler = gamma - optkroepfung;

// Vorzeichenwechsel beim Spurfehler erkennen und dann Schablonenwerte setzen:

signumneu = spurfehler / fabs (spurfehler);
if (signumalt == -1 && signumneu == 1)
schabloneinnen = radius;
if (signumalt == 1 && signumneu == -1)
schabloneaussen = radius;

signumalt = signumneu;

// Summe |spurfehler| im Intervall inradius bis aussradius
// mit Hoerbarkeitsbewertung (innen deutlicher hoerbar als aussen):

sumspurfehlerbew = sumspurfehlerbew + fabs (spurfehler)*aussradius/radius;

sumspurfehlerunbew = sumspurfehlerunbew + fabs (spurfehler);

// Diese Ausgabeanweisungen nur aktivieren, wenn Tabelle aller Spurfehlwinkel
// angelegt werden soll!
// cout << "Radius: ";
// printf ("%12f", radius);

// cout << " cm; Spurfehler: " << spurfehler*180 / M_PI << " Grad" << endl;

radius = radius + schrittweite;
} while (radius <= aussradius);

cout << "Lagerabstand: " << lagerabstand << " cm; " << "Ueberhang: " << ueberhang <<
" cm; " << "optimale Kroepfung: " << 90-optkroepfung*180/M_PI << " Grad" << endl;

radius = inradius;
gamma = cosinussatz (gamma);
spurfehler = gamma - optkroepfung;
cout << "Spurfehler innen: " << spurfehler*180/M_PI << " Grad" << endl;

radius = aussradius;
gamma = cosinussatz (gamma);
spurfehler = gamma - optkroepfung;
cout << "Spurfehler aussen: " << spurfehler*180/M_PI << " Grad" << endl;

cout << "Schablonen-Nullpunkt l: " << schabloneinnen << " cm" << endl;
cout << "Schablonen-Nullpunkt 2: " << schabloneaussen << " cm" << endl;

cout << "Summe |Spurfehler|: " << sumspurfehlerunbew << " Grad" << endl;
cout << "Summe |Spurfehler|, bewertet: " << sumspurfehlerbew << " Grad" << endl;
cout << endl;
goto programmstart;
}