|
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! ° ________________________________________________________ |