Foros Ciencias Galilei

Aquí les dejo, aunque tarde, algo para que los genios enamorados expresen sus sentimientos:

Para los que tienen el programa de Matehematica:

f[x_]:=Sqrt[1-(Abs[x]-1)^2];
g[x_]:=ArcCos[1-Abs[x]]-Pi;
Plot[{f[x],g[x]},{x,-2,2},AspectRatio->Automatic]

También:

Plot[{f[x],g[x]},{x,-2,2},AspectRatio->Automatic,PlotStyle-> {{RGBColor[1,0,0],Thickness[0.05]},{RGBColor[1,0,0],Thickness[0.05]}},Axes->False]


Si su versión es la 5:

<< `ContourPlot3D`

ContourPlot3D[(x^2+9/4 y^2+z^2-1)^3-x^2 z^3-9/80 y^2 z^3,{x,-3,3},{y,-3,3}, {z,-3,3},MaxRecursion->3,ViewPoint->{2.032,2.290,1.294},Axes->True,AxesLabel->{"Eje X", "Eje Y","Eje Z"


Si su versión es 6:

ContourPlot3D[(x^2+9/4 y^2+z^2-1)^3-x^2 z^3-9/80 y^2 z^3==0,{x,-3,3},{y,-3,3},{z,-3,3},MaxRecursion->10,ViewPoint->{1,2.5,1}, Color->RGBColor[1,0,0],Axes->False,Boxed->False]


Más aún, si tiene Maple 11:

with(plots):
implicitplot3d(funcion, x=-1.5..1.5, y=-1.5..1.5, z=-1.5..1.5,numpoints=50000,color=red);

O mejor, con Matlab:

x = -2:0.001:2;
f = sqrt(1-((abs(x)-1).^2));
g = acos(1-abs(x))-pi;
fill(x,f,’-r’,x,g,’r')
axis off

Feliz Dia de los Enamorados (aunke sinceramente m parece una pérdida de tiempo)¡¡¡¡

y porque no pones el enlace para descargar el software? no se entiende nada ¡¡¡ o no podría ser un print screen de lo que reproduce esa cosa y listo?

No crees q quitaria la emocion??

NO....

Ummmm.......no lo creo...jajaja...

Yo tampoco tengo esos programas pero es un corazoncito amoroso.  

jajajajajaja

se lo voy a mandar a una compañera de la u  

Amor de Nerds...

Sqrt[1-(Abs[x]-1)^2] = √[1-(|x|-1)²]
ArcCos[1-Abs[x]]-Pi]= arccos((1-|x|)-π)

Calcular los puntos de corte, y sacar el area comprendida entre esas dos funciones. A integrar un rato. Esto es para ponerlo en un examen.

Boliiiiiiiiiiiiiiii, ahonde tabias metioooooo?