I need a help about Mathematica

  • Mathematica
  • Thread starter sedat
  • Start date
  • #1
15
0
Greetings from Turkey,

Friends, I have a big problem about Math. the problem is that I have three equations having 16th orders and I got 16 amount roots which have both complex conj. and real parts by solving these equations with the code of the NSolve, up to here It is all ok, but I would like to eliminate Complex and just print real roots. Now 2 reals and 14 complexes roots are printed on my programing.

in second step; as seen figure-1; after eliminating complexes roots, I would like to put each real root into the form of the "figure-2".

Already thanks dear friends...
 

Attachments

  • figure-1.JPG
    figure-1.JPG
    58.1 KB · Views: 266
  • figure-2.JPG
    figure-2.JPG
    3.3 KB · Views: 197

Answers and Replies

  • #2
15
0
I am looking forward to ur responses...
 
  • #3
1,069
29
Solve[ArcTan[#]*360/Pi==T1, T1]& /@ DeleteCases[Tan[T1/2]/.ROOTS, _Complex]

OR exactly the same thing written in a different way

T1ROOTS = ReplaceAll[Tan[T1/2], ROOTS];
realT1ROOTS = DeleteCases[T1ROOTS, _Complex];
f[x_] := Solve[ArcTan[x]*360/Pi == T1, T1];
Map[f, realT1ROOTS]

Then repeat this for T2 and for T3
 
Last edited:
  • #4
15
0
Solve[ArcTan[#]*360/Pi==T1, T1]& /@ DeleteCases[Tan[T1/2]/.ROOTS, _Complex]

OR exactly the same thing written in a different way

T1ROOTS = ReplaceAll[Tan[T1/2], ROOTS];
realT1ROOTS = DeleteCases[T1ROOTS, _Complex];
f[x_] := Solve[ArcTan[x]*360/Pi == T1, T1];
Map[f, realT1ROOTS]

Then repeat this for T2 and for T3


I am so thankful to you, it is a very good expression to me and I am brink on maneging to these thanks to you,

Last thing that I need is that I would like to put each T1, T2 and T3 into some matries and result it. I tried this, but I could not. pls help about this.

I mean that these result are put into matries algebra which will result in some cordinates in x-y-z,

I uploaded what I tried.

Thanks already
 

Attachments

  • 07.06.10-1.JPG
    07.06.10-1.JPG
    82.2 KB · Views: 270
  • 07.06.10-2.JPG
    07.06.10-2.JPG
    93.6 KB · Views: 280
  • #5
1,069
29
Rxx1 = {{1,0,0}, {0,Cos[#1 Degree],-Sin[#2 Degree]}, {0,Sin[#3 Degree],
Cos[#4 Degree]}}& @@ Map[Last[#] &, Flatten[Astra]];
Rxx2 = {{1,0,0}, {0,Cos[#1 Degree],-Sin[#2 Degree]}, {0,Sin[#3 Degree],
Cos[#4 Degree]}}& @@ Map[Last[#] &, Flatten[Vectra]];
Rxx3 = {{1,0,0}, {0,Cos[#1 Degree], -Sin[#2 Degree]}, {0,Sin[#3 Degree],
Cos[#4 Degree]}}& @@ Map[Last[#] &, Flatten[Zafira]];
 
  • #6
15
0
Rxx1 = {{1,0,0}, {0,Cos[#1 Degree],-Sin[#2 Degree]}, {0,Sin[#3 Degree],
Cos[#4 Degree]}}& @@ Map[Last[#] &, Flatten[Astra]];
Rxx2 = {{1,0,0}, {0,Cos[#1 Degree],-Sin[#2 Degree]}, {0,Sin[#3 Degree],
Cos[#4 Degree]}}& @@ Map[Last[#] &, Flatten[Vectra]];
Rxx3 = {{1,0,0}, {0,Cos[#1 Degree], -Sin[#2 Degree]}, {0,Sin[#3 Degree],
Cos[#4 Degree]}}& @@ Map[Last[#] &, Flatten[Zafira]];

Brother, thanks for everything,

I would like to have a suggest from you about the points (x,y,z) found by matries algebra in the last step, I mean how I ought to put the points into 3-D, namely; the plotting ought to look very very nice:) maybe it is plooted in 2-D.

What do you suggest me?
 
  • #7
1,069
29
I do not see your result so I am not sure. Perhaps this example will help

points=Table[{Sin[t],Cos[t],t/(2 Pi)},{t,0,4Pi,Pi/12}]

to see some sample points. Then

Show[Graphics3D[{PointSize[0.02],Map[Point,points]}],
ViewPoint->{2,-3,5/4},ImageSize->800]

Change PointSize, ViewPoint and ImageSize to best show your points.

To plot in 2D

ListPlot[Map[Drop[#, -1] &, points]]

which removes the z and then plots xy in 2D

If this is not helpful then show the complete result you must plot
 
  • #8
15
0
I do not see your result so I am not sure. Perhaps this example will help

points=Table[{Sin[t],Cos[t],t/(2 Pi)},{t,0,4Pi,Pi/12}]

to see some sample points. Then

Show[Graphics3D[{PointSize[0.02],Map[Point,points]}],
ViewPoint->{2,-3,5/4},ImageSize->800]

Change PointSize, ViewPoint and ImageSize to best show your points.

To plot in 2D

ListPlot[Map[Drop[#, -1] &, points]]

which removes the z and then plots xy in 2D

If this is not helpful then show the complete result you must plot



my screen result is below.
 

Attachments

  • 08.06.10.JPG
    08.06.10.JPG
    81.6 KB · Views: 266
  • 08.06.10-2.JPG
    08.06.10-2.JPG
    54.4 KB · Views: 304

Related Threads on I need a help about Mathematica

Replies
9
Views
2K
Replies
7
Views
2K
Replies
2
Views
1K
Replies
2
Views
3K
Replies
1
Views
2K
Replies
4
Views
2K
Replies
1
Views
1K
Replies
23
Views
10K
Replies
12
Views
4K
Replies
1
Views
3K
Top