Att hitta skärningspunkten mellan två linjer är ett vanligt problem i matematik , och därför är det bra att ha ett datorprogram som kan lösa problemet . För att göra detta , är allt som behövs för att översätta det steg som vi alla lärt oss i vårt högstadiet matematik klasser till en algoritm Visual Basic , som är ett programmeringsspråk från Microsoft, kan förstå
1 .
Skapa ett nytt Visual Basic- projekt genom att klicka på ”File” och ” Nytt projekt . ” Välj ” Console Application , ” eftersom det låter oss komma till kött av problemet utan att behöva oroa sig irrelevant GUI ( Graphical User Interface ) fungerar . senare kan du använda exakt samma kod i ett GUI applikation om du så önskar .
2
Definiera linje i fyra variabler: lutning och intercept på varje rad gör du genom att klistra in följande : .
Dim firstLineSlope som Double=3,0
Dim firstLineYintercept som Double=-8
Dim secondLineSlope som Double=7 . 0
Dim secondLineYintercept som dubbel=9
Detta skulle motsvara de linjer ” y=3x-8 ” och ” y=7x + 9 . ” Du kan ändra siffrorna för att passa de två linjer som du försöker lösa för
3
Hitta x-koordinaten enligt följande formel : .
Dim x As Double=( firstLineYIntercept-secondLineYintercept ) /( SecondLineSlope-firstLineSlope )
Detta motsvarar att ställa in två rader ekvationer lika till varandra och förenkla de villkor , så här :
3x-8=7x + 9
3x-7x=9-(-8 )
x=-4 . 25.
4
Hitta y-koordinaten för skärningspunkten genom att koppla nyvunna x-värdet i en av de linjer som använder följande kod :
Dim y som Double=( firstLineSlope * x ) + firstLineYintercept
Detta motsvarar följande matematik :
y=3 (-4,25) + (-8)
y=-20,75
Lämna ett svar