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