Can someone pls help on this problem in Mathematica

  • #1
kaizen.moto
98
0
Hi all,

I got stucked with the problem with regard to Do-Loop and solving simultaneous equations together.

Please help me on this matter and the file is attached, Iam using Mathematica 7

Thanks
 

Attachments

  • Exercise3.nb
    21 KB · Views: 272

Answers and Replies

  • #2
Bill Simpson
1,071
31
In Task 1 in (W1r)=(3m*n(Ar+Ar+1)...)) there is a missing ; and there are missing or extra {} or levels in your matrix equation that give errors. Once I try to guess what to do to fix those then it grinds away producing 37500 matrix equations and I assume it will finish in the future.

Task 2 is written in a very strange way but it does what you seem to request.

Task 3 is very difficult to understand. Substitute A0,A1,B0,B1 from Task 2 is clear. But substitute in what? In Task1? Sum W1r=0 what? In Task1?

To do substitutions in an expression usually you use
expression//.{A0-> -U10,A1-> -U11,B0-> -V10,B1-> -V11}
and that will replace all A0, A1,B0,B1 with your desired values in expression.

To Sum usually you use
Sum[W1r=0,{m,1,99,2},{n,1,99,2}]
if you have assigned the desired expression to W1r.

But it is not clear that I am answering what you have asked for or you have asked for what you need.

Perhaps the physics forums OtherSciences->Math&ScienceSoftware would be a better place to ask Mathematica syntax questions.
 
  • #3
Bill Simpson
1,071
31
Perhaps you can see how to adapt this very simple example to your actual problem.

In[4]:= w=3m*n*a+8n^2*b;
rules=Solve[{a+u==0,b+v==0},{a,b}];
Sum[w//.rules,{m,1,5,2},{n,0,3,1}]

Out[6]= {-162 u-336 v}
 

Suggested for: Can someone pls help on this problem in Mathematica

  • Last Post
Replies
3
Views
735
  • Last Post
Replies
0
Views
379
  • Last Post
Replies
4
Views
577
  • Last Post
Replies
1
Views
407
Replies
1
Views
664
Replies
15
Views
772
Replies
4
Views
2K
Replies
2
Views
300
Replies
1
Views
226
  • Last Post
Replies
2
Views
400
Top