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

Re: Re: Re: too many special linear matrices


Carl,

  Thank you! I was getting more and more frustrated with people not
using InputForm in their messages when they post, and it turns out that
they probably were. I even got frustrated with myself when I'd look at
my sent messages and find that copy-and-paste into Mathematica was
screwed up. This will save me lots of trouble. Who'd've thought that it
was a feature with emoticons?!?

        C.O.

Carl Woll wrote:
> Roger Bagula wrote:
>
>   
>> Andrzej Kozlowski wrote:
>>
>>  
>>
>>     
>>> Andrzej Kozlowski
>>>
>>>
>>>
>>>    
>>>
>>>       
>> Andrzej Kozlowski,
>> Here are the error codes I get:
>> Mathematica:
>> SL[n_, p_] := Module[{vars =
>>    Table[Unique[
>>     a], {n2}], iters, mat}, iters = Map[{#, 0, p - 1} &, vars]; mat =
>>        Partition[vars, n]; Reap[
>>     Do[If[Det[mat,
>>       Modulus -> p] == 1, Sow[mat], Continue[]], Evaluate[Sequence @@
>>       iters]]][[2, 1]]]
>> SL[2, 2]
>>  
>>
>>     
> Roger,
>
> The problem is that n2 should be n^2. I think your email client is set 
> up to show n^2 with 2 as a superscript, but copy and pasting this form 
> converts the n^2 to n2. If you are using Thunderbird, then you can 
> deselect Options | Display | Display emoticons as graphics so that n^2 
> is displayed without superscripts to avoid this issue.
>
> At any rate, simply replace n2->n^2 in your corde to fix the errors you 
> are seeing.
>
> Carl Woll
> Wolfram Research
>
>   
>> Table::"iterb" : "Iterator \!\({n2}\) does 
>>          not have appropriate bounds. \!\(\*ButtonBox[\"Moreâ?¦\", ButtonStyle->\"
>>              RefGuideLinkText\", ButtonFrame->None, \
>> ButtonData:>\"General::iterb\"]\)"
>> Table::"itform" : "Argument \!\(\(\((\(\(\({#1, 0, \(\(2 - 1\)\)}\)\) \
>> &\))\)\)[\(\({n2}\)\)]\) at position \!\(2\) does not have the correct \
>> form for an iterator. \!\(\*ButtonBox[\"Moreâ?¦\", \
>> ButtonStyle->\"RefGuideLinkText\", \
>> ButtonFrame->None, ButtonData:>\"General::itform\"]\)"
>> Table::"iterb" : "Iterator \!\({n2}\) does not have appropriate bounds. \
>> \!\(\*ButtonBox[\"Moreâ?¦\", ButtonStyle->\"RefGuideLinkText\", \
>> ButtonFrame->None, ButtonData:>\"General::iterb\"]\)"
>> Do::"write" : "Tag \!\(List\) in \!\({n2}\) is Protected. \
>> \!\(\*ButtonBox[\"Moreâ?¦\", ButtonStyle->\"RefGuideLinkText\", \
>> ButtonFrame->None, ButtonData:>\"General::write\"]\)"
>> Do::"write" : "Tag \
>> \!\(List\) in \!\({n2}\) is Protected. \!\(\*ButtonBox[\"Moreâ?¦\", \
>> ButtonStyle->\"RefGuideLinkText\", \
>> ButtonFrame->None, ButtonData:>\"General::write\"]\)"
>> Part::"partw" : "Part \!\(1\) of \!\({}\) does not exist. \
>> \!\(\*ButtonBox[\"Moreâ?¦\", ButtonStyle->\"RefGuideLinkText\", \
>> ButtonFrame->None, ButtonData:>\"General::partw\"]\)"
>> Do::"write" : "Tag \
>> \!\(List\) in \!\({n2}\) is Protected. \!\(\*ButtonBox[\"Moreâ?¦\", \
>> ButtonStyle->\"RefGuideLinkText\", \
>> ButtonFrame->None, ButtonData:>\"General::write\"]\)"
>> General::"stop" : "Further output of \!\(Do :: \"write\"\) will be suppressed \
>> during this calculation. \!\(\*ButtonBox[\"Moreâ?¦\", \
>> ButtonStyle->\"RefGuideLinkText\", ButtonFrame->None, ButtonData:>\"General::\
>> stop\"]\)"
>> Part::"partw" :
>>         "Part \!\(1\) of \!\({}\) does not exist. \!\(\*ButtonBox[\"Moreâ?¦\", \
>> ButtonStyle->\"RefGuideLinkText\", ButtonFrame->None, ButtonData:>\"Ge\
>> neral::partw\"]\)"
>> Part::"partw" : "Part \!\(1\) of \!\({}\) does not exist. \
>> \!\(\*ButtonBox[\"Moreâ?¦\", ButtonStyle->\"RefGuideLinkText\", \
>> ButtonFrame->None, ButtonData:>\"General::partw\"]\)"
>> General::"stop" : "Further output of \!\(Part :: \"partw\"\) will be \
>> suppressed during this calculation. \!\(\*ButtonBox[\"Moreâ?¦\", \
>> ButtonStyle->\"RefGuideLinkText\", ButtonFrame->None, \
>> ButtonData:>\"General::stop\"]\)"
>> {Do[If[Det[mat$16, Modulus -> 2] == 1, Sow[mat$16], Continue[]], {a$22, 0, \
>> 1}, {{n2}, 0, 1}], {}}ã??2, 1ã??
>>  
>>
>>     
>
>
>   

-- 
==========================================================
Curtis Osterhoudt          
gardyloo at mail.remove_this.wsu.and_this.edu
PGP Key ID: 0x088E6D7A
Please avoid sending me Word or PowerPoint attachments
See http://www.gnu.org/philosophy/no-word-attachments.html
==========================================================



  • Prev by Date: RE: Packages--Automated package save
  • Next by Date: Re: benchmark...why don't you send it back?
  • Previous by thread: Re: Re: too many special linear matrices
  • Next by thread: product formula in mathematica