Vielen Dank für die zahlreichen Hinweise! Mein Problem war,
wie sich herausstellte nur das Fehlende "Evaluate" (siehe
1. Möglichkeit).
Danke noch mal!
Hier noch alle Lösungen, für alle Intressierten
1. Möglichkeit
In[6]:=
\!\(Plot[Evaluate[Sum[Sin[\((2*k + 1)\) 50*x]\/\(2*k + 1\), {k, 0,
10000}]], {
x, 0, Pi/10}]\)
2. Möglickeit
In[9]:=
(Plot[Sin[50*x]/Abs[Sin[50*x]], {x, 0, Pi/10}]\)
3. Möglichkeit
In[14]:=
f[x_,r_] := 2*(Mod[Floor[x/r],2]-0.5)
In[15]:=
Plot[f[x,1],{x,-3,3}]
4. Möglichkeit
In[16]:=
step[a_,b_,x_]:=If[And[a<=x,x<=b],1,0,0] ;
f[x_]:=Sum[step[2*n,2*n+1,x],{n,-10,10}] ;
Plot[f[x],{x,-5,5},AspectRatio->Automatic]
Gruß Christian
-------------------------------------------------------
___ °
/ / _______ ° Christian Schulze
/ /_/ ____/ °
\___ __/ ° E-Mail:
==== \_/ ===== ° schulze@XXXXXXX.de
LOGOUT FASCISM! °
________________________________________________________
|