Sharp PC-E500/E500S Technikersoftware

FACT.141

Zerlegung in Faktoren

FACT.141 (2.087 Bytes)

10 ' FACTORIZ.141 (Factorization)
20 CLEAR
30 MERGE "G:DISP500.00$":MERGE "G:COMN.00$"
40 QMS$="          *  FACTORIZATION  *"
100 DATA a,&C3,-b,&C3,=(a+b)(a-b),@
110 DATA a,&C4,&CE,b,&C4,=(a,&CE,b)(a,&C3,&CF,ab+b,&C3,),@
120 DATA a,&C5,-b,&C5,=(a+b)(a-b)(a,&C3,+b,&C3,),@
130 DATA a,&C5,+b,&C5,=(a,&C3,+,&EB,2,&EA,ab+b,&C3,)(a,&C3,-,&EB,2,&EA,ab+b,&C3,),@
140 DATA a,&E0,-b,&E0,"                               =",(a-b)(a,&E0,&CB,&C2,+a,&E0,&CB,&C3,b+a,&E0,&CB,&C4,b,&C3,+,&EA,&EA,&EA,+b,&E0,&CB,&C2,),@
150 DATA a,&E0,+b,&E0,"                       (n=odd) =(a+b)(a",&E0,&CB,&C2,-a,&E0,&CB,&C3,b+a,&E0,&CB,&C4,b,&C3,-,&EA,&EA,&EA,+b,&E0,&CB,&C2,),@
160 DATA a,&C3,&CE,2ab+b,&C3,=(a,&CE,b),&C3,@
170 DATA a,&C4,&CE,3a,&C3,b+3ab,&C3,&CE,b,&C4,=(a,&CE,b),&C4,@
180 DATA (a,&CE,b),&C3,&CF,4ab=(a,&CF,b),&C3,@
190 DATA a,&C3,+b,&C3,+c,&C3,+2bc+2ca+2ab=(a+b+c),&C3,@
200 DATA a,&C5,+a,&C3,b,&C3,+b,&C5,=(a,&C3,+ab+b,&C3,)(a,&C3,-ab+b,&C3,),@
210 DATA a,&C4,+b,&C4,+c,&C4,-3abc,"                       =",(a+b+c)(a,&C3,+b,&C3,+c,&C3,-bc-ca-ab),@
220 DATA (ac-bd),&C3,+(ad+bc),&C3,=(a,&C3,+b,&C3,)(c,&C3,+d,&C3,),@
230 DATA (ac+bd),&C3,+(ad-bc),&C3,=(a,&C3,+b,&C3,)(c,&C3,+d,&C3,),@
240 DATA (ac+bd),&C3,-(ad+bc),&C3,=(a,&C3,-b,&C3,)(c,&C3,-d,&C3,),@
250 DATA (ac-bd),&C3,-(ad-bc),&C3,=(a,&C3,-b,&C3,)(c,&C3,-d,&C3,),@
260 DATA a,&C3,(b-c)+b,&C3,(c-a)+c,&C3,(a-b)             =-(b-c)(c-a)(a-b),@
270 DATA (b-c),&C4,+(c-a),&C4,+(a-b),&C4,"                =3(b-c)(c-a)(a-b)",@
280 DATA a,&C5,+b,&C5,+c,&C5,-2b,&C3,c,&C3,-2c,&C3,a,&C3,-2a,&C3,b,&C3,"          =(a+b+c)(b-c-a)(c-a-b)(a-b-c)",@
290 DATA x,&C3,+(a+b)x+ab=(x+a)(x+b),@
300 DATA acx,&C3,+(ad+bc)x+bd=(ax+b)(cx+d),@
310 DATA x,&C4,+(a+b+c)x,&C3,+(bc+ca+ab)x+abc        =(x+a)(x+b)(x+c),@
320 DATA a,&C3,-b,&C3,-c,&C3,-2bc=(a+b+c)(a-b-c),@
330 DATA (a+b+c)(bc+ca+ab)-abc               =(b+c)(c+a)(a+b),@
340 DATA (a+b+c),&C4,-(a,&C4,+b,&C4,+c,&C4,)=3(b+c)(c+a)(a+b),@
350 DATA a,&C4,(b-c)+b,&C4,(c-a)+c,&C4,(a-b)             =-(b-c)(c-a)(a-b)(a+b+c),@
360 QMA=350:QMI=100:QMD=220:R6=QMI
370 GOSUB 10000

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net