Modi per disegnare un cuore in JMP?Ecco un modo per farlo, usando le equazioni parametriche trovate in Math World: curva del cuore .
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 )} ) )})
)
);
Ri: Modi per disegnare un cuore in JMP?Questo è meraviglioso!
Ri: Modi per disegnare un cuore in JMP?Il castello di Boldt si trova su Heart Island. http://www.boldtcastle.com/visitorinfo/
Ri: Modi per disegnare un cuore in JMP?Il tempo ha creato molte forme sulla superficie terrestre. Eccone uno cordiale. Ci deve essere di più là fuori?
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"));
Ri: Modi per disegnare un cuore in JMP?Molto carino! Grazie Mandy!
Ri: Modi per disegnare un cuore in JMP?dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << colorByColumn(:sex);
dt<<NEW column=""></NEW><BR />
Hearts ...Cuori...
Ri: Modi per disegnare un cuore in JMP?Questo è fantastico - grazie, John!
Ri: Modi per disegnare un cuore in JMP?Questo modo di disegnare un cuore non è nuovo, ma renderlo interattivo con l'aiuto di JMP Public è una novità.
Premi il pulsante di riproduzione e i cursori in basso e utilizza il menu accanto a "Cuore animato" per modificare le impostazioni del grafico a bolle. Guardalo su public.JMP.com .
Ri: Modi per disegnare un cuore in JMP?Con l'avvicinarsi di San Valentino mi è venuta in mente questa divertente discussione. Mi chiedo se ci sono nuovi modi per farlo negli ultimi due anni? Condividili qui e il tuo San Valentino JMP potrebbe essere pubblicato sui nostri canali di social media -- grazie!
Ri: Modi per disegnare un cuore in JMP?Carino!Ri: Modi per disegnare un cuore in JMP?Ecco un modo per farlo utilizzando le funzioni di disegno (non è richiesta alcuna tabella dati):
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();
)
)
)
);
Ri: Modi per disegnare un cuore in JMP?Sono tutti fantastici, mi sono davvero divertito oggi.
Ri: Modi per disegnare un cuore in JMP?Ecco un cuore trasparente, costruito sopra l'equazione 3D Dan trovato. L'esecuzione dello script è molto più soddisfacente dell'immagine.
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 heartCuore 3D
Il grafico della superficie prende l'equazione in X,Y,Z e mostra l'iso-superficie semitrasparente.
Ri: Modi per disegnare un cuore in JMP?Questa gif animata mostra un'applicazione web che genera 1000 punti casuali ogni volta che si fa clic sul collegamento. Utilizza quindi un modello di rete neurale JMP esportato come JavaScript per valutare ogni posizione. Il risultato - all'interno o all'esterno della curva parametrica del "cuore" - viene utilizzato per assegnare colore e dimensione.
Ri: Modi per disegnare un cuore in JMP?Ama questo!
Ri: Modi per disegnare un cuore in JMP?New Window( "heart",
Text Box(
"\!U2661",
<<SETFONTNAME></SETFONTNAME>
U2661 is a heartU2661 è un cuore
SetFontScale è una novità per JMP 13.
Ri: Modi per disegnare un cuore in JMP?Ama questo!Ri: Modi per disegnare un cuore in JMP?Puoi anche ottenere la versione 3D di questo utilizzando l'apposito superficie del cuore come espressione di combinazione non consentita.
Ri: Modi per disegnare un cuore in JMP?DOE > Special Purpose > Space Filling Design lo farà anche con uno script di combinazioni non consentite.
Ri: Modi per disegnare un cuore in JMP?Se crei una colonna in una tabella di dati e modifichi il tipo di dati in "espressione", puoi trascinare e rilasciare le immagini del cuore nelle righe. IL iconarchive ha molte opzioni gratuite da considerare.
La colonna può essere selezionata come etichetta e le immagini verranno visualizzate nelle etichette al passaggio del mouse.
Ri: Modi per disegnare un cuore in JMP?Per chi è pazzo d'amore...
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 )} ) )
);
Ri: Modi per disegnare un cuore in JMP?Fantasia!Ri: Modi per disegnare un cuore in JMP?Dato che quell'animazione ha funzionato, eccone un'altra:
Ri: Modi per disegnare un cuore in JMP?Bello!
Ri: Modi per disegnare un cuore in JMP?La mia bambina voleva cuori animati e concentrici dopo aver visto quello di Xan (grazie per le equazioni, 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)
);
Ecco uno sguardo a circa il 75% del percorso:
Ri: Modi per disegnare un cuore in JMP?Fantastico!Ri: Modi per disegnare un cuore in 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 )} ) )
);
E per quelli con Ebulliophilia (Love of Bubbles)...
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 )} )
)
);
Ri: Modi per disegnare un cuore in 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 )}
)
)
);
