cirklens ligning

<ole>

Jeg forstår ikke din sammenblanding af cirklens ligning og 'circle(a,b,x,r)'. Hvad er det, du ønsker?

/mvh
</bole>

er det du ønsker koordinaten på cirklens periferi? Altså for en given x værdi hvad er så y på cirklensomkreds?

Det vil i så fald ofte give to værdier, så det er da ikke nemt "bare" lige at lave...

Du får - ganske rigtigt 0, 1 eller 2 mulige løsninger.

0 - hvis cirlen ikke skærer
1 - hvis linien tangerer cirklen
2 - hvis linien skærer cirklen

som du har stillet opgaven kan den ikke løses. Der er to muligheder:

1. Du laver to funktioner som du kalder med samme parametre. Du kontrollerer om den første fejler (så behøves du ikke kalde den anden). Hvis ikke, sammen ligner du resultaterne for at se, som de er ens (1 løsning) eller forskellige (2 løsninger).

Jeg har vist koden her i VBA - du kan nok selv oversætte:

Option Explicit

Function circle_y1(a, b, r, x) As Single
    Dim c, d As Single
    c = x ^ 2 + a ^ 2 - 2 * x * a + b ^ 2 - r ^ 2
    d = (2 * b) ^ 2 - 4 * 1 * c
   
    If d < 0 Then Err.Raise 0
   
    If d > 0 Then circle_y = (2 * b + Sqr(d)) / (2 * 1)
 
End Function

Function circle_y2(a, b, r, x) As Single
    Dim c, d As Single
    c = x ^ 2 + a ^ 2 - 2 * x * a + b ^ 2 - r ^ 2
    d = (2 * b) ^ 2 - 4 * 1 * c
   
    If d < 0 Then Err.Raise 0
   
    If d > 0 Then circle_y = (2 * b - Sqr(d)) / (2 * 1)
 
End Function

sorry det gik lidt stærk, det jeg ville var at have en funktion for øvre ov nedre halvdel. hvor man taster x-værdi ind så får man y værdien.

og det er vel også det som dit svar er jpvj.

du får point, og så må jeg jo oversætte

den finder vel ikke y værdier, den finder vel skæringer med et eller andet jeg ikke kan gennemskue.

Har aldrig set nogen tage deskriminanten ved cirklens ligning.

er det ikke bare løsningen af en 2. gradsligning

tja, det er det han gør, men jeg skal ikke bruge det aligevel, for den giver aldrig en skid de rigtige resultater.