¿Formas de dibujar un corazón en JMP?Esta es una manera de hacerlo, usando ecuaciones paramétricas que se encuentran en Mundo matemático: curva del corazón .
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: Maneras de dibujar un corazón en JMP?¡Esto es maravilloso!
Re: Maneras de dibujar un corazón en JMP?El Castillo Boldt está en Heart Island. http://www.boldtcastle.com/visitorinfo/
Re: Maneras de dibujar un corazón en JMP?El tiempo ha creado muchas formas en la superficie de la Tierra. Aquí hay uno abundante. ¿Debe haber más por ahí?
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: Maneras de dibujar un corazón en JMP?¡Muy lindo! ¡Gracias, Mandy!
Re: Maneras de dibujar un corazón en JMP?dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << colorByColumn(:sex);
dt<<NEW column=""></NEW><BR />
Hearts ...Hearts ...Corazones ...
Re: Maneras de dibujar un corazón en JMP?Esto es genial, ¡gracias, John!
Re: Maneras de dibujar un corazón en JMP?Esta forma de dibujar un corazón no es nueva, pero hacerlo interactivo con la ayuda de JMP Public es nueva.
Presione el botón de reproducción y los controles deslizantes en la parte inferior y use el menú junto a 'Corazón animado' para cambiar la configuración del gráfico de burbujas. Véalo en público.JMP.com .
Re: Maneras de dibujar un corazón en JMP?A medida que se acerca el día de San Valentín, recordé este divertido hilo. Me pregunto si hay nuevas formas de hacer esto en los últimos dos años. Compártalos aquí, y su JMP Valentine podría aparecer en nuestros canales de redes sociales. ¡Gracias!
Re: Maneras de dibujar un corazón en JMP?¡Lindo!Re: Maneras de dibujar un corazón en JMP?Aquí hay una manera de hacerlo usando funciones de dibujo (no se requiere tabla de datos):
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: Maneras de dibujar un corazón en JMP?Todos estos son fantásticos, realmente los disfruté hoy.
Re: Maneras de dibujar un corazón en JMP?Aquí hay un corazón transparente, construido sobre la ecuación 3D Dan encontró. Ejecutar el script es mucho más satisfactorio que la imagen.
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 heartcorazón 3D
El gráfico de superficie toma la ecuación en X,Y,Z y muestra la isosuperficie semitransparente.
Re: Maneras de dibujar un corazón en JMP?Este gif animado muestra una aplicación web que genera 1000 puntos aleatorios cada vez que se hace clic en el enlace. Luego utiliza un modelo de red neuronal JMP exportado como JavaScript para calificar cada ubicación. El resultado, dentro o fuera de la curva de "corazón" paramétrica, se utiliza para asignar color y tamaño.
Re: Maneras de dibujar un corazón en JMP?¡Amo esta!
Re: Maneras de dibujar un corazón en JMP?New Window( "heart",
Text Box(
"\!U2661",
<<SETFONTNAME></SETFONTNAME>
U2661 is a heartU2661 is a heartU2661 es un corazón
SetFontScale es nuevo para JMP 13.
Re: Maneras de dibujar un corazón en JMP?¡Amo esta!Re: Maneras de dibujar un corazón en JMP?También puede obtener la versión 3D de esto usando el apropiado superficie del corazón como la expresión de combinación no permitida.
Re: Maneras de dibujar un corazón en JMP?DOE > Propósito especial > Diseño de relleno de espacio también lo hará con un Script de combinaciones no permitidas.
Re: Maneras de dibujar un corazón en JMP?Si crea una columna en una tabla de datos y cambia el tipo de datos a "expresión", puede arrastrar y soltar imágenes de corazones en las filas. El archivo de iconos tiene muchas opciones comerciales gratuitas para considerar.
La columna se puede seleccionar como una etiqueta y las imágenes se mostrarán en las etiquetas flotantes.
Re: Maneras de dibujar un corazón en JMP?Para los que están locos de amor...
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: Maneras de dibujar un corazón en JMP?¡Elegante!Re: Maneras de dibujar un corazón en JMP?Como esa animación funcionó, aquí hay otra:
Re: Maneras de dibujar un corazón en JMP?¡Hermoso!
Re: Maneras de dibujar un corazón en JMP?Mi niña quería corazones animados y concéntricos después de ver el de Xan (¡gracias por las ecuaciones, 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)
);
Aquí hay un vistazo de aproximadamente el 75% del camino a través:
Re: Maneras de dibujar un corazón en JMP?¡Super guay!Re: Maneras de dibujar un corazón en 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 )} ) )
);
Y para aquellos 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 )} )
)
);
Re: Maneras de dibujar un corazón en 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 )}
)
)
);
