define copyleft() { print "Este programa é distribuido sob GPL. \n", "Se você não souber o que é a GPL, envie um e-mail ao autor \n", "tarcisio@member.ams.org \n", "mas em suma isto quer dizer que você pode usar livremente o sistema\n", "de programas aqui mencionados, desde que esta copyleft seja mantida\n", "em todas as alterações que você fizer do programa e das cópias que \n", "você dele fizer - é a proteção do direito autoral que não lhe impede\n", "de usar livremente o conhecimento mas que mantém a memória de quem \n", "participou de sua produção.\n"; } define informa() { copyleft(); print "O objetivo é o cálculo aproximado de integrais duplas, \n", "exemplificar a definição de domínios não retangulares,\n", "tornar intuitivo o cálculo de integrais múltiplas. \n"; } define apeteco2() { local temporario=0; printf("%s","================================================= \n"); printf(" Aperte para continuar \n"); scanf("%c",temporario); } informa(); define F(x,y) {return x*y*sin(2 - x - y);} define f1(x) {if (x<=0) return x-4;else return -4} define f2(x) {if (x<=return y - 10;} define integral(iniY,fimY){ local soma = 0, deltax=-0.001,deltay=0.001; local x, fimX; local y = iniY; while(y < fimY){ x = g1(y); fimX = g2(y); while(x > fimX){ soma = soma + F(x, y); x += deltax; } y += deltay; print '(',x,',',y,')'; } return soma*deltax*deltay; } print integral(-4,4) quit