one
fricas
1
fricas
eq42 := _
-r2*r3*r4*exp(r1)/((r1-r2)*(r1-r3)*(r1-r4)) + _
-r1*r3*r4*exp(r2)/((r2-r1)*(r2-r3)*(r2-r4)) + _
-r1*r2*r4*exp(r3)/((r3-r1)*(r3-r2)*(r3-r4)) + _
-r1*r2*r3*exp(r4)/((r4-r1)*(r4-r2)*(r4-r3))
Type: Expression(Integer)
three
fricas
htrigs eval(eq42, [r3=-r1,r4=-r2])
Type: Expression(Integer)
fricas
htrigs limit(%,r2=r1)
Type: Expression(Integer)
fricas
eq43 :=
(r2*r3 + r3*r4 + r4*r2)*exp(r1)/((r1-r2)*(r1-r3)*(r1-r4)) + _
(r1*r3 + r3*r4 + r4*r1)*exp(r2)/((r2-r1)*(r2-r3)*(r2-r4)) + _
(r1*r2 + r2*r4 + r4*r1)*exp(r3)/((r3-r1)*(r3-r2)*(r3-r4)) + _
(r1*r2 + r2*r3 + r3*r1)*exp(r4)/((r4-r1)*(r4-r2)*(r4-r3))
Type: Expression(Integer)
fricas
htrigs eval(eq43, [r3=-r1,r4=-r2])
Type: Expression(Integer)
fricas
htrigs limit(%,r2=r1)
Type: Expression(Integer)