DSolve < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) reagiert/warte auf Reaktion  | | Datum: | 19:41 So 29.01.2006 | | Autor: | Weichei2205 |
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
Warum geht der rot makierte Befehl nicht
In[1]:=
Options[FETemplate] =
{PromptCellStyle ->
{"Subsection",
CellDingbat -> None,
CellMargins -> {{8,Inherited}, {2, 4}},
Editable -> False},
FETemplateNotebookOptions ->
{Background -> GrayLevel[0.8],
ShowCellBracket -> False,
WindowElements -> {"HorizontalScrollBar", "VerticalScrollBar","MenuBar"},
WindowMargins ->
{{Automatic, 1}, {Automatic, 2}}},
FETemplateTitle -> Cell["Arscloch", "Subsection", TextAlignment -> Center,
CellDingbat -> None, Editable -> False],
FETemplateButton ->
Cell[BoxData[GridBox[{{ButtonBox[StyleBox[" OK ", "Subtitle"],
RuleDelayed[ButtonFunction, OKFunction[]]],
ButtonBox[StyleBox[" Close ", "Subtitle", Rule[FontColor, RGBColor[0.7, 0, 0]]],
RuleDelayed[ButtonFunction,
NotebookClose[ButtonNotebook[]]]],
ButtonBox[StyleBox[" Help ", "Subtitle"],
RuleDelayed[ButtonFunction,
NotebookPut[$FETemplateHelp]]]}}]], "Text", Editable -> False,
Active -> True,
ButtonBoxOptions ->
{ButtonEvaluator -> Automatic, Active -> True, Background -> RGBColor[0.13, 0.4, 0.4]},
TextAlignment -> Center]};
In[2]:=
OKFunction[] := (Cases[First[NotebookGet[ButtonNotebook[]]],
Cell[BoxData[_], ___, TaggingRules :> {_ -> _String}, ___], -1] /.
Cell[a_, ___, TaggingRules :> {_ -> s_String}, ___] :>
Append[ToExpression[s, StandardForm, Hold],
First[MakeExpression[a, StandardForm]]] /.
Hold -> Set; $ExtraFunction);
In[3]:=
$FETemplateHelp = Notebook[{Cell["Enter values into the white fields, then press the OK button",
"Text"]}, WindowSize -> {FitAll, FitAll}];
In[4]:=
FETemplate[{entries__String, r___}, opts___Rule] := FETemplate[{{entries, r}}, opts];
In[5]:=
FETemplate[pr:{{_String, _String, ___}..}, opts___Rule] :=
Block[{but, title, nbo, promptcellstyle},
promptcellstyle = Sequence @@ Flatten[{PromptCellStyle /. {opts} /. Options[FETemplate]}];
but = FETemplateButton /. {opts} /. Options[FETemplate];
nbo = Sequence @@ Flatten[{FETemplateNotebookOptions /. {opts} /. Options[FETemplate]}];
title = FETemplateTitle /. {opts} /. Options[FETemplate];
NotebookPut[Notebook[Append[Prepend[Flatten[Table[{Cell[pr i,1, promptcellstyle],
Cell[If[Length[pri] === 2, BoxData[""],
BoxData[pri,3]], "Input",
TaggingRules -> {"variable" -> pri,2}, CellFrame ->
True,
CellMargins -> {{9, Inherited}, {4, 0}}, Background -> GrayLevel[1],
CellTags -> "EnterCell"]}, {i, Length[pr]}]], title],
but], nbo,
WindowSize -> {FitAll, FitAll}]]]
In[26]:=
FETemplate[{"Anzahl Der Gleichungen","z","0"}];
VekGleichung=Table[1,{i,z}];
AlleGleichungen = Table[1,{i,0,z-1},{j,0,1}];
u = 1;
While[u¡Üz,{AlleGleichungenu,1= u."Gleichung",
AlleGleichungenu,2=StringForm["VekGleichung''",u],u++}]
FETemplate[AlleGleichungen];
In[21]:=
DSolve[VekGleichung,{y1[x],y2[x]},x]
In[17]:=
Remove["Global'*"]
Wenn ich jedoch diese zeile (ln157) vor die rote Zeile setze, dann fkt das ganze!!!!!!
In[157]:=
AlleGleichungen={{"Gleichung","VekGleichung1"}, {"Gleichung","VekGleichung2"}}
|
|
|
![[stop]](/images/smileys/stop.gif "[stop]"){kind=small}
![[kopfschuettel]](/images/smileys/kopfschuettel.gif "[kopfschuettel]"){kind=small}
Glaubst du nicht auch, dass du zu viele Ausrufezeichen erwischt hast?
