Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

General--Mathematica is unable to yield result from LinearSolve with good Preci

  • To: mathgroup at smc.vnet.net
  • Subject: [mg70494] General--Mathematica is unable to yield result from LinearSolve with good Preci
  • From: abdou.oumaima at hotmail.com
  • Date: Wed, 18 Oct 2006 04:16:18 -0400 (EDT)

Hello MathGroup,
I write this code and when I put HS=6 it takes one hour to yield the first result and 5 days for HS=7. Is there any suggestions to perform my code please.
cheers.
Hereby my code. Just copy it and past it in a new file under Mathematica.

\!\(\*
  RowBox[{
    StyleBox[
      RowBox[{
        RowBox[{"Off", "[", 
          RowBox[{\(General::spell\), ",", 
            StyleBox[\(General::spell1\),
              "MR"], 
            StyleBox[",",
              "MR"], 
            StyleBox[" ",
              "MR"], 
            StyleBox[\(General::\ write\),
              "MR"]}], "]"}], ";"}],
      FontWeight->"Plain",
      FontColor->GrayLevel[0],
      FontVariations->{"CompatibilityType"->0}], "\[IndentingNewLine]", 
    StyleBox[\(<< DiscreteMath`RSolve`\),
      FontWeight->"Plain",
      FontSlant->"Plain",
      FontTracking->"Plain",
      FontVariations->{"Underline"->False,
      "Outline"->False,
      "Shadow"->False,
      "StrikeThrough"->False,
      "Masked"->False,
      "CompatibilityType"->0,
      "RotationAngle"->0}], "\[IndentingNewLine]", 
    StyleBox[\(<< Graphics`Graphics`\),
      FontWeight->"Plain",
      FontSlant->"Plain",
      FontTracking->"Plain",
      FontVariations->{"Underline"->False,
      "Outline"->False,
      "Shadow"->False,
      "StrikeThrough"->False,
      "Masked"->False,
      "CompatibilityType"->0,
      "RotationAngle"->0}], "\[IndentingNewLine]", 
    RowBox[{
      StyleBox[\(wp = 25\),
        FontWeight->"Plain",
        FontSlant->"Plain",
        FontTracking->"Plain",
        FontVariations->{"Underline"->False,
        "Outline"->False,
        "Shadow"->False,
        "StrikeThrough"->False,
        "Masked"->False,
        "CompatibilityType"->0,
        "RotationAngle"->0}], 
      StyleBox[";",
        FontWeight->"Plain",
        FontSlant->"Plain",
        FontTracking->"Plain",
        FontVariations->{"Underline"->False,
        "Outline"->False,
        "Shadow"->False,
        "StrikeThrough"->False,
        "Masked"->False,
        "CompatibilityType"->0,
        "RotationAngle"->0}], 
      StyleBox[" ",
        FontWeight->"Plain",
        FontSlant->"Plain",
        FontTracking->"Plain",
        FontVariations->{"Underline"->False,
        "Outline"->False,
        "Shadow"->False,
        "StrikeThrough"->False,
        "Masked"->False,
        "CompatibilityType"->0,
        "RotationAngle"->0}], 
      StyleBox[\( (*\ WorkingPrecision\ Value\ *) \),
        FontWeight->"Plain",
        FontSlant->"Plain",
        FontTracking->"Plain",
        FontVariations->{"Underline"->False,
        "Outline"->False,
        "Shadow"->False,
        "StrikeThrough"->False,
        "Masked"->False,
        "CompatibilityType"->0,
        "RotationAngle"->0}], "\[IndentingNewLine]", 
      StyleBox[\(pr = 20\),
        FontWeight->"Plain",
        FontSlant->"Plain",
        FontTracking->"Plain",
        FontVariations->{"Underline"->False,
        "Outline"->False,
        "Shadow"->False,
        "StrikeThrough"->False,
        "Masked"->False,
        "CompatibilityType"->0,
        "RotationAngle"->0}], 
      StyleBox[";",
        FontWeight->"Plain",
        FontSlant->"Plain",
        FontTracking->"Plain",
        FontVariations->{"Underline"->False,
        "Outline"->False,
        "Shadow"->False,
        "StrikeThrough"->False,
        "Masked"->False,
        "CompatibilityType"->0,
        "RotationAngle"->0}]}], 
    StyleBox[" ",
      FontWeight->"Plain",
      FontSlant->"Plain",
      FontTracking->"Plain",
      FontVariations->{"Underline"->False,
      "Outline"->False,
      "Shadow"->False,
      "StrikeThrough"->False,
      "Masked"->False,
      "CompatibilityType"->0,
      "RotationAngle"->0}], 
    StyleBox[\( (*\ SetPrecision\ Value\ *) \),
      FontWeight->"Plain",
      FontSlant->"Plain",
      FontTracking->"Plain",
      FontVariations->{"Underline"->False,
      "Outline"->False,
      "Shadow"->False,
      "StrikeThrough"->False,
      "Masked"->False,
      "CompatibilityType"->0,
      "RotationAngle"->0}], "\[IndentingNewLine]", 
    StyleBox[\(Print["\< aa= \>", vaa = 0.999\ ];\),
      FontWeight->"Plain",
      FontVariations->{"CompatibilityType"->0}], "\[IndentingNewLine]", 
    RowBox[{
      StyleBox[\(a = SetPrecision[\@\(3 \((1 - aa)\)\)\  /. \ aa -> vaa, 
    20]\),
        FontWeight->"Plain",
        FontColor->GrayLevel[0],
        FontVariations->{"CompatibilityType"->0}], 
      StyleBox[";",
        FontWeight->"Plain",
        FontColor->GrayLevel[0],
        FontVariations->{"CompatibilityType"->0}], 
      StyleBox[" ",
        FontWeight->"Plain",
        FontColor->GrayLevel[0],
        FontVariations->{"CompatibilityType"->0}], 
      StyleBox[\( (*\ limit\ value\ *) \),
        FontWeight->"Plain",
        FontColor->GrayLevel[0],
        FontVariations->{"CompatibilityType"->0}], "\[IndentingNewLine]", 
      StyleBox[\(Print["\< &#958; = \>", a\ ]\),
        FontWeight->"Plain",
        FontVariations->{"CompatibilityType"->0}], 
      StyleBox[";",
        FontWeight->"Plain",
        FontVariations->{"CompatibilityType"->0}]}], "\[IndentingNewLine]", 
    RowBox[{
      StyleBox[\(HS = 1\),
        FontWeight->"Plain",
        FontColor->GrayLevel[0],
        FontVariations->{"CompatibilityType"->0}], 
      StyleBox[";",
        FontWeight->"Plain",
        FontColor->GrayLevel[0],
        FontVariations->{"CompatibilityType"->0}], 
      StyleBox[" ",
        FontWeight->"Plain",
        FontColor->GrayLevel[0],
        FontVariations->{"CompatibilityType"->0}], 
      StyleBox[\( (*\ HS\ Value\ *) \),
        FontVariations -> {"         CompatibilityType" -> 0},
        FontWeight->"Plain",
        FontColor->GrayLevel[0]], "\[IndentingNewLine]", 
      RowBox[{
        StyleBox["For",
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontTracking->"Plain",
          FontColor->GrayLevel[0],
          FontVariations->{"Underline"->False,
          "Outline"->False,
          "Shadow"->False,
          "
        StrikeThrough"->False,
          "Masked"->False,
          "CompatibilityType"->0,
          "RotationAngle"->0}], 
        StyleBox["[",
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontTracking->"Plain",
          FontColor->GrayLevel[0],
          FontVariations->{"Underline"->False,
          "Outline"->False,
          "Shadow"->False,
          "StrikeThrough"->False,
          "Masked"->False,
          "CompatibilityType"->0,
          "RotationAngle"->0}], 
        RowBox[{
          StyleBox[\(hs = 1\),
            FontWeight->"Plain",
            FontSlant->"Plain",
            FontTracking->"Plain",
            FontColor->GrayLevel[0],
            FontVariations->{"Underline"->False,
            "Outline"->False,
            "Shadow"->False,
            "StrikeThrough"->False,
            "Masked"->False,
            "CompatibilityType"->0,
            "RotationAngle"->0}], 
          StyleBox[",",
            FontWeight->"Plain",
            FontSlant->"Plain",
            FontTracking->"Plain",
            FontColor->GrayLevel[0],
            FontVariations->{"Underline"->False,
            "Outline"->False,
            "Shadow"->False,
            "StrikeThrough"->False,
            "Masked"->False,
            "CompatibilityType"->0,
            "RotationAngle"->0}], 
          StyleBox[\(hs &#8804; HS\),
            FontWeight->"Plain",
            FontSlant->"Plain",
            FontTracking->"Plain",
            FontColor->GrayLevel[0],
            FontVariations->{"Underline"->False,
            "Outline"->False,
            "Shadow"->False,
            "StrikeThrough"->False,
            "Masked"->False,
            "CompatibilityType"->0,
            "RotationAngle"->0}], 
          StyleBox[",",
            FontWeight->"Plain",
            FontSlant->"Plain",
            FontTracking->"Plain",
            FontColor->GrayLevel[0],
            FontVariations->{"Underline"->False,
            "Outline"->False,
            "Shadow"->False,
            "StrikeThrough"->False,
            "Masked"->False,
            "CompatibilityType"->0,
            "RotationAngle"->0}], 
          RowBox[{
            StyleBox[\(hs++\),
              FontWeight->"Plain",
              FontSlant->"Plain",
              FontTracking->"Plain",
              FontColor->GrayLevel[0],
              FontVariations->{"Underline"->False,
              "Outline"->False,
              "Shadow"->False,
              "StrikeThrough"->False,
              "Masked"->False,
              "CompatibilityType"->0,
              "RotationAngle"->0}], 
            RowBox[{
              StyleBox["{",
                FontWeight->"Plain",
                FontSlant->"Plain",
                FontTracking->"Plain",
                FontColor->GrayLevel[0],
                FontVariations->{"Underline"->False,
                "Outline
              "->False,
                "Shadow"->False,
                "StrikeThrough"->False,
                "Masked"->False,
                "CompatibilityType"->0,
                "RotationAngle"->0}], 
              StyleBox["\[IndentingNewLine]",
                FontWeight->"Plain",
                FontSlant->"Plain",
                FontTracking->"Plain",
                FontColor->GrayLevel[0],
                FontVariations->{"Underline"->False,
                "Outline"->False,
                "Shadow"->False,
                "StrikeThrough"->False,
                "Masked"->False,
                "CompatibilityType"->0,
                "RotationAngle"->0}], 
              RowBox[{
                RowBox[{
                  StyleBox["For",
                    FontWeight->"Plain",
                    FontSlant->"Plain",
                    FontTracking->"Plain",
                    FontVariations->{"Underline"->False,
                    "Outline"->False,
                    "Shadow"->False,
                    "StrikeThrough"->False,
                    "Masked"->False,
                    "CompatibilityType"->0,
                    "RotationAngle"->0}], 
                  StyleBox["[",
                    FontWeight->"Plain",
                    FontSlant->"Plain",
                    FontTracking->"Plain",
                    FontVariations->{"Underline"->False,
                    "Outline"->False,
                    "Shadow"->False,
                    "StrikeThrough"->False,
                    "Masked"->False,
                    "CompatibilityType"->0,
                    "RotationAngle"->0}], 
                  RowBox[{
                    StyleBox[\(j = 0\),
                      FontWeight->"Plain",
                      FontSlant->"Plain",
                      FontTracking->"Plain",
                      FontVariations->{"Underline"->False,
                      "Outline"->False,
                      "Shadow"->False,
                      "StrikeThrough"->False,
                      "Masked"->False,
                      "CompatibilityType"->0,
                      "RotationAngle"->0}], 
                    StyleBox[",",
                      FontWeight->"Plain",
                      FontSlant->"Plain",
                      FontTracking->"Plain",
                      FontVariations->{"Underline"->False,
                      "Outline"->False,
                      "Shadow"->False,
                      "StrikeThrough"->False,
                      "Masked"->False,
                      "CompatibilityType"->0,
                      "RotationAngle"->0}], 
                    StyleBox[\(j &#8804; HS - 1\),
                      FontWeight->"Plain",
                      FontSlant->"Plain",
                      FontTracking->"Plain",
                      FontVariations->{"Underline"->False,
                      "Outline"->False,
                      "Shadow"->False,
                      "StrikeThrough"->False,
                      "Masked"->False,
                    
                        "CompatibilityType"->0,
                      "
                        RotationAngle"->0}], 
                    StyleBox[",",
                      FontWeight->"Plain",
                      FontSlant->"Plain",
                      FontTracking->"Plain",
                      FontVariations->{"Underline"->False,
                      "Outline"->False,
                      "Shadow"->False,
                      "StrikeThrough
                      "->False,
                      "Masked"->False,
                      "CompatibilityType"->0,
                      "RotationAngle"->0}], 
                    RowBox[{
                      StyleBox[\(j++\),
                        FontWeight->"Plain",
                        FontSlant->"Plain",
                        FontTracking->"Plain",
                        FontVariations->{"Underline"->False,
                        "Outline"->False,
                        "Shadow"->False,
                        "StrikeThrough"->False,
                        "Masked"->False,
                        "CompatibilityType"->0,
                        "RotationAngle"->0}], 
                      RowBox[{
                        StyleBox["{",
                          FontWeight->"Plain",
                          FontSlant->"Plain",
                          FontTracking->"Plain",
                          FontVariations->{"Underline"->False,
                          "Outline"->False,
                          "Shadow"->False,
                          "StrikeThrough"->False,
                          "Masked"->False,
                          "CompatibilityType"->0,
                          "RotationAngle"->0}], 
                        StyleBox["\[IndentingNewLine]",
                          FontWeight->"Plain",
                          FontSlant->"Plain",
                          FontTracking->"Plain",
                          FontColor->GrayLevel[0],
                          FontVariations->{"Underline"->False,
                          "Outline"->False,
                          "Shadow"->False,
                          "StrikeThrough"->False,
                          "Masked"->False,
                          "CompatibilityType"->0,
                          "RotationAngle"->0}], 
                        RowBox[{
                          StyleBox[\(Print["\<Start:\>", \ debut = Date[]]\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                         
                               "Masked"->False,
                            "CompatibilityType"->0,
                         
                               "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(Print["\<HS Value : \>", HS - 1]\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            
                            FontTracking->"Plain",
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "
                            CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->RGBColor[1, 0, 0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(KIN = Table[If[i == j, 
                            1, 0], {i, 1, HS}]\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(Print["\<KIN = \>", \ KIN\ ]\),
                            FontVariations -> {"                           
                            CompatibilityType" -> 0},
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                          
                              FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,

                                                        "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "RotationAngle"->0}], 
                          StyleBox[" ",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "
                            Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "
                          Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[" ",
                            FontVariations -> {"                             
                            CompatibilityType" -> 0},
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "RotationAngle"->0}], 
                          StyleBox[\(Alfap[L_] := \@3\/\(2\ \((L + 2)\)\)\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(Alfan[L_] := \((\(-1\))\)^\((L + 1)\)\ 
                            Alfap[L]\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "
                          Masked"->False,
                            "
                            CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                        
                                FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(App[L_, N_] := Alfap[L]\ Alfap[N]\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(Anp[L_, N_] := Alfan[L]\ Alfap[N]\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                         
                               "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                        
                                FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(Bpp[L_, 
                          N_] := \(-\(\(\(3\)\(\ \)\)\/4\)\) \((1\/\(\((L \
+ 2)\)\ \((N + 3)\)\) + 1\/\(\((L + 3)\)\ \((N + 2)\)\))\)\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[" ",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
  
                                                      FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                   
                                     FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          
                            StyleBox[\(Bnp[L_, 
                            N_] := \(\(3\ \(\(\((\(-1\))\)^L\)\(\ \)\)\)\/4\) \
\((1\/\(\((L + 2)\)\ \((N + 3)\)\) - 1\/\(\((L + 3)\)\ \((N + 2)\)\))\)\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(Vp[L_, S_] := &#8721;\+\(Lp = 0\)\%L\((\((\(-
                            S\))\)^Lp\/\(L -
                             Lp + 1\))\)\  + \((\(-S\))\)^\((L + 1)\)\ Log[
                            1\/S + 1]\),
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\n",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(delta[S_] := \((1 - S\ ArcTanh[
                            S])\)^2 + \((Pi*\ S/2)\)^2\),
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontVariations -> {" 
                                                        Shadow" -> False},
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                        
                                FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "
                            StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\n",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
  
                                                        FontTracking->"Plain",

                                                          FontColor->
                            GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(integpp[L_, N_, S_] := \((\((1/2)\)^2\ \ 
                            S\ Vp[L, S]\ Vp[N, S])\)/delta[S]\),
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\n",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(FBpp[L_, N_] := Chop[NIntegrate[integpp[
                            L, N, x], {x, 0, 1}, \ WorkingPrecision -> wp]]\),
                            
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(integnp[L_, N_, S_] := \((\((\(-1\))\)^
                            L)\)\ *\(S\/\(4\ delta[S]\)\) \((&#8721;\+\(Lp = 0\)\%
                              L\((\((1 + \((\(-1\))\)^\((L + Lp)\))\) S^
                            Lp\/\(L - Lp + 1\))\)\  - 
                            2\ \((S^L)\) + \((\(-1\))\)^\((L + 1)\)\ Vp[L, 
                            S])\)\ Vp[N, S]\),
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[" ",
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(FBnp[L_, 
                            N_] := Chop[NIntegrate[integnp[L, N, x], {x, 0, 
                            1}, WorkingPrecision -> wp]]\),
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
   
                                                     "RotationAngle"->0}], 
                          StyleBox[" ",
                            FontFamily->"Garamond",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontVariations -> {"                             
                            Shadow" -> False},
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(Gapp[L_, N_] := 1\/\(L + N + 2\) + Bpp[L,
                             N] + FBpp[L, N]\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[" ",
                            FontVariations -> {"                             
                            CompatibilityType" -> 0},
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                        
                                FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(Ganp[L_, N_] := Bnp[L, N] + FBnp[L, N]\),
                            
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                    
                                    "StrikeThrough"->False,
   
                                                       "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(memg[L_, N_] := \((\(-1\))\)^N\ \((App[
                            L, N] + \ ksi\ Gapp[L, N])\)\),
                            FontVariations -> {"                         
                                StrikeThrough" -> False},
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontVariations -> {"                             
                            StrikeThrough" -> False},
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(L = 
                            SetPrecision[Array[memg, {HS, HS}, 0], pr]\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "
                            StrikeThrough"->False,
                            "Masked"->False,
                            "
                            CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                          
                              FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(memd[L_, N_] := App[L, 
                          N] + \ \((\(-1\))\)^\((L + 1)\)\ ksi\ Ganp[L, N]\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(R = 
                            SetPrecision[Array[memd, {HS, HS}, 0], pr]\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontVariations -> {"                       
                                  Shadow" -> False},
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[\(Y = R\ \  . \ KIN\),
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "
                            StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox[";",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          StyleBox["\[IndentingNewLine]",
                            FontWeight->"Plain",
                            FontSlant->"Plain",
                            FontTracking->"Plain",
                            FontColor->GrayLevel[0],
                            FontVariations->{"Underline"->False,
                            "Outline"->False,
                            "Shadow"->False,
                            "StrikeThrough"->False,
                            "Masked"->False,
                            "CompatibilityType"->0,
                            "RotationAngle"->0}], 
                          RowBox[{
                            StyleBox["Print",
                              FontWeight->"Plain",
 

Link to the forum page for this post:
http://www.mathematica-users.org/webMathematica/wiki/wiki.jsp?pageName=Special:Forum_ViewTopic&pid=14527#p14527
Posted through http://www.mathematica-users.org [[postId=14527]]



  • Prev by Date: Re: save value in array during loop
  • Next by Date: General--LinearSolve and Precision: Impossible to solve 8x8 matrix
  • Previous by thread: Re: damped oscilations data fit
  • Next by thread: Re: General--Mathematica is unable to yield result from LinearSolve with good Preci