|
Folgendes koennten Sie in Ihr init.m file kopieren: Unprotect[Plot,Solve]; Plot[eq_Equal,vv__] := Plot[Evaluate[First[eq]-Last[eq]],vv]; Solve[pol_/;FreeQ[pol,Equal],var_] := Solve[pol==0,var]; Solve[eq_Equal,var_] := FindRoot[eq,{var,0}] /; !FreeQ[eq,_^var]; Rolf |