Springen naar inhoud

Bat-grafiek


  • Log in om te kunnen reageren

#1

Jan van de Velde

    Jan van de Velde


  • >5k berichten
  • 44855 berichten
  • Moderator

Geplaatst op 30 juli 2011 - 09:11

Kan dit met één functie?

epic_win_photos_bat_graph_win_1_.jpg

bron
ALS WIJ JE GEHOLPEN HEBBEN....
help ons dan eiwitten vouwen, en help mee ziekten als kanker en zo te bestrijden in de vrije tijd van je chip...
http://www.wetenscha...showtopic=59270

Dit forum kan gratis blijven vanwege banners als deze. Door te registeren zal de onderstaande banner overigens verdwijnen.

#2

Drieske

    Drieske


  • >5k berichten
  • 10217 berichten
  • Moderator

Geplaatst op 30 juli 2011 - 09:31

Het voorschrift is een beetje lang (en wazig) om effectief te controleren, maar zo een voorschrift is alleszins mogelijk. Ik heb bij Meetkunde al ontelbaar veel 'zotte' functies tegengekomen. Wat wel zeker is, is dat als zo'n voorschrift bestaat, het een impliciet moet zijn ;).
Zoek je graag naar het meest interessante wetenschapsnieuws? Wij zoeken nog een vrijwilliger voor ons nieuwspostteam.

#3

ZVdP

    ZVdP


  • >1k berichten
  • 2097 berichten
  • VIP

Geplaatst op 30 juli 2011 - 22:00

Waarom zou het impliciet moeten zijn?

Met de sgn functie kan je makkelijk verschillende functies aan elkaar plakken tot 1 voorschrift van een continue functie:
LaTeX
Nu heb ik f(x) op [a,b[; g(x) op [b,c[; enz.

In de batman formule is alles wel redelijk leesbaar met enige inspanning. Enkel bij de tweede wortel twijfel ik of er 33 of 53 staat.
Kan je zoiets eigenlijk plotten met matlab?
"Why must you speak when you have nothing to say?" -Hornblower
Conserve energy: Commute with a Hamiltonian

#4

Drieske

    Drieske


  • >5k berichten
  • 10217 berichten
  • Moderator

Geplaatst op 31 juli 2011 - 10:34

Nou, echt een reden voor het "impliciet-zijn", kan ik niet geven. Enkel mijn aanvoelen van de grafiek. Hierbij heb ik mij laten inspireren voor de vergelijking van een cirkel. Om dit in één vergelijking te zetten, heb je toch ook enkel en alleen de impliciete vorm? En met één vergelijking bedoel ik dus ook dat er geen gevalsonderscheid ofzo mag gemaakt worden hè :P.

Nu moet ik wel eerlijkheidshalve zeggen dat dat "geen gevalsonderscheid" misschien een beetje streng is. Maar met de sgn-functie zie ik nog niet hoe je de bovenste en onderste helft van een cirkel aaneen kunt "plakken"... Al hoor ik wel graag hoe dat wél kan ;).
Zoek je graag naar het meest interessante wetenschapsnieuws? Wij zoeken nog een vrijwilliger voor ons nieuwspostteam.

#5

ZVdP

    ZVdP


  • >1k berichten
  • 2097 berichten
  • VIP

Geplaatst op 31 juli 2011 - 10:37

Inderdaad, als je de onderste helft er ook bij wilt moet je y²=(...)² schrijven
"Why must you speak when you have nothing to say?" -Hornblower
Conserve energy: Commute with a Hamiltonian

#6

Drieske

    Drieske


  • >5k berichten
  • 10217 berichten
  • Moderator

Geplaatst op 31 juli 2011 - 12:06

Okee ;). En deze grafiek leek mij dan op een ellips (ook impliciet te schrijven) met hier en daar een stukje aangepast. Dus dacht ik dat je voorschrift impliciet moest zijn...
Zoek je graag naar het meest interessante wetenschapsnieuws? Wij zoeken nog een vrijwilliger voor ons nieuwspostteam.

#7

physicalattraction

    physicalattraction


  • >1k berichten
  • 3102 berichten
  • Moderator

Geplaatst op 01 augustus 2011 - 12:06

Wanneer je x^2+y^2=4 intypt in Wolfram Alpha, dan plot hij wel een cirkel. Ik kan helaas de Batmanformule niet lezen, maar als iemand dat wel kan en hier even wil posten, hebben we allemaal een mooie Bat-grafiek te pakken.

#8

Fred F.

    Fred F.


  • >1k berichten
  • 4168 berichten
  • Pluimdrager

Geplaatst op 01 augustus 2011 - 12:32

Deze versie kan ik, op originele grootte, duidelijk lezen:

Geplaatste afbeelding



Voor de echte liefhebbers: http://www.mathworks...ation-in-matlab
Hydrogen economy is a Hype.

#9

Drieske

    Drieske


  • >5k berichten
  • 10217 berichten
  • Moderator

Geplaatst op 01 augustus 2011 - 16:13

Die figuur is inderdaad goed leesbaar. Zoals gedacht is het inderdaad ook een impliciet voorschrift... Met het plotten heb ik mij wel nog niet beziggehouden ;). Dat is voor wanneer er eens meer tijd is ;). (Tenzij iemand mij voor is. Maar in het eerste deel herken je toch al iets van een ellips zoals 'verwacht'.)
Zoek je graag naar het meest interessante wetenschapsnieuws? Wij zoeken nog een vrijwilliger voor ons nieuwspostteam.

#10

physicalattraction

    physicalattraction


  • >1k berichten
  • 3102 berichten
  • Moderator

Geplaatst op 02 augustus 2011 - 10:29

Grrr, het invulvenster is te kort in wolfram alpha. Ik heb de factoren een voor een gecheckt en ze lijken me correct, maar ik kan hem niet plotten.

( (x/7)^2 * sqrt( abs(abs(x)-3)/(abs(x)-3 )) + (y/3)^2*sqrt( abs(y+3*sqrt(33)/7) / (y+3*sqrt(33)/7) ) - 1 ) * ( (abs(x/2) - (3*sqrt(33)-7)/112*x^2 - 3 + sqrt( 1-(abs(abs(x)-2) - 1)^2 ) - y ) ) * ( 9*sqrt( abs((abs(x)-1)*(abs(x)-75))) / ( (1-abs(x))*(abs(x)-75) ) - 8*abs(x) - y ) * ( 3*abs(x) + 75*sqrt( abs( (abs(x)-75)*(abs(x)-5)) / ( (75-abs(x))*(abs(x)-5) )) - y ) * (2.25*sqrt( abs((x-0.5)*(x+0.5)) / ( (0.5-x)*(0.5+x) )) - y) * ( (6*sqrt(10)/7+(1.5-0.5*abs(x))*sqrt( abs(abs(x)-1) / (abs(x)-1) ) - 6*sqrt(10)/14*sqrt(4-(abs(x)-1)^2) ) - y ) = 0

#11

Drieske

    Drieske


  • >5k berichten
  • 10217 berichten
  • Moderator

Geplaatst op 02 augustus 2011 - 10:32

Kan bijv Maple dit ook niet? Helaas ben ik momenteel niet thuis en ik heb alleen daar Maple staan ;). Maar eens thuis wil ik dit wel kopiëren en invullen. Wel jammer van je werk...
Zoek je graag naar het meest interessante wetenschapsnieuws? Wij zoeken nog een vrijwilliger voor ons nieuwspostteam.

#12

physicalattraction

    physicalattraction


  • >1k berichten
  • 3102 berichten
  • Moderator

Geplaatst op 02 augustus 2011 - 11:22

Hmmm, ik krijg het ook nog niet in Mathematica.

A = ((x/7)^2*Sqrt[Abs[Abs[x] - 3]/(Abs[x] - 3)] + (y/3)^2*
Sqrt[Abs[y + 3*Sqrt[33]/7]/(y + 3*Sqrt[33]/7)] -
1)*((Abs[x/2] - (3*Sqrt[33] - 7)/112*x^2 - 3 +
Sqrt[1 - (Abs[Abs[x] - 2] - 1)^2] - y))*(9*
Sqrt[Abs[(Abs[x] - 1)*(Abs[x] - 75)]]/((1 - Abs[x])*(Abs[x] -
75)) - 8*Abs[x] - y)*(3*Abs[x] +
75*Sqrt[Abs[(Abs[x] - 75)*(Abs[x] - 5)]/((75 - Abs[x])*(Abs[x] -
5))] - y)*(2.25*
Sqrt[Abs[(x - 0.5)*(x + 0.5)]/((0.5 - x)*(0.5 + x))] -
y)*((6*Sqrt[10]/7 + (1.5 - 0.5*Abs[x])*
Sqrt[Abs[Abs[x] - 1]/(Abs[x] - 1)] -
6*Sqrt[10]/14*Sqrt[4 - (Abs[x] - 1)^2]) - y) == 0
<< Graphics`ImplicitPlot`;
ContourPlot[A, {x, -7, 7}, {y, -4, 4}]

geeft:

Infinite expression, 1/0 encountered

#13

ZVdP

    ZVdP


  • >1k berichten
  • 2097 berichten
  • VIP

Geplaatst op 02 augustus 2011 - 11:38

Als je zin en tijd hebt kan je misschien het domein opsplitsen in delen, zodat je de absolute waarden onder de wortels kunt weglaten en hierdoor die breuken vermijden.
"Why must you speak when you have nothing to say?" -Hornblower
Conserve energy: Commute with a Hamiltonian

#14

Drieske

    Drieske


  • >5k berichten
  • 10217 berichten
  • Moderator

Geplaatst op 02 augustus 2011 - 11:44

Dat is inderdaad een oplossing. Maar dit zou toch net betekenen dat het niet te plotten is als één grafiek? Terwijl dit wel net is wat we zouden willen. Of gaat (bijv) mathematica slecht om met het feit dat je dingen in de noemer zet? Zou toch niet mogen.
Zoek je graag naar het meest interessante wetenschapsnieuws? Wij zoeken nog een vrijwilliger voor ons nieuwspostteam.

#15

ZVdP

    ZVdP


  • >1k berichten
  • 2097 berichten
  • VIP

Geplaatst op 02 augustus 2011 - 11:59

De 1/0 error is vreemd, aangezien alle 'probleemgevallen' 0/0=+-1 in de limiet zouden moeten opleveren,

Daarom ben ik eens gaan kijken naar het sluiten van de haakjes:

A = ((x/7)^2*Sqrt[Abs[Abs[x] - 3]/(Abs[x] - 3)] + (y/3)^2*
Sqrt[Abs[y + 3*Sqrt[33]/7]/(y + 3*Sqrt[33]/7)] -
1)*((Abs[x/2] - (3*Sqrt[33] - 7)/112*x^2 - 3 +
Sqrt[1 - (Abs[Abs[x] - 2] - 1)^2] - y))*(9*
Sqrt[Abs[(Abs[x] - 1)*(Abs[x] - 75)]]/((1 - Abs[x])*(Abs[x] -
75))
- 8*Abs[x] - y)*(3*Abs[x] +
75*Sqrt[Abs[(Abs[x] - 75)*(Abs[x] - 5)]/((75 - Abs[x])*(Abs[x] -
5))] - y)*(2.25*
Sqrt[Abs[(x - 0.5)*(x + 0.5)]/((0.5 - x)*(0.5 + x))] -
y)*((6*Sqrt[10]/7 + (1.5 - 0.5*Abs[x])*
Sqrt[Abs[Abs[x] - 1]/(Abs[x] - 1)] -
6*Sqrt[10]/14*Sqrt[4 - (Abs[x] - 1)^2]) - y) == 0

Een van de ']' komt te vroeg.
Probeer nog eens met:
Sqrt[Abs[(Abs[x] - 1)*(Abs[x] - 75)]/((1 - Abs[x])*(Abs[x] - 75))]

Bijkomend foutje: 75 moet 0.75 zijn.
"Why must you speak when you have nothing to say?" -Hornblower
Conserve energy: Commute with a Hamiltonian





0 gebruiker(s) lezen dit onderwerp

0 leden, 0 bezoekers, 0 anonieme gebruikers

Ook adverteren op onze website? Lees hier meer!

Gesponsorde vacatures

Vacatures