22.01.2014 Views

download searchable PDF of Circuit Design book - IEEE Global ...

download searchable PDF of Circuit Design book - IEEE Global ...

download searchable PDF of Circuit Design book - IEEE Global ...

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Program 83-3.<br />

Polynomial Mnltiplication<br />

10 REM POLYNOMIAL MULT.VLACH P.216,TRC8/79.<br />

100 DIM A(21),B(21),G(41)<br />

110 PRINl""POLV.I DEGREE""";,: INPUT Nt<br />

120 PRINT"lNPUT REAL COEFFICIENTS:"<br />

130 FOR J=l TO Nt+!<br />

140 PRINT" EXPONENT=";.J-l; "COEF='";: INPUT A(J)<br />

150 JlEXT J<br />

160 PRINT"POLV*2 DEGREE=";:INPUT N2<br />

170 PRINT"INPUT REAL COEFFICIENTS:"<br />

180 FOR J=l TO N2+1<br />

190 PRINT" EXPONENT=";J-l;"COEF=";:INPUT B(J)<br />

200 NEXT J<br />

210 ,.,=Nl"'N2+!<br />

220 FOR 1=1 TO ,..<br />

230 6(1)=0<br />

240 NEXT I<br />

250 FOR J=l TO N2+1<br />

260 FOR 1=1 TO Nt+!<br />

270 JT=I't-J-l<br />

280 G(JT)=G(JT)+A(I).O(J)<br />

290 NEXT I<br />

300 NEXT J<br />

310 PRINT"PRODUCT POLVNOf"IIAL IS:"<br />

320 FOR J=l TO ,..<br />

330 PRINT" EXPONENT=";J-l;"COEF=";G(J)<br />

340 NEXT J<br />

350 IF ">20 Tt£N 6OT0400<br />

360 FOR J=l TO ,..<br />

370 A(J)=G(J):<br />

380 NEXT J<br />

3B5 Nl=t1-1<br />

390 60T0160<br />

400 END<br />

430

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!