Re: PlotStyle als Function

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

Hallo,

so etwas wie

gg = Plot[BesselJ[2, x], {x, 0, 10}];

Show[
  gg /. Line[a_] :> 
           ({Thickness[0.005*First[First[#]]], Line[#]} & /@ 
               Drop[Transpose[{a, RotateLeft[a]}], -1])
 ]

? Nein, das geht nicht. Sieht auch extrem doof aus.

Gruss
  Jens

Stefan Heusler wrote:
> 
> Liebe Mathematikar,
> 
> Ich plotte eine Funktion f[x] aus.
> Ich will die Dicke mit x variieren lassen.
> 
> Beispiel:
> 
> Plot[BesselJ[2, x], {x, 0, 10},
>   PlotStyle -> {Thickness[0.02]}]
> 
> Hier ist Thickness ein fester Wert. Kann ich Thickness mit x variieren
> lassen?
> 
> Vielen Dank,
> 
> Stefan Heusler