Ciencias Básicas

¡Demostremos nuestro amor!

Mathematica es hoy en día un software que nos permite realizar cálculos y lo novedoso es que ahora podemos hacer simulaciones. Para ejemplo realizaremos un corazón con una característica curiosa, primeramente utlizemos un polinomio en dos variables para poder generar nuestra región de corazón f(x,y)= (x^2+y^2-1)3 -x^2y^3

Código

{izq,der}=Map[Function[{side},RegionPlot[(x^2+y^2-1)^3-x^2 y^3<0&&side*x<side
(Abs[Abs[Abs[Abs[Abs[.5 y]-1]-.5]-.25]-.125]-.125),{x,-1.5,1.5},{y,-1.5,1.5},ColorFunction->"CherryTones"]],{1,-1}];

Manipulate[Show[izq,der/.GraphicsComplex[points_List,other__]:>GraphicsComplex[RotationTransform[-rotation
°,{0,-1}][points],other],AspectRatio->Automatic,Frame->False,PlotRangePadding->{{.5,1.25},{1,.5}}],{{rotation,10,"corazón
roto"},0,90},SaveDefinitions->True]

Ciencias Básicas les desea un feliz 14 de Febrero en compañía de sus familiares y parejas