2 Replies - 1291 Views - Last Post: 30 August 2013 - 08:01 PM Rate Topic: -----

#1 thenyow  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 21-August 13

Jacobi Iterative Method

Posted 21 August 2013 - 08:21 AM

Private Sub Command1_Click()

1 ANSWER.x.Text = (((-y1.Text * ANSWER.y) + (-z1.Text * ANSWER.z) + (-w1.Text * anaswer.w) + (c1.Text)) / x1.Text)
2 ANSWER.x.Text = (((-y2.Text * ANSWER.y) + (-z2.Text * ANSWER.z) + (-w2.Text * anaswer.w) + (c2.Text)) / x2.Text)
3 ANSWER.x.Text = (((-y3.Text * ANSWER.y) + (-z3.Text * ANSWER.z) + (-w3.Text * anaswer.w) + (c3.Text)) / x3.Text)
4 ANSWER.x.Text = (((-y4.Text * ANSWER.y) + (-z4.Text * ANSWER.z) + (-w4.Text * anaswer.w) + (c4.Text)) / x4.Text)

5 ANSWER.y.Text = (((-x1.Text * ANSWER.x) + (-z1.Text * ANSWER.z) + (-w1.Text * anaswer.w) + (c1.Text)) / y1.Text)
6 ANSWER.y.Text = (((-x2.Text * ANSWER.x) + (-z2.Text * ANSWER.z) + (-w2.Text * anaswer.w) + (c2.Text)) / y2.Text)
7 ANSWER.y.Text = (((-x3.Text * ANSWER.x) + (-z3.Text * ANSWER.z) + (-w3.Text * anaswer.w) + (c3.Text)) / y3.Text)
8 ANSWER.y.Text = (((-x4.Text * ANSWER.x) + (-z4.Text * ANSWER.z) + (-w4.Text * anaswer.w) + (c4.Text)) / y4.Text)

9  ANSWER.z.Text = (((-x1.Text * ANSWER.x) + (-y1.Text * ANSWER.y) + (-w1.Text * anaswer.w) + (c1.Text)) / z1.Text)
10 ANSWER.z.Text = (((-x2.Text * ANSWER.x) + (-y2.Text * ANSWER.y) + (-w2.Text * anaswer.w) + (c2.Text)) / z2.Text)
11 ANSWER.z.Text = (((-x3.Text * ANSWER.x) + (-y3.Text * ANSWER.y) + (-w3.Text * anaswer.w) + (c3.Text)) / z3.Text)
12 ANSWER.z.Text = (((-x4.Text * ANSWER.x) + (-y4.Text * ANSWER.y) + (-w4.Text * anaswer.w) + (c4.Text)) / z4.Text)

13 ANSWER.w.Text = (((-x1.Text * ANSWER.x) + (-y1.Text * ANSWER.y) + (-z1.Text * anaswer.z) + (c1.Text)) / w1.Text)
14 ANSWER.w.Text = (((-x2.Text * ANSWER.x) + (-y2.Text * ANSWER.y) + (-z2.Text * anaswer.z) + (c2.Text)) / w2.Text)
15 ANSWER.w.Text = (((-x3.Text * ANSWER.x) + (-y3.Text * ANSWER.y) + (-z3.Text * anaswer.z) + (c3.Text)) / w3.Text)
16 ANSWER.w.Text = (((-x4.Text * ANSWER.x) + (-y4.Text * ANSWER.y) + (-z4.Text * anaswer.z) + (c4.Text)) / w4.Text)



Hey guys I need your help badly. Im creating a jacobi iteration program for our laboratory and got stuck at the conditions. I dont know what to do next. I dont know how to make codes to know the dominants( for X,Y,Z,W) of every equation (for example -2X+3Y+7Z-5W=13, the dominant is "Z"). Please help me guys. Thanks in advance.

This post has been edited by modi123_1: 21 August 2013 - 08:25 AM
Reason for edit:: highlight your text and click the 'code' tag button


Is This A Good Question/Topic? 0
  • +

Replies To: Jacobi Iterative Method

#2 thenyow  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 21-August 13

Re: Jacobi Iterative Method

Posted 21 August 2013 - 08:28 PM

hey guys pls help me. i need it badly :(
Was This Post Helpful? 0
  • +
  • -

#3 BobRodes  Icon User is offline

  • Your Friendly Local Curmudgeon
  • member icon

Reputation: 574
  • View blog
  • Posts: 2,989
  • Joined: 19-May 09

Re: Jacobi Iterative Method

Posted 30 August 2013 - 08:01 PM

I have no expertise in this area. I'd be more than happy to discuss music theory if it would he helpful, however. Or anything else I know about that's as unrelated to VB6 as the "Jacobi Iterative Method."

This post has been edited by BobRodes: 30 August 2013 - 08:02 PM

Was This Post Helpful? 0
  • +
  • -

Page 1 of 1