Sign by Ryyan ruwet -

Bagi kalian para followers selamat datang dan selamat menikmati artikel dalam blog ini dan silahkan bebas mengCopy " GGRRRRAAAAAAATTTIIIISSSS "

Not Indonesian, Please translate here :

English French German Spain Italian Dutch Russian Portuguese Japanese Korean Arabic Chinese Simplified
by : ryyanruwetwetruwet & ther - wher
Tampilkan NavBar

Deteksi gambar porno dengan matlab



Source Code Matlab untuk Pelatihan:
01.data = [A1 A2 A3 A4 A5 A6 A7 A8 A9 B1 B2];
02. 
03.Target = [1 1 1 2 2 2 3 3 3 3 3];% 1:Porno, 2:porno/mendekati porno, 3:bukan porno
04.T = ind2vec(Target);
05.kelas=size(full(T),1);%mencari jumlah kelas
06.neuron=7;%jumlah neuron
07. 
08.%bentuk jaringan LVQ
09.jst=newlvq([min max],neuron,(1/kelas)*ones(1,kelas));
10.%Pengaturan Nilai epoch, Nilai hasil(goal) yang diinginkan
11.jst.trainParam.epochs       =1000;  %nilai epoch maksimal yang di inginkan
12.jst.trainParam.goal         =1e-4;  %nilai hasil akhir yang diinginkan
13.%Pembelajaran
14.jst=train(jst,data,T);
15.%Nilai bobot dan bias
16.BobotAkhir_Input         =jst.IW{1,1};
17.BobotAkhir_Bias_Input    =jst.b{1,1};
18.BobotAkhir_Lapisan       =jst.LW{2,1};
19.BobotAkhir_Bias_Lapisan  =jst.b{2,1};
20.grid;
NB: Data A1 A2 dan sterusnya adalah data yang akan dikenali berupa matrix vector kolom (matrix 1*5000).
Sorce Code Matlab Untuk Processing dan Pendeteksian:
01.%=======================================%
02.%   Program ini untuk mendeteksi pornografi         %
03.%   dengan Jaringan Saraf Tiruan menggunakan    %
04.%   metode Learning Vector Quantization(LVQ)    %
05.%                                   %
06.%   Deteksi PornoGrafi, Oleh Rifqi Imanto       %
07.%======================================%
08.clc
09.echo off
10.data=double(0);
11.porn=double(0);
12.datavec=double(0);
13.loop=0;
14. 
15.gambar = imread('D:\PROJECT\MatLAB\imageprocessing\2.jpg');%Ambil Gambar
16.gambar = rgb2gray(gambar);%ubah gambar ke grayscale
17. 
18.%'deteksi tepi tipe sobel'
19.tepi = edge(gambar,'sobel',0.08);
20.u_tepi=size(tepi);%mencari ukuran matrix(gambar)
21. 
22.%menentukan luas matrix untuk wadah gambar
23.bag=u_tepi(1)/int16(50);
24.kur=(bag*50)-u_tepi(1);
25.if kur < 0
26.pjgX=(bag+1)*50;
27.else
28.pjgX=bag*50;
29.end
30.bag1=u_tepi(2)/int16(100);
31.kur1=(bag1*100)-u_tepi(2);
32.if kur1 < 0
33.pjgY=(bag1+1)*100;
34.else
35.pjgY=bag1*100;
36.end
37. 
38.datagam(1:pjgX,1:pjgY)=0; %ciptakan matrix wadah yang bisa dibagi dengan50*100
39.datagam(1:u_tepi(1),1:u_tepi(2))=tepi(1:u_tepi(1),1:u_tepi(2));%masukkan gambar ke matrix wadah
40.%-------
41. 
42.%cari dalam gambar dengan frame100*50
43.tepibawmax=(pjgX/50);
44.tepikanmax=(pjgY/100);
45.batbaw=1;
46.for vert = 1:tepibawmax
47.batbaw_ak=batbaw+49;
48.batkan=1;
49.for horz = 1:tepikanmax
50.batkan_ak=batkan+99;
51. 
52.data=datagam(batbaw:batbaw_ak,batkan:batkan_ak);
53. 
54.%'ubah 'data' matrix m*n(100*50) jadi 1 kolom'
55.i=0;
56.for m = 1:50
57.for n = 1:100
58.i=i+1;
59.datavec(i,1) = data(m,n);
60.end
61.end
62.%--------------------------------------------
63. 
64.%'Pengujian dengan JST LVQ'
65.hasil=sim(jst,datavec);
66.hasil=vec2ind(hasil);
67.if hasil==1 | hasil==2
68.porn=porn+1;
69.end
70.%-------------------------
71.loop=loop+1;
72.batkan=batkan+100;
73.end
74.batbaw=batbaw+50;
75.end

1 coments:

Unknown mengatakan...

maaf maksudnya gimana ya ?
bisa diperjelas lagi ?
terima kasih kalao bisa

Posting Komentar

Buku Tamu

ShoutMix chat widget

Most Populer