[rows cols] = size(I);
for i=1:1:rows
for j=1:1:cols
if( I(i,j) == 0 )
test_hist_img(max_hist_level) = test_hist_img(max_hist_level) + 1;
else
test_hist_img(I(i,j)) = test_hist_img(I(i,j)) + 1;
end
end
end
faceRecognition
دة كود لزيادة التاريخ الى الغد
var
myDate : TDateTime;
begin
myDate:=(DateTimePicker1.Date);
Edit1.Text :=DateToStr(myDate);
myDate := IncDay(myDate, 1);
DateTimePicker2.Date:=myDate;
//myDate:= EndOfAMonth((myDate)); // مطلوب تحويل التاريخ
Edit3.Text :=DateToStr(myDate);
end;