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 omsätta de åtgärder som vi alla lärt oss i våra middle school matematik klasser i en algoritm Visual Basic , vilket är ett programmeringsspråk som Microsoft , kan förstå . Instruktioner
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 ) arbete . Senare kan du använda exakt samma kod i ett GUI-program om du så önskar köpa 2
definiera linjen i fyra variabler : . Lutning och skärningspunkt för varje linje . Gör detta 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 Double = 9
Detta skulle motsvara raderna " y = 3x - 8 " " . y = 7x + 9 " och Du kan ändra siffrorna för att passa de två linjerna du försöker lösa för
3
Hitta x - koordinaten med hjälp av följande formel : .
Dim x som Double = ( firstLineYIntercept - secondLineYintercept ) /( SecondLineSlope - firstLineSlope ) katalog p Detta är ekvivalent med att ställa de tvåradiga ekvationer lika med varandra och förenkla villkoren , som den här :
3x - 8 = 7x + 9
3x - 7x = 9 - ( -8 ) katalog
x = -4,25
4
Hitta y- koordinaten för skärningspunkten genom att ansluta nyfunna x värdet i en av de linjer som använder följande kod :
Dim y som Double = ( firstLineSlope * x ) + firstLineYintercept
p Detta är ekvivalent med följande matematik :
y = 3 ( -4.25 ) + ( -8 ) katalog
y = -20,75 Addera
