Re: Andreas Herrmann: Student der Elektrotechnik: Dringende Bitte Zur Lösung des Augendiagrammsproblems mit Programm

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

Hallo,

das ist doch nicht etwa eine Hausaufgabe ?
Sowas machen die gelehrten Doctores und Professores
dieser Liste besonders gern, weil sie eh vor lauter
Langeweile nichts besseres vorhaben als 
die "Ubungsaufgaben ihrer Studenten zu l"osen.

Aber weil heute Donnerstag ist, wie w"are es mit:

a = 1;
Clear[Impuls, Trellis]
Impuls[t_] := If[Abs[t] < 2 a, (t^2 - a^2)(t^2 - 4 a^2), 0]

SetAttributes[Trellis, HoldFirst]

Trellis[a_, 
    t_] := ((a[[1]]*2) - 1) Impuls[t + 2] + ((a[[2]]*2) - 1) Impuls[
        t + 1] + ((a[[3]]*2) - 1) Impuls[t] + ((a[[4]]*2) - 1) Impuls[
        t - 1] + ((a[[5]]*2) - 1) Impuls[t - 2]

Auge = For[Index = 0, Index < 32, Index++, 
      Block[{$DisplayFunction = Identity}, 
        TeilAuge[Index] = 
          Plot[Trellis[IntegerDigits[Index, 2, 5], t], {t, -3, 3}]]
      ];
Show[Table[TeilAuge[Index], {Index, 0, 31}]]


"ubrigens macht man sich mit HTML-postings noch beliebter
als mit "Ubungsaufgaben und wenn schon Mathematica Quelltext,
dann als InputForm[] und nicht mit diesen ekligen \^, \(, \)
die kein Mensch lesen kann

Gruss
  Jens

> Andreas Herrmann wrote:
> 
> Hallo,
> 
> ich bin Student der E-technik und möchte bzw. soll in meiner
> studienarbeit ein Programm in Mathematica verwenden.Leider läuft das
> Programm leider nicht richtig und ich komme auf kein Ergebnis, bzw.
> schlicht weg nicht weiter, da ich bis jetzt nicht mit Mathematica
> gearbeitet habe. Daher hätte ich die Bitte mir hier bei der Lösung des
> Problems weiter zu helfen. In dem Programm soll ein augendiagramm
> sichtbar gemacht werden. Folgender Text dazu:
> 
> Es soll ein sogenanntes Augendiagramm entstehen. Dabei wird ein
> bestimmter Sendeimpuls betrachtet, welcher zu jedem Sendezeitpunkt in
> allen möglichen
> 
> Lagen betrachtet wird (hier +1 oder -1-gewichtet) betrachtet wird und
> dann gezeichnet.
> 
> Beispiel: Bei Betrachtung von einem Vorgänger und einem Nachfolger
> wird die Folge, welche sich bei +++,++-,+-+,+--,-++,-+-,--+,---, in
> ein Diagramm
> 
> gezeichnet.
> 
> Dies soll hier in einer Liste geschehen, welche alle möglichen Folgen
> vereint. Dazu ist die vorletzte Anweisung gedacht, welche der zu
> zeichnenden Schar von
> 
> Kurven Auge immer einen einzelnen Kurvenzug Einzeln hinzufügt.
> 
> 
> 
> und nin den Mathematica Code:
> 
> -----------------------------------------------------------------------------------------------------------------------------------------------------------------
> 
> a=1
> 
> 1
> 
> \!\(Impuls[t_] :=
> 
> If[Abs[t] < 2\ a, \((t\^2 - a\^2)\)\ \((t\^2 - 4\ a\^2)\), 0]\)
> 
> Trellis[a[]_,
> 
> t_]:=((a[[1]]*2)-1) Impuls[t+2]+((a[[2]]*2)-1) Impuls[
> 
> t+1]+((a[[3]]*2)-1) Impuls[t]+((a[[4]]*2)-1) Impuls[
> 
> t-1]+((a[[5]]*2)-1) Impuls[t-2]
> 
> Auge=For[Index=0,Index<32,Index++,
> 
> TeilAuge[Index]=Plot[Trellis[IntegerDigits[Index,2,5],t],{t,-3,3}]];Show[
> 
> Table[TeilAuge[Index],{Index,0,31}]]
> 
> a=2/3
> 
> \!\(2\/3\)
> 
> --------------------------------------------------------------------------------------------------------------
> 
> Fü reure Bemühungen bedanke ich mich schon mal im Voraus.
> 
> MFG
> 
> andreas