Re: Andreas Herrmann: Anfrage zur Problematik der Längenberechnung einer Röhre

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,


ClearAll[];
l = 22;
l"cm"
"Teillänge des Röhrensystems:";
Teillänge = Table[l/k, {k = 20}] // N;
"TeillängenabschnitteA des Röhrensystems:";
x = MapIndexed[l - #2[[1]]*#1 &, Teillänge]

und vielleicht findet sich beim Lesen des Handbuches
auch noch die Stelle wo "uber Kommentare geschrieben
wird und die Stelle in der berichtet wird wozu
Text und Input Zellen wohl n"utzlich sein k"onnten.

Gruss
  Jens

> Andreas Stephan Herrmann wrote:
> 
> HAllo,
> ich habe eine dringendes Problem zu bewältigen und zwar:
> Wie kann die folgende Datei zur Längennagbe so verändern, das
> er mir die entsprechenden Teillängen in EINER Liste und nicht
> andauernd dieselbe liste noch einmal?
> Das wär super.
> 
> Hier der Quellcode:
> ClearAll[]
> l = 22
> l"cm"
> "Teillänge des Röhrensystems:"
> Teillänge = Table[l/k, {k = 20}] // N
> "TeillängenabschnitteA des Röhrensystems:"
> x = Table[l - (j*Teillänge), {j, 1, 20}]
> 
> Das Röhrensystem ist 22 cm lang. Wir haben es in 20 Teillängen
> unterteilt und wollen die entsprechenden Teillängen in einer
> Liste angezeigt bekommen.
> Wenn es dann noch geht würde ich gerne eine Frequenzlsite der
> normietren
> Frequenzen als x
> Achse auftragen zu den Teillängen Y-Achse.
> Wie geht das?
> Das programm zur normierten Frequenz:
> 
> Generell::spell1;
> Graphics;
> (* Eingabe der berechneten Frequenz von Marc &Mentat[Hz]*)
> "Errechnete Frequenzen von Marc&Mentat:"
> f = {2.781*10^2,
>       3.067*10^2, 3.398*10^2, 3.785*10^2, 4.242*10^2, 4.783*10^2 , \
> 5.434*10^2, 6.222*10^2, 7.190*10^2 }
> f"Hz"
> "Normierte Frequenzen:"
> (* Berechnung der normierten Frequenz : *)
> normfListe = Table[{f[[n]],(*hier ist die Bezugsfrequenz ergänzt*)
>         f[[n]]/Sqrt[Sum[f[[i]]^2, {i, 1, 9}]]},
>       {n, 1, 9}];
> (* n = Anzahl der einzugebenen Frequenzen; i = Anzahl der einzugebenen
> \
> Frequenz oder Assoziationen*)
> (* Ausgabe der normierten Frequenz der eingegebenen Frequenz von Marc
> \
> &Mentat!*)
> normfListe"Hz"
> 
> "Graph der
>     berechneten
>       Frequenz von Marc&Mentat in Abhängigkeit zur normierten
> Frequenz:"
> ListPlot[normfListe, PlotRange -> All,
>         PlotStyle -> AbsoluteThickness[
>             1000], PlotLabel -> {"Frequenz[Hz]", "Normierte
> Frequenz[Hz]"}];
> 
> ListPlot[normfListe, PlotJoined ->
>   True, PlotRange -> All, PlotStyle -> AbsoluteThickness[2], PlotLabel
> -> \
> {"Frequenz[Hz]", "Normierte Frequenz[Hz]"}];
> Show[%, AspectRatio -> Automatic, ImageSize -> 100];
> 
> Dann ergibt sich die normierte Frequenzen in einer Tabelle.
> Und diese möchte ich zu den Teillängen in Abhängigkeit aufzeigen,
> graphisch.(beide Fälle von d kleinsten zur größten Teillänge und
> umgekehrt)
> 
> Wie gesagt mit der Frequenz zur normierten Frequenz habe ich
> hinbekommen.
> Doch das andere habe ich leider in meinem Buch nicht gefunden.
> 
> Wenn Sie mir dabei helfen könnten, wäre ich Ihnen Dankbar.
> Für ihre Bemühungen bedanke ich mich schon einmal im voraus.
> MFG
> Andreas