gistfile1.matlab

clc
clear all
close all

axis([0,800,0,600,0,300])
line([55,509],[0,0],[0,0],'color','b')
line([509,509],[0,26],[0,0],'color','b')
line([509,610],[26,26],[0,0],'color','b')
line([610,610],[26,13],[0,0],'color','b')
line([610,735],[13,13],[0,0],'color','b')
line([735,735],[13,470],[0,0],'color','b')
line([735,505],[470,470],[0,0],'color','b')
line([505,505],[470,598],[0,0],'color','b')
line([505,310],[598,598],[0,0],'color','b')
line([310,310],[598,470],[0,0],'color','b')
line([310,0],[470,470],[0,0],'color','b')
line([0,0],[470,30],[0,0],'color','b')
line([0,55],[30,30],[0,0],'color','b')
line([55,55],[30,0],[0,0],'color','b')

line([55,55],[0,0],[0,271],'color','r')
line([509,509],[0,0],[0,271],'color','r')
line([509,509],[26,26],[0,271],'color','r')
line([610,610],[26,26],[0,271],'color','r')
line([610,610],[13,13],[0,271],'color','r')
line([735,735],[13,13],[0,271],'color','r')
line([735,735],[366,366],[0,271],'color','r')
line([735,735],[470,470],[0,182],'color','r')
line([505,505],[470,470],[0,182],'color','r')
line([505,505],[598,598],[0,212],'color','r')
line([310,310],[598,598],[0,212],'color','r')
line([310,310],[470,470],[0,182],'color','r')
line([0,0],[470,470],[0,182],'color','r')
line([0,0],[366,366],[0,271],'color','r')
line([0,0],[30,30],[0,271],'color','r')
line([55,55],[30,30],[0,271],'color','r')

line([55,509],[0,0],[271,271],'color','g')
line([509,509],[0,26],[271,271],'color','g')
line([509,610],[26,26],[271,271],'color','g')
line([610,610],[26,13],[271,271],'color','g')
line([610,735],[13,13],[271,271],'color','g')
line([735,735],[13,366],[271,271],'color','g')
line([735,735],[366,470],[271,182],'color','g')
line([735,505],[470,470],[182,182],'color','g')
line([505,505],[470,440],[182,212],'color','g')
line([505,505],[440,598],[212,212],'color','g')
line([505,310],[598,598],[212,212],'color','g')
line([310,310],[440,598],[212,212],'color','g')
line([310,310],[470,440],[182,212],'color','g')
line([310,0],[470,470],[182,182],'color','g')
line([0,0],[470,366],[182,271],'color','g')
line([0,0],[366,30],[271,271],'color','g')
line([0,55],[30,30],[271,271],'color','g')
line([55,55],[30,0],[271,271],'color','g')
hold on
xx=736;
yy=598;

n=40;
h=xx/n
tangens= 0.8558;
obj_calk=0;
for x=0:h:xx
    for y=0:h:yy
        if(x>54 && x<736 && y>29 && y<367)
           line([x,x+h],[y,y],[0,0],'color','k');
           line([x+h,x+h],[y,y+h],[0,0],'color','k');
           line([x+h,x],[y+h,y+h],[0,0],'color','k');
           line([x,x],[y+h,y],[0,0],'color','k');
           
           line([x,x],[y,y],[0,271],'color','k');
           line([x+h,x+h],[y,y],[0,271],'color','k');
           line([x,x],[y+h,y+h],[0,271],'color','k');
           line([x+h,x+h],[y+h,y+h],[0,271],'color','k');
           
           line([x,x+h],[y,y],[271,271],'color','k');
           line([x+h,x+h],[y,y+h],[271,271],'color','k');
           line([x+h,x],[y+h,y+h],[271,271],'color','k');
           line([x,x],[y+h,y],[271,271],'color','k');
           
           obj_poj=h*h*271;
           obj_calk = obj_calk + obj_poj;
         elseif(x>54 && x<510 && y<31)
             line([x,x+h],[y,y],[0,0],'color','k');
             line([x+h,x+h],[y,y+h],[0,0],'color','k');
             line([x+h,x],[y+h,y+h],[0,0],'color','k');
             line([x,x],[y+h,y],[0,0],'color','k');
             
           line([x,x],[y,y],[0,271],'color','k');
           line([x+h,x+h],[y,y],[0,271],'color','k');
           line([x,x],[y+h,y+h],[0,271],'color','k');
           line([x+h,x+h],[y+h,y+h],[0,271],'color','k');
           
           line([x,x+h],[y,y],[271,271],'color','k');
           line([x+h,x+h],[y,y+h],[271,271],'color','k');
           line([x+h,x],[y+h,y+h],[271,271],'color','k');
           line([x,x],[y+h,y],[271,271],'color','k');
           
           obj_poj=h*h*271;
           obj_calk = obj_calk + obj_poj;
         elseif(x>609 && x<736 && y >12 && y<31)
             line([x,x+h],[y,y],[0,0],'color','k');
           line([x+h,x+h],[y,y+h],[0,0],'color','k');
           line([x+h,x],[y+h,y+h],[0,0],'color','k');
           line([x,x],[y+h,y],[0,0],'color','k');
           
           line([x,x],[y,y],[0,271],'color','k');
           line([x+h,x+h],[y,y],[0,271],'color','k');
           line([x,x],[y+h,y+h],[0,271],'color','k');
           line([x+h,x+h],[y+h,y+h],[0,271],'color','k');
           
           line([x,x+h],[y,y],[271,271],'color','k');
           line([x+h,x+h],[y,y+h],[271,271],'color','k');
           line([x+h,x],[y+h,y+h],[271,271],'color','k');
           line([x,x],[y+h,y],[271,271],'color','k');
           
           obj_poj=h*h*271;
           obj_calk = obj_calk + obj_poj;
         elseif(x<56 && y>29 && y<367)
             line([x,x+h],[y,y],[0,0],'color','k');
           line([x+h,x+h],[y,y+h],[0,0],'color','k');
           line([x+h,x],[y+h,y+h],[0,0],'color','k');
           line([x,x],[y+h,y],[0,0],'color','k');
           
           line([x,x],[y,y],[0,271],'color','k');
           line([x+h,x+h],[y,y],[0,271],'color','k');
           line([x,x],[y+h,y+h],[0,271],'color','k');
           line([x+h,x+h],[y+h,y+h],[0,271],'color','k');
           
           line([x,x+h],[y,y],[271,271],'color','k');
           line([x+h,x+h],[y,y+h],[271,271],'color','k');
           line([x+h,x],[y+h,y+h],[271,271],'color','k');
           line([x,x],[y+h,y],[271,271],'color','k');
           
           obj_poj=h*h*271;
           obj_calk = obj_calk + obj_poj;
         elseif(x<736 && y>365 && y<471)
            z=round((470-y-h)*tangens)+182;
           line([x,x+h],[y,y],[0,0],'color','k');
           line([x+h,x+h],[y,y+h],[0,0],'color','k');
           line([x+h,x],[y+h,y+h],[0,0],'color','k');
           line([x,x],[y+h,y],[0,0],'color','k');
           
           line([x,x],[y,y],[0,z],'color','k');
           line([x+h,x+h],[y,y],[0,z],'color','k');
           line([x,x],[y+h,y+h],[0,z],'color','k');
           line([x+h,x+h],[y+h,y+h],[0,z],'color','k');
           
           line([x,x+h],[y,y],[z,z],'color','k');
           line([x+h,x+h],[y,y+h],[z,z],'color','k');
           line([x+h,x],[y+h,y+h],[z,z],'color','k');
           line([x,x],[y+h,y],[z,z],'color','k');
           
           obj_poj=h*h*z;
           obj_calk = obj_calk + obj_poj;
         elseif(x>309 && x<506-h && y>469 && y<599-h)
             line([x,x+h],[y,y],[0,0],'color','k');
           line([x+h,x+h],[y,y+h],[0,0],'color','k');
           line([x+h,x],[y+h,y+h],[0,0],'color','k');
           line([x,x],[y+h,y],[0,0],'color','k');
           
           line([x,x],[y,y],[0,212],'color','k');
           line([x+h,x+h],[y,y],[0,212],'color','k');
           line([x,x],[y+h,y+h],[0,212],'color','k');
           line([x+h,x+h],[y+h,y+h],[0,212],'color','k');
           
           line([x,x+h],[y,y],[212,212],'color','k');
           line([x+h,x+h],[y,y+h],[212,212],'color','k');
           line([x+h,x],[y+h,y+h],[212,212],'color','k');
           line([x,x],[y+h,y],[212,212],'color','k');
           
           obj_poj=h*h*212;
           obj_calk = obj_calk + obj_poj;
        end  
    end
end
ilosc_przedzialow=n
krok=h;
krok
obj_bryly=745*598*271
obj_calk