已知抛物线上三个点求二次函数的解析式AutoLisp代码.pdfVIP

已知抛物线上三个点求二次函数的解析式 AutoLisp 代码 11 通过己知点求 abc 11 代入法求 abc 11 己知函数为 y =ax^2 + bx + c，则有 ;; c =y1 - ax1 ^2 - bx1 ;; y2 =ax2^2 +bx2 + y1 - ax1 ^2 - bx1 ;; y3 =ax3^2 +bx3 + y1 - ax1八2 - bx1 ;; y2 =ax2^2 +bx2 + y1 - ax1 ^2 - bx1 ;; (x2 - x1)b =y2 -y1 + (x1^2 - x2^2 )a ;; b = ((y2 -y1) + (x1八2 - x2^2 )a)j(x2-x1) ;; y3 =ax3^2 +bx3 + y1 - ax1 ^2 - bx1 ;; (x3^2 - x1八2)a = (y3 -y1) + (x1 - x3)b ;; (x3^2 - x1 ^2)a = (y3 -y1) + (x1 - x3)((y2γ1) + (x1^2 - x2^2 )a)j(x2-x1)) ;; (x3^2 - x1 ^2)(x2-x1)a = (y3 -y1)(x2-x1) + (x1 - x3 )((y2 -y1) + (x1^2 - x2^2 )a) ;; (x3^2 - x1 ^2)(x2-x1)a = (y3 -y1)(x2-x1) + (x1 - x3 )(y2 -y1) + (x1 - x3)(x1 ^2 - x2^2 )a ;; (x3^2 - x1 ^2)(x2-x1)a - (x1 - x3)(x1 ^2 - x2^2 )a = (y3 -y1)(x2-x1) + (x1 - x3)(y2 -yl) ;; (xl ^2 - x3^2)(xl-x2)a - (xl - x3)(xl ^2 - x2^2 )a = (yl -y3)(xl-x2) - (xl - x3)(ylγ2) ;; ((xl ^2 - x3^2)(xl-x2) - (xl - x3)(xl ^2 - x2^2 ))a =(yl -y3)(xl-x2) - (xl - x3)(ylγ2) ;; a = ((yl -y3)(xl-x2) - (xl - x3)(yl -y2))j((xl^2 - x3^2)(xl-x2) - (xl - x3)(xl ^2 - x2八2 ) ) ;; b = ((y2 -yl) + (xl ^2 - x2^2 )a)j(x2-xl) ;; c =yl - axl ^2 - bxl ;计算二次项系数 abc，代入法 (defun getABC3xy (xl yl x2 y2 x3 y3 j xl-x2 ;xl 减 x2 xl-x3 ;xl 诫 x3 xl+x2 ;xl 力Q x2 xl+x3 ;xl 加 x3 yl-y2 ;yl 减y2 yl-y3 ;yl 减y3 xlE-x2E ;xl 的平方减 x2 的平方 xlE-x3E ;xl 的平方减 x3 的平方 aa bb cc (setq xl-x2 (- xl x2)) (setq xl-x3 (- xl x3)) (setq xl +x2 (+ xl x2)) (setq xl+x3 (+ xl x3)) (setq xlE-x2E (* xl+x2 xl-x2)) (setq xlE-x3E (* xl+x3 xl-x3)) (setq yl-y2 (- yl y2)) (setq yl-y3 (- yl y3)) ;; a = ((yl -y3)(xl-x2) - (xl - x3)(yl -y2))j((xl^2 - x3^2)(xl-x2) - (xl - x3)(xl ^2 - x2八2 ) ) (setq aa (/ (- (* yl-y3 xl-x2) (* xl-x3 yl-y2)) (- (* xlE-