Percent Error / Discussion

Forum Attachments

This is the discussion related to the wiki page Percent Error.

(account deleted) 15 Aug 2018 23:00

What is this supposed to do? Just division?

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Trenly 16 Aug 2018 01:57

Looks like there is a bit of optimization:

Input "POWER? ",I
If I=2:Then
Prompt A,B
AB→C
0.5→Z
If fPart(A:.05→Z
abs(prod({A,B}-Z→D
abs(prod({A,B}+Z→E
abs(E-C→F
If abs(D)≥abs(E:abs(D-C→F
Disp ᴇ2(F/C
End
If I=3:Then
Prompt A,B,C
ABC→D
.5→Z
If fPart(A:.05→Z
abs(prod({A,B,C}-Z→E
abs(prod({A,B,C}+Z→F
abs(F-D→G
If abs(E)≥abs(F:abs(D-E→G
Disp ᴇ2(G/D
End
Return

---

Show original code

Input "POWER? ",I
If I=2:Then
Prompt A
Prompt B
A*B→C
If iPart(A)=A:Then
abs((A-0.5)*(B-0.5))→D
abs((A+0.5)*(B+0.5))→E
End
If iPart(A)≠(A):Then
abs((A-0.05)*(B-0.05))→D
abs((A+0.05)*(B+0.05))→E
End
If abs(D)>abs(E) or abs(D)=abs(E):Then
abs(D-C)→F
Disp 100*(F/C)
Stop
End
If abs(D)<abs(E):Then
abs(E-C)→F
Disp 100*(F/C)
Stop
End
End
If I=3:Then
Prompt A,B,C
A*B*C→D
If iPart(A)=A
abs((A-0.5)(B-0.5)(C-0.5))→E
abs((A+0.5)(B+0.5)(C+0.5))→F
End
If iPart(A)≠(A):Then
abs((A-0.05)(B-0.05)(C-0.05))→E
abs((A+0.05)(B+0.05)(C+0.05))→F
End
If abs(E)>abs(F) or abs(E)=abs(F):Then
abs(D-E)→G
Disp 100*(G/D)
End
If abs(E)<abs(F):Then
abs(F-D)→G
Disp 100*(G/D)
End
Stop
End

Last edited on 16 Aug 2018 01:59 by Trenly Show more