Items tagged with label label Tagged Items Feed

I am trying to alter the Virtual Solar system Maple worksheet of Yi Xie in the way that I added several objects to the eight planets and Pluto (e.g. Hale-Bopp, Sedna, 2012 VP113 etc.) and would like to adjust the array such that when zooming out and the obrit and labels overlap so that it's unreadable anymore (orbits and labels) that I can switch on and off (respectively display/not display) specific parts, e.g. the inner solar system. In the original file a single array was created from 1..18 (including 9 orbital entries and 9 label entries). What I did is to create arrays for each part of the Solar system, e.g. Inner for the planets+Pluto 1..18, an array for Hale-Bopp with an orbital entry and a label entry, so [1,2], and an array with 6 entries for 3 additional objects like Sedna, Planet X and 2012 VP113. As well as the sun, which only has a single entry as there are no orbital elements necessary and one just makes a 3dplot (I did not label it, so just one entry). All arrays are converted into lists in the end and displayed. Here is the code:

 

> with(linalg);

> with(plots);

> with(plottools);

> P1 := matrix([[cos(omega[j]), -sin(omega[j]), 0], [sin(omega[j]), cos(omega[j]), 0], [0, 0, 1]]); P2 := matrix([[1, 0, 0], [0, cos(i[j]), -sin(i[j])], [0, sin(i[j]), cos(i[j])]]); P3 := matrix([[cos(Omega[j]), -sin(Omega[j]), 0], [sin(Omega[j]), cos(Omega[j]), 0], [0, 0, 1]]);

> A:=matrix([[a[j]*(cos(E[j])-e[j])],[a[j]*sqrt(1-e[j]^2)*sin(E[j])],[0]]);

> R:=multiply(P3,P2,P1);

> B:=multiply(R,A);

> a := [.38709893, .72333199, 1.00000011, 1.52366231, 5.20336301, 9.53707032, 19.19126393, 30.06896348, 39.48168677, 1/0.5454e-2, 268.2509283, 532.7838156, 300];

> e := [.20563069, 0.677323e-2, 0.1671022e-1, 0.9341233e-1, 0.4839266e-1, 0.5415060e-1, 0.4716771e-1, 0.858587e-2, .24880766, .994920, .7005635, .8570973, .1];

> i := [7.00487, 3.39471, 0.5e-4, 1.85061, 1.30530, 2.48446, .76986, 1.76917, 17.14175, 89.5328, 24.01830, 11.92859, 10];

> Omega := [48.33167, 76.68069, -11.26064, 49.57854, 100.55615, 113.71504, 74.22988, 131.72169, 110.30347, 282.1476, 90.88303, 144.53190, 45];

> omega := [77.45645, 131.53298, 102.94719, 336.04084, 14.75385, 92.43194, 170.96424, 44.97135, 224.06676, 130.8038, 293.03200, 311.18311, 150];

> i := map(x→ convert(x, units, deg, rad) end proc, i);

> Omega := map(x→ convert(x, units, deg, rad) end proc, Omega);

> omega := map(x→ convert(x, units, deg, rad) end proc, omega);

> for j to 13 do omega[j] := arcsin(sin(omega[j]-Omega[j])/sin(arccos(sin(i[j])*cos(omega[j]-Omega[j])))) end do;

> x := array(1 .. 13);

> y := array(1 .. 13);

> z := array(1 .. 13);

> for j to 13 do x[j] := B[1, 1]; y[j] := B[2, 1]; z[j] := B[3, 1] end do;

> Sun := array([1]);

> Inner := array(1 .. 18); for j to 9 do Colors := [black, green, blue, red, black, yellow, green, violet, brown, aquamarine, black, black, red]; Linestyle := [solid, solid, solid, solid, solid, solid, solid, solid, solid, longdash, solid, solid, longdash]; Inner[j] := spacecurve([subs(E[j] = E, x[j]), subs(E[j] = E, y[j]), subs(E[j] = E, z[j])], E = 0 .. 2*Pi, color = Colors[j], linestyle = Linestyle[j]) end do;

> Comet := array([1, 2]); if j = 10 then Colors := [aquamarine]; Linestyle := [longdash]; Comet[1] := spacecurve([subs(E[j] = E, x[j]), subs(E[j] = E, y[j]), subs(E[j] = E, z[j])], E = 0 .. 2*Pi, color = Colors[j], linestyle = Linestyle[j]) end if;

> Oort := array(1 .. 6); for j from 11 to 13 do Colors := [black, black, red]; Linestyle := [solid, solid, longdash]; Inner[j] := spacecurve([subs(E[j] = E, x[j]), subs(E[j] = E, y[j]), subs(E[j] = E, z[j])], E = 0 .. 2*Pi, color = Colors[j], linestyle = Linestyle[j]) end do;

> Sun[1] := plot3d(0.1e-1, 0 .. 2*Pi, 0 .. Pi, style = PATCHNOGRID, coords = spherical, color = red);

> Inner[10] := textplot3d([subs(E[1] = 0, x[1]), subs(E[1] = 0, y[1]), subs(E[1] = 0, z[1]), "Mercury"]); Inner[11] := textplot3d([subs(E[2] = 0, x[2]), subs(E[2] = 0, y[2]), subs(E[2] = 0, z[2]), "Venus"]); Inner[12] := textplot3d([subs(E[3] = 0, x[3]), subs(E[3] = 0, y[3]), subs(E[3] = 0, z[3]), "Earth"]); Inner[13] := textplot3d([subs(E[4] = 0, x[4]), subs(E[4] = 0, y[4]), subs(E[4] = 0, z[4]), "Mars"]); Inner[14] := textplot3d([subs(E[5] = 0, x[5]), subs(E[5] = 0, y[5]), subs(E[5] = 0, z[5]), "Jupiter"]); Inner[15] := textplot3d([subs(E[6] = 0, x[6]), subs(E[6] = 0, y[6]), subs(E[6] = 0, z[6]), "Saturn"]); Inner[16] := textplot3d([subs(E[7] = 0, x[7]), subs(E[7] = 0, y[7]), subs(E[7] = 0, z[7]), "Uranus"]); Inner[17] := textplot3d([subs(E[8] = 0, x[8]), subs(E[8] = 0, y[8]), subs(E[8] = 0, z[8]), "Neptune"]); Inner[18] := textplot3d([subs(E[9] = 0, x[9]), subs(E[9] = 0, y[9]), subs(E[9] = 0, z[9]), "Pluto"]); Comet[2] := textplot3d([subs(E[10] = 0, x[10]), subs(E[10] = 0, y[10]), subs(E[10] = 0, z[10]), Hale-Bopp]); Oort[4] := textplot3d([subs(E[11] = 0, x[11]), subs(E[11] = 0, y[11]), subs(E[11] = 0, z[11]), "2012 VP113"]); Oort[5] := textplot3d([subs(E[12] = 0, x[12]), subs(E[12] = 0, y[12]), subs(E[12] = 0, z[12]), "Sedna"]); Oort[6] := textplot3d([subs(E[13] = 0, x[13]), subs(E[13] = 0, y[13]), subs(E[13] = 0, z[13]), "Planet X ?", color = red]);

> Sun1 := convert(Sun, 'list');
> Inner1 := convert(Inner, 'list');
> Comet1 := convert(Comet, 'list');
> Oort1 := convert(Oort, 'list');
> display(Sun1, Inner1, Comet1, Oort1, scaling = CONSTRAINED);

 

The first error message appears after the if-condition. Can you tell me where I am making a mistake? Beware: when copy paste the code from Maple to Word and from Word in here the colons at the end of lines have changed into semi-colons. Hope this is no problem in executing the code despite the lines being in the same ">..." e.g. where the labels are defined.

When you label a function of curve, this label is put just next to it. Is there a way to move this label to another position of the same curve?

How do you move plot labels individually? Just click-hold-and-drag does not work.

"A Virtual 3D Solar System": http://www.maplesoft.com/applications/view.aspx?SID=4484&view=html#mapleautobookmark5

How do you color the orbits individually?

Hello people in mapleprimes,

 

I have a question of labels of equations.

For example, suppose that there is a following description in a worksheet.

>2*x+y=5;

  2*x+y=5   (1)

>3*x+y=6;

  3*x+y=6   (2)

>solve({(1),(2)},{x,y});

 {x=1,y=3}          (3)

subs((3),100+x+100*y)

    400   

 

And, when I moved (2) to the next to (1) with dragging, and then, clicked !!! to execute it, then the worksheet 

changes as follows, which is wrong as accompanying ??

>2*x+y=5;3*x+y=6;

  2*x+y=5

 3*x+y=6   (1)

>solve({(1),??},{x,y})

{x = x, y = -3*x+6}          (2)

>subs({(1),??},100*x+100*y)

-200*x+600

 

Do you know some good way for ?? not to appear in the above sitiation.

I will appreciate when you tell me some measures about this.

 

Best wishes.

 

taro

 

 

 

 

 

 

How is vertical text created in a plot?  It would be similiar to using the labeldirection option set to "vertical", but my text in question will be an annotation within the field of the plot.  A more general question would be how to place rotated text within a plot.    

Hello,

Is it possible to have the labels of the x-axis and of the tickmarks above the axis?

Thank you!

Hello fellow Maple users. 
I have been useing Maple for 5 month now and i think its a great program. But sometimes i find it a bit difficult to use. 
When i plot a function i would like to see the function on the line in the plot that represents the funtion. So if have several lines representing different functions, i would Maple to highlight the function when i hower over the function 
with the mouse .. Is this posible ? I know its posible in Inspires CAS. 

It must be posible for Maple to label the plots with the function ??? If not Maple programmers got a job...

Sometimes maple tends to press enter two times when I want to access a label with Ctrl+L

Here is what I mean:

This happened because it "pressed" enter 2 times. This doesn't happen all the time. Did anybody have this problem? Any way to fix it?

P.S. My space bar is alright 100%

Dear Maple users

This may be an easy task, but I cannot seem to find out how to do it: How do I get the solutions of an equation on a list form? Let's say the output of the solve command has the reference number (1), then I tried using the convert command and a label to refer to the Maple output, but it didn't work:

convert((1),list)

I hope someone can help me do it.

Regards,

Erik

Hi, I would like to label curves on a plot but using horizontal text looks really bad.  I would like to use verical text labels or even text labels that follow the curves.  It this possible in Maple?  I have tried rotate with textplot but that only rotates the point and not the text.  Any ideas would be great! Thanks.

Hello everyone.

an equation or a table can have a label and can be later referred to by using insert->label. Can we do the same for inserted images? Like Figure 1, etc.... A workaround is to insert the image in a 1x1 table and reformat the caption. But I am not sure that's the ultimate solution.

Another related question: can an equation that is just in the 2D math mode that is not meant for execution get a dummy label like (*) or (**) or something like that?

Hi guys! 

I'm going to plot:

plote1 := spacecurve(e1(theta),theta=a1..b1,color=red):
plote1p := plot(e1plan(theta),theta=Pi/4..Pi/2,color=red):
plote2 := spacecurve(e2(theta),theta=a2..b2,color=blue):
plote2p := plot(e2plan(theta),theta=0..Pi,color=blue):
plote3 := spacecurve(e3(theta),theta=a3..b3,color=yellow):
plote3p := plot(e3plan(theta),theta=0..3*Pi/2,color=yellow):
A := array(1..2):
A[1] := display(C,plote3,plote1,plote2,orientation=[60,75],axes=box):

Dear,

I have problem that after using assume(...) and then use label such as (1.1)... then the assumptions are lost. Is it a bug?

Below is my attached worksheet (I used Maple 13 , I don't know if later version is better?)

label_and_assume.mw

Actually , the lost of assumptions will cause some problems such as make integration become unevaluated.... and will take you a hard time to debug...

A recent Tips and Techniques article in the Maple Reporter contained the following five "gems" from my Red Book of Maple Magic. These 'gems' are tricks and techniques for Maple that I've discovered in my years here at Maplesoft. The previous 15 gems have appeared in three other issues of the Reporter, as...

Hello,

To label plot axes as Greek letters, one should use the "labelfont=[SYMBOL]" parameter, but this option makes both axes in Greek letters. Is it possible to make only the horizontal axe as a Greek letter, while the vertical axe remains as an English word?

Thanks in advance.

1 2 Page 1 of 2