Lieber Herr Dr. Woysch,
eigentlich haben Sie in Ihrem Notebook keinen Fehler.
Es handelt sich hierbei vielmehr um eine kleine Inkonsistenz
in Mathematica.
Der PlotVectorField3D-Befehl uebernimmt die im ersten Argument befindliche
Funktion "as is". Sie wird nicht zuvor evaluiert!(Siehe HoldFirst). Bei der
Weiterverarbeitung verschluckt sich dann das Package an Ihrem Ausdruck. Um
das zu unterbinden, muessen Sie mit Evaluate arbeiten. So bewirken Sie,
dass dem PlotVectorField3D-Befehl die expliziete Vektorfeldfunktion
uebergeben wird.
PlotVectorField3D[
Evaluate[{ EFeld[ Xx, Yy, Zz ][[1]],
EFeld[ Xx, Yy, Zz ][[2]],
EFeld[ Xx, Yy, Zz ][[3]]
}],
{ Xx, 0.05, 0.25 },
{ Yy,0.05, 0.25 },
{ Zz, 0.05, 0.25 },
PlotPoints -> 5 ,
VectorHeads -> True ,
ColorFunction -> Hue,
PlotRange -> {{ 0, 0.25 }, { 0,0.25},{0,0.25} }
] ;
MfG,
Markus van Almsick (markus@XXXXXXX.com)
|