Πώς να υπολογίσετε Curve Κόμβους Excel

Βρίσκοντας το σημείο τομής των δύο καμπυλών είναι ένας τρόπος για να βρούμε τη λύση σε ένα σύστημα εξισώσεων . Το Excel μπορεί να σχεδιάσετε ένα σύστημα εξισώσεων σε ένα γράφημα . Το σημείο τομής των δύο καμπυλών είναι η λύση του συστήματος εξισώσεων. Αν και δεν υπάρχει μια ενσωματωμένη λειτουργία για να υπολογίσει το σημείο τομής των δύο καμπυλών στο Excel , μπορείτε να χρησιμοποιήσετε τη Visual Basic for Applications ( VBA ) για να βρουν τη λύση . Οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " και στη συνέχεια κάντε κλικ στο " Visual Basic" για να ανοίξει το Visual Basic Editor. 2

Κάντε κλικ στο " Εισαγωγή" και , στη συνέχεια, κάντε κλικ στο κουμπί " ενότητα " για να ανοίξει ένα κενό παράθυρο ενότητα
εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο παράθυρο ενότητα : . « Βρείτε το σημείο όπου τα δύο τμήματα intersect.Public Sub FindLineIntersection ( _ByVal x11 As Single , ByVal y11 As Single , _ByVal x12 As Single , ByVal Υ12 As Single , _ByVal x21 As Single , ByVal Υ21 As Single , _ByVal x22 As Single , ByVal y22 As Single , _ByRef inter_x As Single , ByRef inter_y As Single , _ByRef inter_x1 As Single , ByRef inter_y1 As Single , _ByRef inter_x2 As Single , ByRef inter_y2 As Single ) Dim dx1 Όπως SingleDim DY1 Όπως SingleDim dx2 Όπως SingleDim dy2 Όπως SingleDim t1 t2 Όπως SingleDim Όπως SingleDim παρονομαστή As Single

» Αποκτήστε το τομέων parameters.dx1 = x12 - x11dy1 = Υ12 - y11dx2 = x22 - x21dy2 = y22 - Y21

«λύσει για t1 και t2.On Error Resume Nextdenominator = ( DY1 * dx2 - dx1 * dy2 ) t1 = ( ( x11 - x21 ) * dy2 + ( Υ21 - y11 ) * dx2 ) /_denominatorIf Err.Number <> 0 Then ' Οι γραμμές είναι parallel.inter_x = 1E +38 : inter_y = 1E +38 inter_x1 = 1E +38 : inter_y1 = 1E +38 inter_x2 = 1E +38 : inter_y2 = 1E +38 Exit SubEnd ifon Error GoTo 0t2 = ( ( x21 - x11 ) * DY1 + ( y11 - Υ21 ) * dx1 ) /_ παρονομαστή

» Βρείτε το σημείο intersection.inter_x = x11 + dx1 * t1inter_y = y11 + DY1 * t1

« Βρείτε τα πλησιέστερα σημεία στο segments.If t1 <0 Thent1 = 0ElseIf t1 > 1 Thent1 = 1End IfIf t2 <0 Thent2 = 0ElseIf t2 > 1 Thent2 = 1End Ifinter_x1 = x11 + dx1 * t1inter_y1 = y11 + DY1 * t1inter_x2 = x21 + dx2 * t2inter_y2 = Y21 + dy2 * t2End Sub
Η 4

τύπου " F5 " για να εκτελέσετε τη ρουτίνα .
Η
εικόνων