Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Compilation syntax problems' topicStudent Support Forum > General > Archives > "Compilation syntax problems"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Forum Moderator
email me
09/28/98 3:00pm

>
> Hi,
> I have tried in vain to compile the following
> \!\(\[Nu][k_] := \
> \((v = Round[{9, 3, 1} . k\/K0] + 14;
> If[v \[GreaterEqual] 1\ && \ v \[LessEqual] 27, v, 14])\);

> S\_l = Table[k = \[Xi][i];
> If[EvenQ[Round[
> \(k\[LeftDoubleBracket]1\[RightDoubleBracket] +
> k\[LeftDoubleBracket]2\[RightDoubleBracket] +
> k\[LeftDoubleBracket]3\[RightDoubleBracket]\)\/K0]],
> \(-c\_l\)\ InvSq[k], 0. ], {i, 27}]; \ S\_H = \(- .9882\) S\_l\ ;
> \[Mu] = \ 44.7\ e;
\[Kappa][kn_] :=
> DiagonalMatrix[\(c\_2\) Table[ke = kn - \[Xi][i]; ke . ke, {i, 27}]];
> offD := Table[
> If[i \[Equal] j, 0. , v = \[Nu][\[Xi][i] - \[Xi][j]];
> S\_H\[LeftDoubleBracket]v\[RightDoubleBracket] +
> S\_l\[LeftDoubleBracket]v\[RightDoubleBracket]], {i, 27}, {j, 27}];
> NOffD = offD;

> G[kn_] :=
> Module[{Eval, Evec},

> \t\t{Eval, Evec} = Eigensystem[NOffD + \[Kappa][kn]];
\t\t
> fdDiag = DiagonalMatrix[
> Table[fd[Eval\[LeftDoubleBracket]i\[RightDoubleBracket], \[Mu]], {
> i, 27}]];
\t\
> 0.5 \((Transpose[Evec] . fdDiag . TakeColumns[Evec, {14, 14}])\)
\t];
>
calcSEn :=
> Module[{MK}, MK = Table[0. , {i, 27}];
\t\t
> For[h = 1, h \[LessEqual] qN, \(h++\),
> For[i = 1, i \[LessEqual] qN, \(i++\),
> For[j = 1, j \[LessEqual] qN, \(j++\), \
\t\t\t\t\t
> MK += \(xw\[LeftDoubleBracket]h
> \[RightDoubleBracket]\)\[LeftDoubleBracket]2
> \[RightDoubleBracket]
> \(xw\[LeftDoubleBracket]i
> \[RightDoubleBracket]\)\[LeftDoubleBracket]2
> \[RightDoubleBracket]
> \(xw\[LeftDoubleBracket]j
> \[RightDoubleBracket]\)\[LeftDoubleBracket]2
> \[RightDoubleBracket]
> G[{\(xw\[LeftDoubleBracket]h
> \[RightDoubleBracket]\)\[LeftDoubleBracket]1
> \[RightDoubleBracket],
> \(xw\[LeftDoubleBracket]i
> \[RightDoubleBracket]\)\[LeftDoubleBracket]1
> \[RightDoubleBracket],
> \(xw\[LeftDoubleBracket]j
> \[RightDoubleBracket]\)\[LeftDoubleBracket]1
> \[RightDoubleBracket]}]]]];
\t\t\t\t\
> S\_H = Table[
> If[i == 14, c\_n\ MK\[LeftDoubleBracket]i\[RightDoubleBracket], \
> MK\[LeftDoubleBracket]i\[RightDoubleBracket] InvSq[\[Xi][i]]\ 2.
> \ c\_0], {i, 27}];
\t\t\ \ \ S\_H = Flatten[S\_H];
> S\_H = 1. \ Chop[S\_H, 10\^\(-30\)];
\t\ \ \ \ NOffD = offD;
\t]; \)
>
> Also for the last function, I tried using Map to do the integration of
> a vector function and had problems.
> Any suggestions?
> regards
> Mukund
>

URL: ,

Subject (listing for 'Compilation syntax problems')
Author Date Posted
Compilation syntax problems Mukund Swami... 09/28/98 2:55pm
Re: Compilation syntax problems Forum Modera... 09/28/98 3:00pm
Re: Compilation syntax problems Forum Modera... 09/28/98 3:00pm
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic