|
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) |