Comment dessiner un cœur dans JMP ?Voici une façon de le faire, en utilisant des équations paramétriques trouvées sur Math World : Courbe cardiaque .
New Table( "heart",
New Column( "t", Set Values( Index( 0, 2 * Pi(), 0.1 ) ) ),
New Column( "x", Formula( 16 * Power( Sin(t), 3 ) ) ),
New Column( "y", Formula( 13 * Cos(t) - 5 * Cos(2 * t) - 2 * Cos(3 * t) - Cos(4 * t) ) )
);
Graph Builder( Show Control Panel( 0 ), Variables( X( :x ), Y( :y ), Legend( 1 )), Elements( Formula( X, Y ) ),
SendToReport( Dispatch( {}, "400", ScaleBox,
{Legend Model( 1, Properties( 0, {Line Color( "Red" ), Line Width( 4 )} ) )})
)
);
Re : Comment dessiner un cœur dans JMP ?C'est merveilleux !
Re : Comment dessiner un cœur dans JMP ?Le château de Boldt se trouve sur Heart Island. http://www.boldtcastle.com/visitorinfo/
Re : Comment dessiner un cœur dans JMP ?Le temps a créé de nombreuses formes à la surface de la Terre. En voici un copieux. Il doit y avoir plus là-bas?
nw = New Window("Galešnjak Island", Graph Box());
nw[AxisBox(1)] << Scale("Geodesic") << Min(43.9761119) << Max(43.9806944);
nw[AxisBox(2)] << Scale("Geodesic") << Min(15.379375) << Max(15.387375);
nw[framebox(1)] << Background Map(Images("street map service"));
Re : Comment dessiner un cœur dans JMP ?Très mignon! Merci Mandy !
Re : Comment dessiner un cœur dans JMP ?dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << colorByColumn(:sex);
dt<<NEW column=""></NEW><BR />
Hearts ...Hearts ...Cœurs ...
Re : Comment dessiner un cœur dans JMP ?C'est super - merci, John !
Re : Comment dessiner un cœur dans JMP ?Cette façon de dessiner un cœur n'est pas nouvelle, mais la rendre interactive à l'aide de JMP Public est nouvelle.
Appuyez sur le bouton de lecture et les curseurs en bas et utilisez le menu à côté de "Cœur animé" pour modifier les paramètres de bulle. Voir sur public.JMP.com .
Re : Comment dessiner un cœur dans JMP ?À l'approche de la Saint-Valentin, je me suis souvenu de ce fil amusant. Je me demande s'il y a de nouvelles façons de faire cela au cours des deux dernières années ? Veuillez les partager ici, et votre valentine JMP pourrait apparaître sur nos réseaux sociaux -- merci !
Re : Comment dessiner un cœur dans JMP ?Bon!Re : Comment dessiner un cœur dans JMP ?Voici une façon de le faire en utilisant les fonctions de dessin (aucune table de données requise):
Names Default To Here( 1 );
func_HeartFilledPolygon = Function(
{},
{_HeartShapeX, _HeartShapeY, t=0::2*Pi()::0.1},
_HeartShapeY = 13 * Cos( t ) - 5 * Cos( 2 * t ) - 2 * Cos( 3 * t ) - Cos( 4 * t ) ;
_HeartShapeX = Power( Sin( t ), 3 );
Eval( Substitute( Expr( Polygon( Expr( shape_x ), Expr( shape_y ) ) ), Expr( shape_x ), _HeartShapeX, Expr( shape_y ), _HeartShapeY ) );
);
new window("Belated Valentines Day",
_ob=OutlineBox("Heart",
_hlb=HListBox(
_grbox=Graph Box(
X Scale(-1.5, 1.5),
Y Scale(-20, 15),
XName(""),
YName(""),
Fill Color("red");
func_HeartFilledPolygon();
)
)
)
);
Re : Comment dessiner un cœur dans JMP ?Ce sont tous fantastiques, je les ai vraiment appréciés aujourd'hui.
Re : Comment dessiner un cœur dans JMP ?Voici un cœur transparent, construit au-dessus de l'équation 3D Dan trouvé. L'exécution du script est bien plus satisfaisante que l'image.
Surface Plot(
Show formula( 1 ),
Mode( "Isosurface" ),
Resolution( 101 ),
Surface Color( "Red" ),
Equation( "(x^2+9*y^2/4+z^2-1)^3-x^2*z^3-9*y^2*z^3/80" ),
SetVariableAxis( x, Axis Data( {Min( -1.3 ), Max( 1.3 ), Inc( 0.5 ), Minor Ticks( 1 )} ) ),
SetVariableAxis( y, Axis Data( {Min( -2 ), Max( 3 ), Inc( 1 ), Minor Ticks( 1 )} ) ),
SetVariableAxis( z, Axis Data( {Min( -1.3 ), Max( 1.3 ), Inc( 0.5 ), Minor Ticks( 1 )} ) ),
SetXVariable( x ),
SetYVariable( y ),
Frame3D( Set Graph Size( 700, 700 ), Set Spin( 0.004, 0, -0.5, -0.3 ), Set Rotation( -90, -10, 45 ) ),
);
3D heart3D heartcoeur 3D
Le tracé de surface prend l'équation en X, Y, Z et montre l'iso-surface semi-transparente.
Re : Comment dessiner un cœur dans JMP ?Ce gif animé montre une application web qui génère 1000 points aléatoires à chaque clic sur le lien. Il utilise ensuite un modèle de réseau neuronal JMP exporté en JavaScript pour évaluer chaque emplacement. Le résultat - à l'intérieur ou à l'extérieur de la courbe paramétrique "cœur" - est utilisé pour attribuer une couleur et une taille.
Re : Comment dessiner un cœur dans JMP ?J'aime celui-ci!
Re : Comment dessiner un cœur dans JMP ?New Window( "heart",
Text Box(
"\!U2661",
<<SETFONTNAME></SETFONTNAME>
U2661 is a heartU2661 is a heartU2661 est un coeur
SetFontScale est nouveau pour JMP 13.
Re : Comment dessiner un cœur dans JMP ?J'aime celui-ci!Re : Comment dessiner un cœur dans JMP ?Vous pouvez également obtenir la version 3D de ceci en utilisant le surface du coeur comme expression de combinaison non autorisée.
Re : Comment dessiner un cœur dans JMP ?DOE> Special Purpose> Space Filling Design le fera également avec un script de combinaisons non autorisées.
Re : Comment dessiner un cœur dans JMP ?Si vous créez une colonne dans une table de données et modifiez le type de données en "expression", vous pouvez faire glisser et déposer des images de cœur dans des lignes. Le iconarchive a de nombreuses options commerciales gratuites à considérer.
La colonne peut être sélectionnée comme étiquette et les images apparaîtront dans les étiquettes de survol.
Re : Comment dessiner un cœur dans JMP ?Pour ceux qui sont fous d'amour...
dt = New Table( "Loopy Heart",
New Column( "theta", Set Values( Index( 0, 360, .01 ) ) ),
New Column( "r", Formula( 3.5 - 1.5 * Abs( cos(:theta) ) * Sqrt( 1.3 + Abs( sin( :theta) ) ) + <BR /> cos( 2 * :theta ) - 3 * sin( :theta ) + 0.7 * cos( 12.2 * :theta ) ) ),
New Column( "x", Formula( :r * cos( :theta ) ) ),
New Column( "y", Formula( :r * sin( :theta ) ) ),
New Column( "color", "rowstate", Set Formula( Color State( {206, 0, 0} ) ) )
);
dt:color << Copy To Row States();
dt << Graph Builder(
Show Control Panel( 0 ),
Variables( X( :x ), Y( :y ) ),
Elements( Points( X, Y, Legend( 9 ) ) ),
SendToReport( Dispatch( {}, "Graph Builder", FrameBox, {Marker Size( 0 )} ) )
);
Re : Comment dessiner un cœur dans JMP ?Fantaisie!Re : Comment dessiner un cœur dans JMP ?Puisque cette animation a fonctionné, en voici une autre :
Re : Comment dessiner un cœur dans JMP ?Beau!
Re : Comment dessiner un cœur dans JMP ?Ma petite fille voulait des cœurs animés et concentriques après avoir vu ceux de Xan (merci pour les équations, Xan !)
names default to here(1);
t = Index( 0, 2 * Pi(), 0.03 );
x = Power( Sin( t ), 3 );
y = 13 * Cos( t ) - 5 * Cos( 2 * t ) - 2 * Cos( 3 * t ) - Cos( 4 * t );
factors = index(.1, 1, .1);
mx = x`*factors;
my = y`*factors;
nw = new window("Hearts",
gb = graphbox(
xscale(-1.5,1.5),
yscale(-20,15),
suppressaxes
)
);
fb = gb[framebox(1)];
for(i=1, i<=nrow(mx), i++,
eval(evalexpr(
fb << Add Graphics Script(
marker(colorstate("red"),mx[expr(i),0], my[expr(i),0])
);
));
wait(.001)
);
Voici un aperçu d'environ 75 % du parcours :
Re : Comment dessiner un cœur dans JMP ?Super cool!Re : Comment dessiner un cœur dans JMP ?Scatterplot 3D(
Y( :t, :x, :y ),
Frame3D(
Set Wall Color( -16735350 ),
Set Grab Handles( 0 ),
Set Rotation( -86.2748434825603, -14.3412758272124, 89.6922810282153 ),
Background Color( 255, 152, 166 )
),
SendToReport( Dispatch( {}, "3", ScaleBox, {Min( -20.1415094339623 )} ) )
);
Et pour ceux qui ont Ebulliophilia (amour des bulles)…
Bubble Plot(
X( :x ),
Y( :y ),
Time( :t ),
Speed( 164.16 ),
Bubble Size( 21 ),
Time Index( 62.38 ),
Show Roles( 0 ),
Draw( "Outlined" ),
Trail Bubbles( "All" ),
Trail Lines( "All" ),
Title Position( 1.14479166666667, -17.5 ),
SendToReport(
Dispatch( {}, "1", ScaleBox, {Min( -1.25 ), Max( 1.25 ), Inc( 0.5 ), Minor Ticks( 1 )} ),
Dispatch( {}, "2", ScaleBox, {Min( -17.5 ), Max( 12.5 ), Inc( 5 ), Minor Ticks( 1 )} ),
Dispatch( {}, "Bubble Plot", FrameBox, {Frame Size( 412, 313 )} )
)
);
Re : Comment dessiner un cœur dans JMP ?
dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << colorByColumn(:sex);
dt << Bubble Plot(
X( :height ),
Y( :weight ),
Bubble Size( 30 ),
Set Custom Path(
"M-0.0887761244941046,0.850401752915005 C-0.132509691601686,0.801393885307063 -0.241710361277604,0.705852240487693 -0.331444173501431,0.638087060729371 C-0.59731840814714,0.437304249670604 -0.633503948597818,0.408246894851737 -0.741454403833403,0.308845722351141 C-0.940467837688774,0.125593337736938 -1.02498556965361,-0.0585152381026677 -1.02469594220815,-0.308151809968423 C-1.02455462493824,-0.430014445563118 -1.0162484277439,-0.476964317486802 -0.982121680497641,-0.548796088081649 C-0.924223053739587,-0.67066463840585 -0.838935502109301,-0.761222544208651 -0.729895396861719,-0.81660831893169 C-0.652666116521943,-0.855835967001217 -0.614576750684788,-0.873264164823037 -0.485609042303584,-0.873977173876701 C-0.350699586517109,-0.874722734579112 -0.322299550859126,-0.858992800688447 -0.242940961547844,-0.815395523171952 C-0.146347968002977,-0.762330214620364 -0.0469265717627411,-0.648920467226447 -0.0263747757632722,-0.568359238473025 L-0.0136814424115853,-0.518601854310303 L0.0176213189786486,-0.587129243639273 C0.194511321452139,-0.974373943618093 0.75925906037766,-0.96858025176609 0.955794219395568,-0.57750443258678 C1.01814070686722,-0.453444171783601 1.02498556965361,-0.188544549947051 0.969700405654138,-0.0393279571831673 C0.897583026328065,0.155319568139341 0.762129243985689,0.303715337410879 0.449006289596482,0.531116685379815 C0.243654945277814,0.680250541777138 0.0112441103286566,0.90589356734039 -0.00493465914355834,0.937585373794258 C-0.0237153698749651,0.974373943618093 -0.00583047238947826,0.943350568269966 -0.0887761244941046,0.850401752915005 z"
),
Set Shape( "Custom" ),
Title Position( 0, 0 ),
SendToReport(
Dispatch(
{},
"1",
ScaleBox,
{Min( 50 ), Max( 72.5 ), Inc( 5 ), Minor Ticks( 1 )}
),
Dispatch(
{},
"2",
ScaleBox,
{Min( 60 ), Max( 180 ), Inc( 20 ), Minor Ticks( 0 )}
)
)
);
