AW: Fehler in 5.0.1

[Klamser@XXXXXXX.de (Peter Klamser)]

Hallo,

ich habe das mit 4.2.1 und 5.0.1 ausprobiert. Beides mal ähnliche
Fehlermeldungen.

Dann habe ich mir die Syntax näher angeschaut. Etwas eigenartige Konstrukte
wie

If[Question,(blablabla;),(sososo;)]

Was sollen die Klammern?

Nach ein paar Minuten hatte ich mit der folgenden Syntax keine Fehlermeldung
mehr, weiß aber nicht, ob ich was verschlimmbessert habe.

Gruß,

Peter Klamser

CreateSTRMarkerTable[SelectedData_, SelectedMarkerDatabase_,
STRDataUseMarkerDatabase_, STRDataUseFileData_,
   SelectedInstrument_, SelectedKit_, SelectedMarker_] :=
  Module[{drawlist, boxlist, MarkerNumber, STRPopulationDataListStructure,
STRPopulationDataListStructureFound,
    STRPopulationName, STRPopulationFrequencyValue, bpStartValue,
bpEndValue, AlleleName, AlleleExpectedSizeInBp,
    AlleleSizeErrorInBp, AlleleBinInBp}, sfontsize = "11";
If[TrueQ[SelectedData != 0],
     MarkerNumber = MarkerSystemMarkerNumber[SelectedData,
SelectedMarkerDatabase, STRDataUseMarkerDatabase,
        STRDataUseFileData, SelectedInstrument, SelectedKit];
If[TrueQ[MarkerNumber >= SelectedMarker],
       MarkerName = MarkerSystemMarkerName[SelectedData,
SelectedMarkerDatabase, STRDataUseMarkerDatabase,
          STRDataUseFileData, SelectedInstrument, SelectedKit,
SelectedMarker];
        drawlist = {toss[MarkerName], "\"Allel\"", "\"Bp\"",
"\"\[Delta]Bp\"", "\"Bin\""}; STRPopulationDataListStructureFound =
         False; STRPopulationDataListStructure =
MarkerSystemMarkerSTRPopulationDataListStructure[SelectedData,
          SelectedMarkerDatabase, STRDataUseMarkerDatabase,
STRDataUseFileData, SelectedInstrument, SelectedKit,
          SelectedMarker]; If[TrueQ[ !TrueQ[STRPopulationDataListStructure
== {}]],
         STRPopulationDataListStructureFound = True; STRPopulationName =
MarkerSystemMarkerSTRPopulationName[SelectedData,
            SelectedMarkerDatabase, STRDataUseMarkerDatabase,
STRDataUseFileData, SelectedInstrument, SelectedKit,
            SelectedMarker]; drawlist = Join[drawlist,
{toss[STRPopulationName]}]; ];
        If[TrueQ[showmarkersystemtableineditmode == True],
AppendTo[drawlist, "\" \""]; ];
        boxlist = Symathtableline[drawlist, sfontsize, "RGBColor[1,0,0]"];
        bpStartValue = MarkerSystembpStartValue[SelectedData,
SelectedMarkerDatabase, STRDataUseMarkerDatabase,
          STRDataUseFileData, SelectedInstrument, SelectedKit,
SelectedMarker];
        drawlist = {"\"Min\"", "\" \"", toss[ToString[bpStartValue]], "\"
\"", "\" \""};
        If[TrueQ[STRPopulationDataListStructureFound == True],
AppendTo[drawlist, "\" \""]; ];
        If[TrueQ[showmarkersystemtableineditmode == True],
AppendTo[drawlist, "\" \""]; ];
        boxlist = StringJoin[boxlist, ",", Symathtableline[drawlist,
sfontsize, "GrayLevel[0]"]];
        Do[AlleleName = MarkerSystemMarkerAlleleName[SelectedData,
SelectedMarkerDatabase, STRDataUseMarkerDatabase,
            STRDataUseFileData, SelectedInstrument, SelectedKit,
SelectedMarker, SelectedAllele];
          AlleleExpectedSizeInBp =
MarkerSystemMarkerAlleleExpectedSizeInBp[SelectedData,
SelectedMarkerDatabase,
            STRDataUseMarkerDatabase, STRDataUseFileData,
SelectedInstrument, SelectedKit, SelectedMarker, SelectedAllele];
          AlleleSizeErrorInBp =
MarkerSystemMarkerAlleleSizeErrorInBp[SelectedData, SelectedMarkerDatabase,
            STRDataUseMarkerDatabase, STRDataUseFileData,
SelectedInstrument, SelectedKit, SelectedMarker, SelectedAllele];
          AlleleBinInBp = MarkerSystemMarkerAlleleBinInBp[SelectedData,
SelectedMarkerDatabase, STRDataUseMarkerDatabase,
            STRDataUseFileData, SelectedInstrument, SelectedKit,
SelectedMarker, SelectedAllele];
          drawlist = {toss[ToString[SelectedAllele]], toss[AlleleName],
toss[ToString[AlleleExpectedSizeInBp]],
            toss[ToString[AlleleSizeErrorInBp]],
toss[ToString[AlleleBinInBp]]};
          If[TrueQ[STRPopulationDataListStructureFound == True],
STRPopulationFrequencyValue =
             MarkerSystemMarkerSTRPopulationFrequencyValue[SelectedData,
SelectedMarkerDatabase, STRDataUseMarkerDatabase,
              STRDataUseFileData, SelectedInstrument, SelectedKit,
SelectedMarker, SelectedAllele];
            drawlist = Join[drawlist,
{toss[ToString[NumberForm[STRPopulationFrequencyValue, {5, 5}]]]}]; ];
          Button$InsertButton =
Button$STRKit$CreateButtonForInsertNewAlleleAfterPresentOne[sfontsize,
SelectedData,
            SelectedMarker, SelectedAllele];
If[TrueQ[showmarkersystemtableineditmode == True],
           AppendTo[drawlist, Button$InsertButton]; ]; boxlist =
StringJoin[boxlist, ",", Symathtableline[drawlist,
             sfontsize, "GrayLevel[0]"]]; , {SelectedAllele, 1,
Length[SymathData[[SelectedData,20,SelectedMarker,2]]]}];
        bpEndValue = MarkerSystembpEndValue[SelectedData,
SelectedMarkerDatabase, STRDataUseMarkerDatabase,
          STRDataUseFileData, SelectedInstrument, SelectedKit,
SelectedMarker];
        drawlist = {"\"Max\"", "\" \"", toss[ToString[bpEndValue]], "\" \"",
"\" \""};
        If[TrueQ[STRPopulationDataListStructureFound == True], drawlist =
Join[drawlist, {"\" \""}]; ];
        boxlist = StringJoin[boxlist, ",", Symathtableline[drawlist,
sfontsize, "GrayLevel[0]"]]; ,
       boxlist = Symathtableline[{"\"-\"", "\"Nr\"", "\"Bp\"",
"\"\[Delta]Bp\""}, sfontsize, "RGBColor[1,0,0]"]]; ,
     boxlist = Symathtableline[{"\"-\"", "\"Nr\"", "\"Bp\"",
"\"\[Delta]Bp\""}, sfontsize, "RGBColor[1,0,0]"]; ];
    Return[boxlist]; ]

-----Ursprüngliche Nachricht-----
Von: owner-demug@XXXXXXX.ch [mailto:owner-demug@XXXXXXX.ch]Im
Auftrag von Georg Ch. Mellau
Gesendet: Mittwoch, 21. Januar 2004 16:05
An: DEMUG
Betreff: Fehler in 5.0.1


Liebe Listenmitglieder,

Hat jemand 5.0.1 ausprobiert ?

Hat jemand die hier beschriebene Fehler auch beobachtet ? Oder habe ich
einfach absoluten Pech ?

###########################

I reported for some months a very sever error in Mathematica. This regarded
the conection between Kernel and FrontEnd. For my application it was so
sever that I was not able to use my 5.0 license (crash every 15 minutes).

Now I installed the version 5.0.1 and it seems that there is another, much
severe error.

By simply editing the code (inclusive cut and paste) the front end creates
some  FormBox[RowBox[{"...", " "}],"InputForm"] structures which result in a
code that cant be transfered to the Kernel. I appended to the Email a
notebook with an example and the error message. Here I opened the notebook
and made some minor modifications on the code.

This error happens very often, version 5.0.1 is more useless than 5.0.0 - I
cant touch my code with 5.0.1 if I dont want to make it unexecutable !

A posiblity to overcome this (in 4.1.2 for example) is to select "display as
text", than is possible to execute the code.
Here there is another very serious problem with 5.0.1, with the "display as
text" the " in some until not reproducible cases the " characters for
strings are deleted !. Also in older versions one could select for the
"Default" style sheet the "Program" style which autonmatically converted the
code to text format (which in many cases is more convenient for code), this
is no any more true for version 5.0.1.
########################

Mit freundlichen Grüßen


Dr. Georg Ch. Mellau
Physikalisch-Chemisches-Institut
Justus-Liebig-Universität Giessen
Heinrich-Buff-Ring 58
35392 Giessen

Tf. 0641-9934507 (Büro)
    0641-9934528 (FT-IR)