组合赋值法解方程

Nero

本贴采用组合赋值法实现EQN的部分功能。

首先要声明的是:组合赋值法的精度是不够的，会导致无法输出根号自然书写（只能输出【根号n】的形式，不能输出带系数的，更不能输出带加法的），故用它解二次方程不应要求自然书写输出。

正文：

1、二次方程。

二次方程有多种实现方法，像以前的Rec(Pol((-B+ √(B^2-4AC))/2/A, (-B- √(B^2-4AC))/2/A),Y)的方法不仅按键次数多，而且无法自然输出，还倒不如直接输公式呢~

这里给多一种组合赋值的方法：

Rec(Pol((Rec(Pol(-B,
√(B^2-4AC)),Y)+Y)/2/A,(X-Y)/2/A),Y)

2、二元一次方程。

考虑到二元一次方程有6个参数和两个输出解，所以得采用非正常思路解。我就用上了Ans这一特殊的存储器。

EQN·二元一次方程

   a     b      c

[ A ] [ B ] [ C ]

[ D ] [ M] [ Ans ]

上面是对应系数的存储位置。

步骤：把A.B.C.D.M的值赋好，然后按最后一个系数，=。

输入

Rec(Pol((BAns-MC)/(BD-MA),(CD-AAns)/(BD-MA)),Y)

按下等号即可。

本贴暂时讨论至此，欢迎大家补充。

kkoosky

二元一次方程
Rec（Pol（（CE-FB）\(AE-DB),(CD-FA)/(BD-EA)),Y)

aX+bY=c
dX+eY=f

es用XYM替代

hcz

三次方成有办法解吗？

imath

3次方程用公式法来解

hcz

太长，输入不了..xD

Nero

二元一次方程
Rec（Pol（（CE-FB）\(AE-DB),(CD-FA)/(BD-EA)),Y)

aX+bY=c
dX+eY=f

es用XYM替代
kkoosky 发表于 2010-5-11 21:02

一次性公式，算完XY就废了

zasdfgbnm

3# hcz 用牛顿法：
http://www.cncalc.org/thread-3173-1-1.html