AW: Performance mit einem Athlon

[Klamser@XXXXXXX.de (Uta & Peter Klamser)]

Hallo Jens,

Danke für den Tip mit der init.m.

Da steht (natürlich) eine Menge drin (z.B. Tips von Ted Ersek).

Mit der Original init.m erhalte ich dann wesentlich bessere Werte:

"Benchmark = "\[InvisibleSpace]4.94325

"Times     = "\[InvisibleSpace]{1.392, 1.362, 1.272, 5.949, 1.331, 2.754, 
    1.032, 1.071, 0.471, 0.11, 0.401, 1.091, 1.252, 1.592, 1.793}

Aber der olle Maxdata 450 MHz ist immer noch schneller.

Gruß, Peter

Meine init.m:

(** User Mathematica initialization file **)
(** Decide how to display graphics on this machine **)

Begin["System`Private`"]
(* Hide any symbols which are created *)

Which[
        $Remote || $ParentLink =!= Null,               <<"PSDirect.m",
        Environment["DISPLAY"]        =!= $Failed,     <<"Motif.m",
        $SystemID == "NeXT",                           <<"NeXT.m",
        $SystemID == "NeXT-Intel",                     <<"NeXT.m",
        $SystemID == "NeXT-HP",                        <<"NeXT.m",
        $SystemID == "NeXT-SPARC",                     <<"NeXT.m",
        True,                                          <<"Terminal.m"
     ]

$MathLiePath=$TopDirectory<>"\\AddOns\\Applications\\MathLie\\"

AppendTo[$Path,$MathLiePath]

Needs["Utilities`ShowTime`"];

ClearAll[DigitsLength, Digits1, Digits2, VariableCount];
DigitsLength[0 | 1] = 1/20;
DigitsLength[-1] = 1/15;
DigitsLength[n_] := Length[IntegerDigits[n]];
Digits1[expr_] := Plus @@ (DigitsLength[#] & /@ Cases[expr, _Integer, -1]);
Digits2[expr_] := Plus @@ Flatten[Map[DigitsLength[#] &, ({Numerator[#], Denominator[#]} & /@ Cases[expr, _Rational, 
{-1}]), {-1}]];
VariableCount[expr_] := Count[expr, _Symbol?(Not[NumericQ[#]] &), {-1}]*11/10
SetOptions[FullSimplify,ComplexityFunction -> (LeafCount[#] + Digits1[#] + Digits2[#] + VariableCount[#] &)];

Unprotect[Simplify];
HiddenSymbols`ModifySimplify = True;

Simplify[expr_] /; HiddenSymbols`ModifySimplify := Block[{HiddenSymbols`ModifySimplify},Module[{temp}, 
Simplify[Factor[expr /. (n_Integer)^(k_) :> (Times @@ (temp[First[#]]^(k*Last[ #]) &) /@ FactorInteger[n])] /. temp[a_] 
:> a]]];
Protect[Simplify];


MyPrint[arg__] := 
  Module[{ins = {arg}}, 
    NotebookWrite[FrontEnd`MessagesNotebook[], 
      Cell[RowBox[ToBoxes[StringJoin[ToString /@ ins]]], "Print"]] ]

(*Unprotect[Print]
Print = MyPrint
Protect[Print]*)

Off[General::"spell1",General::"spell2"]

$HistoryLength=10

Needs["Utilities`MemoryConserve`"];
$MemoryIncrement=1000000

(*$PrePrint=Which[MatrixQ[#],MatrixForm[#],NumberQ[#],#,True,Short[#,50]]&*)

$PrePrint=Which[NumberQ[#],N[#,10],True,#]&

$PrePrint=#&

SetOptions[Plot,PlotStyle -> 
{RGBColor[1,1,0],RGBColor[0,0,0],RGBColor[0,0,1],RGBColor[0,1,0],RGBColor[1,0,0],RGBColor[0,1,1],RGBColor[1,0,1]}]

$TextStyle = {FontFamily -> "Helvetica", IndentMaxFraction->0}

End[]

-----Ursprüngliche Nachricht-----
Von: kuska@XXXXXXX.de
[mailto:kuska@XXXXXXX.de]
Gesendet: Donnerstag, 21. März 2002 10:37
An: Uta & Peter Klamser
Cc: Deutsche Mathematica News Group
Betreff: Re: Performance mit einem Athlon


Hallo,

also am Athlon liegt es nicht, ich habe eine Athlon XP 2000+ mit
1.5GByte DDR-RAM
und da sagt der benchmark 7.11184

Deine Zeiten sind auch nicht so falsch,
Hier {deine Zeiten,meine Zeiten}

 {1.142, 0.985}, 
 {1.252, 0.953}, 
 {1.282, 0.953}, 
 {5.297, 4.14}, 
 {1.352, 0.954}, 
 {2.364, 1.937}, 
 {0.831, 0.688}, 
 {0.981, 0.703}, 
 {54.128,0.328}, 
 {0.09, 0.078}, 
 {0.311, 0.266}, 
 {1.021, 0.781}, 
 {1.202, 0.812}, 
 {1.582, 1.047}, 
 {1.452, 1.313}

was Dir allerding die Bilanz verdirbt ist Test 9

Simplify[kdv[q4]]

der Unterschied ist so aberwitzig, das ich tippen w"urde
Du hast irgendwo in Deine init.m's ein q4 definiert.
Auch weil die folgenden symbolischen Berechnungen
Test 10,11,12 v"ollig vern"unftige Zahlen liefern.

Ach so, und was heisst "Mathematica ist wirklich lahm" ?
Ist das aus dem benchmark geschlussfolgert oder aus der
t"aglichen Arbeit? Letzteres kann eigentlich nicht sein
weil ja die meisten Tests ziemlich gut sind ..

Gruss
  Jens

Uta & Peter Klamser wrote:
> 
> Hi,
> 
> seit ~2 Monaten habe ich einen neuen PC. Einen Athlon XP 1600+ auf einem Epox EP-8K7A Mainbaord mit DDR.
> 
> Alles läuft bestens, nur Mathematica ist wirklich lahm.
> 
> Unter http://www.mathematica.ch/links.html findet man einen Link zu http://fampm201.tu-graz.ac.at/karl/mma.html.
> 
> Der Benchmarkwert lautet
> 
> "Benchmark = "\[InvisibleSpace]0.593352
> 
> "Times     = {1.142, 1.252, 1.282, 5.297, 1.352, 2.364,
>     0.831, 0.981, 54.128, 0.09, 0.311, 1.021, 1.202, 1.582, 1.452}
> 
> Ein "alter" Maxdata mit 450 MHz macht dagegen:
> 
> "Benchmark = "\[InvisibleSpace]6.62848
> 
> Hat jemand einen Tip, wo das Problem liegen könnte?
> 
> Gruß, Peter Klamser