;;;; tingkat penerimaan ADALAH JUMLAH PELANGGAN yang mempunyai acceptance Attitude = 1 globals [ ; untuk global parameter Customer_Total ;Jumlah-Pelanggan_TKS ;Jumlah-Pelanggan_ISAT ;Jumlah-Pelanggan_XL ; Price_1 ; Price_2 ; Price_3 ; Cakupan_Layanan ;; ATTITUDE imitating ; Persentase pelanggan yang mempunyai Behavour Attitude total = 2 distrust ; Persentase pelanggan yang mempunyai Behavour Attitude total = -2 inactive ; Persentase pelanggan yang mempunyai Behavour Attitude total = 0 conditioning ; Persentase pelanggan yang mempunyai Behavour Attitude total = 1 opportunist ; Persentase pelanggan yang mempunyai Behavour Attitude total = -1 Acceptance_Rate ; Persentase total pelanggan yang menerima pelayanan VMS (mempunyai level acceptance = 1) Tingkat_Penerimaan_TKS ; Persentase pelanggan Telkomsel yang menerima pelayanan VMS (mempunyai level acceptance = 1) Tingkat_Penerimaan_ISAT ; Persentase pelanggan Indosat yang menerima pelayanan VMS (mempunyai level acceptance = 1) Tingkat_Penerimaan_XL ; Persentase pelanggan Exelcom yang mmenerima pelayanan VMS (mempunyai level acceptance = 1) Reluctance_Rate ; Persentase total pelanggan yang menolak pelayanan VMS (mempunyai level acceptance = -1) Tingkat_Penolakan_TKS ; Persentase pelanggan Telkomsel yang menolak pelayanan VMS (mempunyai level acceptance = -1) Tingkat_Penolakan_ISAT ; Persentase pelanggan Indosat yang menolak pelayanan VMS (mempunyai level acceptance = -1) Tingkat_Penolakan_XL ; Persentase pelanggan Exelcom yang menolak pelayanan VMS (mempunyai level acceptance = -1) Deviasi_Pelanggan_TKS ; Deviasi Threshold Pelanggan Telkomsel dalam persentase Deviasi_Pelanggan_ISAT ; Deviasi Threshold Pelanggan Indosat dalam persentase Deviasi_Pelanggan_XL ; Deviasi Threshold Pelanggan Ecxelcom dalam persentase Cara_Myself ;; treshold sementara untuk cara menggunakan Lagu_Myself ;;treshold sementara untuk lagu yang digunakan ] ;; membuat turunan agent dari basic function turtles berupa pelanggan operator telepon selular breed [Pelanggan2-TKS Pelanggan-TKS] ;; Pelanggan2 is its own plural, so we use "pelanggan" as the singular. breed [Pelanggan2-ISAT Pelanggan-ISAT] breed [Pelanggan2-XL Pelanggan-XL] patches-own ; komunikasi pemasaran, kelompok rujukan [ ;Komunikasi Pemasaran pInfo_Product ; Tingkat Informasi Kemudahan Cara menggunakan setiap lokasi pInfo_Benefit ; Tingkat informasi jumlah lagu yang tersedia setiap lokasi ;;Kelompok rujukan ;;;Rumor pRumor_Product ; tingkat rumor kesulitan dalam pemakaian di setiap lokasi pRumor_Benefit ; tingkat rumor lagu yang tidak sesuai disetiap lokasi ;;Diskualifikasi pDisk_Cara_Menggunakan ; tingkat diskualifikasi penggunaan VMS di setiap lokasi pDisk_Lagu ; tingkat diskualifikasi lagu yang tersedia di setiap lokasi ;;Rekomendasi pRek_Cara_Menggunakan ;Tingkat rekomendasi untuk menggunakan di setiap lokasi pRek_Lagu ;TIngkat rekomendasi lagu yang digunakan di setiap lokasi ] turtles-own ; variable-variable pelanggan [ TNeg_Kemampuan_Menggunakan ; Threshold Negatif kemampuan dalam menggunakan VMS TPos_Kemampuan_Menggunakan ; Threshold Positif kemampuan dalam menggunakan VMS BA_Kemampuan_Menggunakan ; Level Behaviour attitude untuk kemampuan menggunakan VMS TNeg_KesesuaianLagu ; Threshold Negatif kesesuai lagu TPos_KesesuaianLagu ; Thresehold Positif kesesuai lagu BA_KesesuaianLagu ; Level Behaviour attitude untuk kesesuai lagu T_DayaBeli ; Threshold Negatif Daya Beli GSM_Operator ; Operator yang digunakan oleh pelanggan Acceptance ; status penerimaan terhadap system 1, 0, -1 BA_total ; tingkat behaviour pelanggan secara kseluruhan terhadap VMS ] ;;; ;;; SETUP AND HELPERS ;;; to setup clear-all ;; clear all untuk mereset semua dari awal setup-VirtualWorld ; setup awal dunia virtual berupa komunikasi pemasaran dan kelompok rujukan setup-pelanggan ;; setup bentuk pelanggan berupa person dan jumlah masing-masing pelanggan setup-pelanggan-tks ; untuk menset perilaku pelanggan telkomsel setup-pelanggan-isat ; untuk menset perilaku pelanggan Indosat setup-pelanggan-XL ; untuk menset perilaku pelanggan Excelcom ;setup-plots do-plot-attitude ;; plot attitute semua pelanggan do-plot-acceptance ;; setup plot untuk per operator end ;; setup awal komunikasi pemasaran ;; setup awal kelompok rujukan to setup-VirtualWorld setup-Background_Color setup-Komunikasi_Pemasaran setup-Rujukan ;; give some patches the highest amount of grain possible -- ;; these patches are the "best land" end to setup-Background_Color ask patches [ set pcolor green ] end to setup-Komunikasi_Pemasaran ; (Info penggunaan, Info Lagu) ask patches [ if random 101 < Product_Info ; secara random menempatkan informasi pemasaran cara menggunakan vms ; maksimum sebesar info cara menggunakan [ ; info cara menggunakan dengan nilai sebesar nilai cara menggunakan +/- 10% set pInfo_Product (Product_Info - 5 + random 11) set pcolor scale-color yellow pInfo_Product 0 200 ] if random 101 < Product_Benefit ; secara random menempatkan informasi pemasaran info lagu [ ; info lagu dengan nilai nilai nfolagu +/- 10% set pInfo_Benefit (Product_Benefit - 5 + random 11) set pcolor scale-color yellow pInfo_Benefit 0 200 ] ] end to setup-Rujukan ; (Rumor, diskualifikasi, Rekomendasi) ask patches [ ;; RUMOR ; secara random menempatkan rumor di virtual world ; dengan jumlah lokasi senilai % Rumor penggunaan if random 101 < Rumor_Product [ ; info rumor cara menggunakan dengan acak dengan nilai sebesar nilai rumor cara menggunakan +/- 10% set pRumor_Product ( Rumor_Product - 5 + random 11) set pcolor scale-color brown pRumor_Product 0 200 ] ; secara random menempatkan rumor info lagu ; dengan jumlah lokasi sebanyak % nilai rumor info lagu if random 101 < Rumor_Benefit [ ; info rumor info lagu dengan nilai acak sebesar nilai rumor info lagu +/- 10% set pRumor_Benefit ( Rumor_Benefit - 5 + random 11) set pcolor scale-color brown pRumor_Benefit 0 200 ] ;; DISKUALIFIKASI ; secara random menempatkan diskualifikasi penggunaan di virtual world ; dengan jumlah lokasi sebanyak % nilai diskualifikasi_penggunaan if random 101 < Diskualifikasi_Product [ ; info diskualifikasi cara menggunakan dengan nilai acak sebesar nilai rumor cara menggunakan +/- 10% set pDisk_Cara_Menggunakan ( Diskualifikasi_Product - 5 + random 11) set pcolor scale-color brown pDisk_Cara_Menggunakan 0 200 ] ; secara random menempatkan diskualifikasi info lagu ; dengan jumlah lokasi sebanyak % nilai Diskualifikasi_Benefit if random 101 < Diskualifikasi_Benefit [ ; info diskualifikasi info lagu dengan nilai acak sebesar nilai rumor info lagu +/- 10% set pDisk_lagu (Diskualifikasi_Benefit - 5 + random 11) set pcolor scale-color brown pDisk_Lagu 0 200 ] ;; REKOMENDASI ; secara random menempatkan Rekomendasi penggunaan di virtual world ;;dengan jumlah lokasi sebanyak nilai Rekomendasi_penggunaan if random 101 < Rumor_Product [ ; info Rekomendasi cara menggunakan dengan nilai acak sebesar nilai rumor cara menggunakan +/- 10% set pRek_Cara_Menggunakan (Rumor_Product - 5 + random 11) set pcolor scale-color yellow pRek_Cara_Menggunakan 0 200 ] ; secara random menempatkan Rekomendasi info lagu disetiap lokasi virtual world ; dengan jumlah lokasi sebanyak % nilai Rumor_Benefit if random 101 < Rumor_Benefit [ ; info diskualifikasi info lagu dengan nilai acak sebesar nilai rumor info lagu +/- 10% set pRek_lagu (Rumor_Benefit - 5 + random 11) set pcolor scale-color yellow pRek_Lagu 0 200 ] ] end ;; untuk meset jumlah pelanggan per operator dan default shape untuk pelanggan to setup-pelanggan set-default-shape turtles "person" set Customer_Total (Cust-1 + Cust-2 + Cust-3) ;;set Jumlah-Pelanggan_TKS int (Customer_Total * 0.59) ; jumlah pelanggan Telkomsel = 59% dari Total Pelanggan ;;set Jumlah-Pelanggan_ISAT int (Customer_Total * 0.27) ; jumlah pelanggan Indosat = 27% dari Total Pelanggan ;;set Jumlah-Pelanggan_XL int (Customer_Total * 0.14) ; jumlah pelanggan XLCOM = 14% dari Total Pelanggan set Deviasi_Pelanggan_TKS 30 ; set variasi thereshold pelanggan Telkomsel set Deviasi_Pelanggan_ISAT 14 ; set variasi thereshold pelanggan Indosat set Deviasi_Pelanggan_XL 7 ; set variasi thereshold pelanggan Excelcom end to setup-pelanggan-TKS create-Pelanggan2-TKS Cust-1 ;; create the Telkomsel, then initialize their variables [ set color blue ;;set shape "person farmer" set size 1.5 ;; easier to see ;; set perilaku dan behaviour pelanggan Telkomsel set TNeg_Kemampuan_Menggunakan (Cust_Ability_1 - (Deviasi_Pelanggan_TKS / 2) + random (Deviasi_Pelanggan_TKS + 1 )) ; Threshold Negatif kemampuan dalam menggunakan VMS +/-10% set TPos_Kemampuan_Menggunakan (Cust_Ability_1 - (Deviasi_Pelanggan_TKS / 2) + random (Deviasi_Pelanggan_TKS + 1 )); Thresehold Positif kemampuan dalam menggunakan VMS +/-10% ;; set LEVEL BA_Kemampuan secara random -2 s.d 2 set BA_Kemampuan_Menggunakan random 2 ifelse BA_Kemampuan_Menggunakan = 0 [ set BA_kemampuan_Menggunakan random 3 ] [ set BA_Kemampuan_Menggunakan (-1 * random 3)] set TNeg_KesesuaianLagu (Cust_Need_1 - (Deviasi_Pelanggan_TKS / 2) + random (Deviasi_Pelanggan_TKS + 1 )); Threshold Negatif kesesuai lagu +/- Deviasi Pelanggan set TPos_KesesuaianLagu (Cust_Need_1 - (Deviasi_Pelanggan_TKS / 2) + random (Deviasi_Pelanggan_TKS + 1 )) ; Thresehold Positif kesesuai lagu +/- Deviasi Pelanggan ;; LEVEL BA Kesesuaian lagui secara random -2 s.d 2 set BA_KesesuaianLagu random 2 ;nilai awal untuk mnwenenmtukan positif atau negatif ifelse BA_KesesuaianLagu = 0 ; check positif negatif [set BA_kesesuaianLagu random 3] ; bila = 0 maka nilai positif [ set BA_KesesuaianLagu (-1 * random 3)]; bila = 1 maka negatif set BA_total ((BA_Kemampuan_Menggunakan + BA_KesesuaianLagu) / 2 ) ;; BA total set T_DayaBeli ( Cust_Buying_Ability - 500 + random 1001) ; Threshold Daya Beli +/- 500 rp set GSM_Operator 1 ; Operator yang digunakan oleh pelanggan 1 untuk TKS = 1 set Acceptance 0 ; setting awal penerimaan konsumen terhadap pelayanan VMS = 0 setxy random-xcor random-ycor ; secara random meletakan pelanggan pada koordinat tertentu ] end to setup-pelanggan-ISAT create-Pelanggan2-ISAT Cust-2 ;; create the pelanggan Indosat, then initialize their variables [ set color red set size 1.5 ;; easier to see ;; set perilaku dan behaviour pelanggan Indosat set TNeg_Kemampuan_Menggunakan (Cust_Ability_2 - (Deviasi_Pelanggan_ISAT / 2) + random (Deviasi_Pelanggan_ISAT + 1 )) ; Threshold Negatif kemampuan dalam menggunakan VMS set TPos_Kemampuan_Menggunakan (Cust_Ability_2 - (Deviasi_Pelanggan_ISAT / 2) + random (Deviasi_Pelanggan_ISAT + 1 )); Thresehold Positif kemampuan dalam menggunakan VMS ;; set LEVEL BA_Kemampuan secara random -2 s.d 2 set BA_Kemampuan_Menggunakan random 2 ifelse BA_Kemampuan_Menggunakan = 0 [ set BA_kemampuan_Menggunakan random 3 ] [ set BA_Kemampuan_Menggunakan (-1 * random 3)] set TNeg_KesesuaianLagu (Cust_Need_2 - (Deviasi_Pelanggan_ISAT / 2) + random (Deviasi_Pelanggan_ISAT + 1 )); Threshold Negatif kesesuai lagu +/- Deviasi Pelanggan set TPos_KesesuaianLagu (Cust_Need_2 - (Deviasi_Pelanggan_ISAT / 2) + random (Deviasi_Pelanggan_ISAT + 1 )) ; Thresehold Positif kesesuai lagu +/- Deviasi Pelanggan ;; LEVEL BA Kesesuaian lagui secara random -2 s.d 2 set BA_KesesuaianLagu random 2 ;nilai awal untuk mnwenenmtukan positif atau negatif ifelse BA_KesesuaianLagu = 0 ; check positif negatif [set BA_kesesuaianLagu random 3] ; bila = 0 maka nilai positif [ set BA_KesesuaianLagu (-1 * random 3)]; bila = 1 maka negatif set BA_total ((BA_Kemampuan_Menggunakan + BA_KesesuaianLagu) / 2 ) ;; BA total set T_DayaBeli ( Cust_Buying_Ability - 500 + random 1001) ; Threshold Daya Beli +/- 500 rp set GSM_Operator 2 ; Operator yang digunakan oleh pelanggan 1 untuk INDOSAT = 2 set Acceptance 0 ; setting awal penerimaan konsumen terhadap pelayanan VMS = 0 setxy random-xcor random-ycor ; secara random meletakan pelanggan pada koordinat tertentu ] end to setup-pelanggan-XL create-Pelanggan2-XL Cust-3 ;; create the pelanggan Indosat, then initialize their variables [ set color orange set size 1.5 ;; easier to see ;; set perilaku dan behaviour pelanggan Excelcom set TNeg_Kemampuan_Menggunakan (Cust_Ability_2 - (Deviasi_Pelanggan_XL / 2) + random (Deviasi_Pelanggan_XL + 1 )) ; Threshold Negatif kemampuan dalam menggunakan VMS set TPos_Kemampuan_Menggunakan (Cust_Ability_2 - (Deviasi_Pelanggan_XL / 2) + random (Deviasi_Pelanggan_XL + 1 )) ; Thresehold Positif kemampuan dalam menggunakan VMS ;; set LEVEL BA_Kemampuan secara random -2 s.d 2 set BA_Kemampuan_Menggunakan random 2 ifelse BA_Kemampuan_Menggunakan = 0 [ set BA_kemampuan_Menggunakan random 3 ] [ set BA_Kemampuan_Menggunakan (-1 * random 3)] set TNeg_KesesuaianLagu (Cust_Need_3 - (Deviasi_Pelanggan_XL / 2) + random (Deviasi_Pelanggan_XL + 1 )) ; Threshold Negatif kesesuai lagu set TPos_KesesuaianLagu (Cust_Need_3 - (Deviasi_Pelanggan_XL / 2) + random (Deviasi_Pelanggan_XL + 1 )) ; Thresehold Positif kesesuai lagu ;; LEVEL BA Kesesuaian lagui secara random -2 s.d 2 set BA_KesesuaianLagu random 2 ;nilai awal untuk mnwenenmtukan positif atau negatif ifelse BA_KesesuaianLagu = 0 ; check positif negatif [set BA_kesesuaianLagu random 3] ; bila = 0 maka nilai positif [ set BA_KesesuaianLagu (-1 * random 3)]; bila = 1 maka negatif set BA_total ((BA_Kemampuan_Menggunakan + BA_KesesuaianLagu) / 2 ) ;; BA total set T_DayaBeli ( Cust_Buying_Ability - 500 + random 1001) ; Threshold Daya Beli +/- 500 rp set GSM_Operator 3 ; Operator yang digunakan oleh pelanggan 1 untuk EXCELCOM = 3 set Acceptance 0 ; setting awal penerimaan konsumen terhadap pelayanan VMS = 0 setxy random-xcor random-ycor ; secara random meletakan pelanggan pada koordinat tertentu ] end ;;; ;;; GO AND HELPERS ;;; to go if ticks >= Days [ stop ] ask turtles [ move ] ; pergerakan pelanggan setiap hari ask turtles [ komunikasi ] ;; melakukan komunikasi antar pelanggan Check_Keputusan_Pelanggan ; keputusan yang diamabil oleh pelanggan Check_Attitude ; check Attitude Pelanggan terhadap VMS do-plot-attitude ;; update plot do-plot-acceptance ;; update plot tick end to move ;; random pergerakan pelanggan right random 360 forward 1 ;; check Behaviour atitude kemampuan menggunakan VMS check-BA_kemampuanPelanggan ;; check behaviour atittude kesesuaian lagu check-BA_KesesuaianLagu ;; check Behaviour attitute pelanggan secara total check-BA_total ;; Tampilkan Atttitude Pelanggan ;; untuk memperlihatkan posisi behaviour attitude setiap pelanggan (on/off) ifelse BA? [ set label ((BA_KesesuaianLagu + BA_Kemampuan_Menggunakan ) / 2 )] [ set label ""] end to check-BA_KemampuanPelanggan ;; check trigger RUMOR : kesulitan dalam penggunaan VMS dibandingkan dengan Negatif threshold kemampuan pelanggan dalam memnggunakan VMS if (pRumor_Product > 0) ;; check lokasi yang berumor atau tidak [ if (pRumor_Product > TNeg_Kemampuan_Menggunakan ) [ if (BA_Kemampuan_Menggunakan > -2) [ set BA_Kemampuan_Menggunakan (BA_Kemampuan_Menggunakan - 1) ] ] ] ;; check trigger RUMOR : Diskualifikasi dalam penggunaan VMS dibandingkan dengan Negatif threshold kemampuan pelanggan dalam memnggunakan VMS if (pDisk_cara_Menggunakan > 0) ;; check lokasi yang berumor atau tidak [ if (pDisk_Cara_Menggunakan > TNeg_Kemampuan_Menggunakan ) [ if (BA_Kemampuan_Menggunakan > -2) [ set BA_Kemampuan_Menggunakan (BA_Kemampuan_Menggunakan - 1) ] ] ] ;; check trigger KELOMPOK RUJUKAN : Rekomendasi untuk menggunakan dibandingkan dengan threshold positif kemampuan pelanggan dalam memnggunakan VMS if (pRek_cara_Menggunakan > 0); check apakah ada info rekomendasi untuk menggunakan [ if (pRek_Cara_Menggunakan > TPos_Kemampuan_Menggunakan); bila triger lebih besar dari threshold positif maka level naik [ if(BA_Kemampuan_Menggunakan < 2) [set BA_Kemampuan_Menggunakan (BA_Kemampuan_Menggunakan + 1)] ] ] ;; check trigger KOMUNIKASI PEMASARAN : info cara menggunakan dibandingkan dengan threshold positif kemampuan pelanggan dalam memnggunakan VMS if (pInfo_Product > 0); check apakah ada info komunikasi pemasaran [ if (pInfo_Product > TPos_Kemampuan_Menggunakan) [ if(BA_Kemampuan_Menggunakan < 2) [set BA_Kemampuan_Menggunakan (BA_Kemampuan_Menggunakan + 1)] ] ] end ;; ;;CHECK Attitude terhadap lagu yang ditawarkan ;; to check-BA_KesesuaianLagu ;; check trigger RUMOR : kesulitan dalam penggunaan Lagu dibandingkan dengan Negatif threshold kemampuan pelanggan dalam memnggunakan VMS if (pRumor_Benefit > 0) ;; check lokasi yang berumor atau tidak [ if (pRumor_Benefit > TNeg_KesesuaianLagu) [ if (BA_KesesuaianLagu > -2) [ set BA_KesesuaianLagu (BA_KesesuaianLagu - 1) ] ] ] ;; check trigger KOMUNIKASI PEMASARAN : info Lagu dibandingkan dengan threshold positif kemampuan pelanggan dalam memnggunakan VMS if (pInfo_Benefit > 0); check apakah ada info komunikasi pemasaran : informasi lagu [ if (pInfo_Benefit > TPos_KesesuaianLagu) [ if(BA_KesesuaianLagu < 2) [set BA_KesesuaianLagu (BA_KesesuaianLagu + 1)] ] ] ;; check trigger RUMOR : Diskualifikasi dalam penggunaan Lagu dibandingkan dengan Negatif threshold kemampuan pelanggan dalam memnggunakan VMS if (pDisk_Lagu > 0) ;; check lokasi yang berumor atau tidak [ if (pDisk_Lagu > TNeg_KesesuaianLagu) [ if (BA_KesesuaianLagu > -2) [ set BA_KesesuaianLagu (BA_KesesuaianLagu - 1) ] ] ] ;; check trigger KELOMPOK RUJUKAN : Rekomendasi untuk menggunakan Lagu dibandingkan dengan threshold positif kemampuan pelanggan dalam memnggunakan VMS if (pRek_Lagu > 0); check apakah ada info rekomendasi untuk menggunakan [ if (pRek_Cara_Menggunakan > TPos_KesesuaianLagu); bila triger lebih besar dari threshold positif maka level naik [ if(BA_KesesuaianLagu < 2) [set BA_KesesuaianLagu (BA_KesesuaianLagu + 1)] ] ] end to check-BA_Total ;; mengecheck BA total dari setiap pelanggan yang ada set BA_total ((BA_Kemampuan_Menggunakan + BA_KesesuaianLagu) / 2 ) end to komunikasi ;; mengecheck apakah ada pengaruh karena interaksi dengan pelanggan lain ifelse any? other turtles-here with [BA_total = 2] ;; bila ada pelanggan dengan attitute 2 Imitating maka akan mepengaruhi ke arah positif [ ;;;show TPos_Kemampuan_Menggunakan set Cara_Myself TPos_Kemampuan_Menggunakan Set Lagu_Myself Tpos_KesesuaianLagu ;; check thresehold positif yang memngaruhi apkah lebih besar dari trheshold pelanggan if ( ( BA_Kemampuan_Menggunakan < 2 )and (any? turtles-here with [TPos_Kemampuan_Menggunakan > Cara_myself]) ) ;; Tingkat kemampuan menggunakan naik satu level [set BA_kemampuan_menggunakan ( BA_Kemampuan_Menggunakan + 1 )] if ( ( BA_KesesuaianLagu < 2 )and (any? turtles-here with [ TPos_KesesuaianLagu > Lagu_myself]) ) ;; Tingkat Kesesuaian Lagu naik satu level [set BA_KesesuaianLagu ( BA_KesesuaianLagu + 1 )] set BA_total ((BA_Kemampuan_Menggunakan + BA_KesesuaianLagu) / 2 ) ] [ if any? other turtles-here with [BA_total = -2] [ set Cara_Myself TNeg_Kemampuan_Menggunakan Set Lagu_Myself TNeg_KesesuaianLagu if ( ( BA_Kemampuan_Menggunakan > -2 )and (any? turtles-here with [TNeg_Kemampuan_Menggunakan > Cara_myself]) );; Tingkat kemampuan menggunakan naik turun satu level [set BA_kemampuan_menggunakan ( BA_Kemampuan_Menggunakan - 1 )] if ( ( BA_KesesuaianLagu > -2 )and (any? turtles-here with [ TPos_KesesuaianLagu > Lagu_myself]) ) ;; Tingkat Kesesuaian Lagu turun satu level [set BA_KesesuaianLagu ( BA_KesesuaianLagu - 1 )] set BA_total ((BA_Kemampuan_Menggunakan + BA_KesesuaianLagu) / 2 ) ] ] end to check_attitude ;; imitating ADALAH Persentase PELANGGAN yang mempunyai Behaviour Attitude = 2 set imitating ( count turtles with [(BA_Total = 2) ] / Customer_Total * 100) ;;;; distrust ADALAH Persentase PELANGGAN yang mempunyai Behaviour Attitude = -2 set distrust (count turtles with [(BA_total = -2)] / Customer_Total * 100 ) ;;;; inactive ADALAH Persentase PELANGGAN yang mempunyai Behaviour Attitude = 0 set inactive (count turtles with [(BA_total = 0)] / Customer_Total * 100 ) ;;;; inactive ADALAH Persentase PELANGGAN yang mempunyai Behaviour Attitude = 0 set conditioning (count turtles with [(BA_total = 1)] / Customer_Total * 100 ) ;;;; inactive ADALAH Persentase PELANGGAN yang mempunyai Behaviour Attitude = 1 set opportunist (count turtles with [(BA_total = -1)] / Customer_Total * 100 ) ;;;; tingkat penerimaan adalah Persentase Total PELANGGAN yang menerima untuk menggunakn pelayanan VMS dengan tingkat acceptance = 1 set Acceptance_Rate (count turtles with [Acceptance = 1 ] / Customer_Total * 100) ;;;; tingkat penerimaan Telkomsel adalah Persentase pelanggan Telkomsel yang menerima pelayanan VMS: mempunyai acceptance Attitude = 1 set Tingkat_Penerimaan_TKS (((count Pelanggan2-TKS with [ acceptance = 1] )/ Cust-1 ) * 100 ) ;;;; tingkat penerimaan Indosat adalah Persentase pelanggan Indosat yang menerima pelayanan VMS: mempunyai acceptance Attitude = 1 set Tingkat_Penerimaan_ISAT (((count Pelanggan2-ISAT with [ acceptance = 1] )/ Cust-2 ) * 100 ) ;;;; tingkat penerimaan exelcom adalah Persentase pelanggan exelcom yang menerima pelayanan VMS: mempunyai acceptance Attitude = 1 set Tingkat_Penerimaan_XL (((count Pelanggan2-XL with [ acceptance = 1] )/ Cust-3 ) * 100 ) ;;;; tingkat Penolakan ADALAH Persentase PELANGGAN yang menolak menggunakan VMS dan mempunyai acceptance Attitude = -1 set Reluctance_Rate (count turtles with [Acceptance = -1 ] / Customer_Total * 100) ;;;; tingkat penolakan Telkomsel adalah Persentase pelanggan Telkomsel yang menolak menggunakan pelayanan VMS: mempunyai acceptance Attitude = -1 set Tingkat_Penolakan_TKS (((count Pelanggan2-TKS with [ acceptance = -1] )/ Cust-1 ) * 100 ) ;;;; tingkat penolakan Indosat adalah Persentase pelanggan Indosat yang menolakan menggunakan pelayanan VMS: mempunyai acceptance Attitude = -1 set Tingkat_Penolakan_ISAT (((count Pelanggan2-ISAT with [ acceptance = -1] )/ Cust-2 ) * 100 ) ;;;; tingkat penolakan Exelcom adalah Persentase pelanggan Exelcom yang menolakan menggunakan pelayanan VMS: mempunyai acceptance Attitude = -1 set Tingkat_Penolakan_XL (((count Pelanggan2-XL with [ acceptance = -1] )/ Cust-3 ) * 100 ) end to Check_Keputusan_Pelanggan ;; mengecheck keputusan pelanggan-pelanggan Telkomsel ask pelanggan2-TKS [check_action_Pelanggan_TKS] ;; mengecheck keputusan pelanggan-pelanggan ISAT ask pelanggan2-ISAT [check_action_Pelanggan_ISAT] ;; mengecheck keputusan pelanggan-pelanggan XL ask pelanggan2-xl [check_action_Pelanggan_xl] end to check_action_pelanggan_TKS ;; check status Behaviour attitude ifelse BA_Total = 2 [ ;check harga Jual pelayanan ifelse ( T_DayaBeli > Price_1) [ ;; YA harga sesuai ;;check nomor tujuan ;; jumlah pelanggan telkomsel = 59% dari Total Pelanggan ifelse Cust1 [ ifelse random 100 < ((Cust-1 / Customer_Total ) * 100 ) [set acceptance 1 ]; sesuai dengan tujuan (nomor tujuan ke telkomsel) [set acceptance 0 ] ; tidak sesuai dengan tujuan, non telkomsel ] [set acceptance 1] ] ;; harga kemahalan [set acceptance 0 ] ] ;; ELSE [ if((BA_Total = -2)) [ ;check harga Jual pelayanan ifelse ( T_DayaBeli < Price_1) [ ;; YA harga tidak sesuai ifelse Cust1 ;; check nomor tujuan [ ifelse random 100 < ((Cust-1 / Customer_Total)* 100 ) ;; jumlah pelanggan telkomsel = 59% dari Total Pelanggan [ set acceptance 0]; sesuai dengan tujuan (nomor tujuan ke telkomsel) [set acceptance -1 ] ; tidak sesuai dengan tujuan, non telkomsel ] [set acceptance -1 ] ] ;; harga sesuai [set acceptance 0] ] ] end to check_action_pelanggan_ISAT ;; pelanggan Indosat ;; check status Behaviour attitude ifelse BA_Total = 2 [ ;check harga Jual pelayanan ifelse ( T_DayaBeli > Price_2) [ ;; YA harga sesuai ;;check nomor tujuan ;; jumlah pelanggan Indosat = 27 % dari Total Pelanggan ifelse Cust2 [ ifelse random 100 < ((Cust-2 / Customer_Total ) * 100 ) [set acceptance 1 ]; sesuai dengan tujuan (nomor tujuan ke Indosat) [set acceptance 0 ] ; tidak sesuai dengan tujuan, non Indosat ] [set acceptance 1] ] ;; harga kemahalan [set acceptance 0 ] ] ;; ELSE [ if((BA_Total = -2)) [ ;check harga Jual pelayanan ifelse ( T_DayaBeli < Price_2) [ ;; YA harga tidak sesuai ifelse Cust2 ;; check nomor tujuan [ ifelse random 100 < ((Cust-2 / Customer_Total)* 100 ) ;; jumlah pelanggan indosat = % dari Total Pelanggan [ set acceptance 0]; sesuai dengan tujuan (nomor tujuan ke Indosat) [set acceptance -1 ] ; tidak sesuai dengan tujuan, non Indosat ] [set acceptance -1 ] ] ;; harga sesuai [set acceptance 0] ] ] end to check_action_pelanggan_XL ;; action pelanggan Excelcom ;; check status Behaviour attitude ifelse BA_Total = 2 [ ;check harga Jual pelayanan ifelse ( T_DayaBeli > Price_3) [ ;; YA harga sesuai ;;check nomor tujuan ;; jumlah pelanggan Excelcom = 14% dari Total Pelanggan ifelse Cust3 [ ifelse random 100 < ((Cust-3 / Customer_Total ) * 100 ) [set acceptance 1 ]; sesuai dengan tujuan (nomor tujuan ke Excelcom) [set acceptance 0 ] ; tidak sesuai dengan tujuan, non Excelcom ] [set acceptance 1] ] ;; harga kemahalan [set acceptance 0 ] ] ;; ELSE [ if((BA_Total = -2)) [ ;check harga Jual pelayanan ifelse ( T_DayaBeli < Price_3) [ ;; YA harga tidak sesuai ifelse Cust3 ;; check nomor tujuan [ ifelse random 100 < ((Cust-3 / Customer_Total)* 100 ) ;; jumlah pelanggan Excelcom = 14% dari Total Pelanggan [ set acceptance 0]; sesuai dengan tujuan (nomor tujuan ke Excelcom) [set acceptance -1 ] ; tidak sesuai dengan tujuan, non Excelcom ] [set acceptance -1 ] ] ;; harga sesuai [set acceptance 0] ] ] end ;;; ;;; PLOTTING ;;; to do-plot-attitude set-current-plot "Attitude" set-current-plot-pen "imitating" plot imitating set-current-plot-pen "distrust" plot distrust set-current-plot-pen "inactive" plot inactive set-current-plot-pen "conditioning" plot conditioning set-current-plot-pen "opportunist" plot opportunist set-current-plot-pen "Acceptance" plot Acceptance_Rate set-current-plot-pen "Reluctance" plot Reluctance_Rate end to do-plot-acceptance set-current-plot "Acceptance Rate" set-current-plot-pen "Segment-1" ;;plot (((count Pelanggan2-TKS with [ acceptance = 1] )/ Cust-1 ) * 100 ) plot Tingkat_Penerimaan_TKS set-current-plot-pen "Segment-2" ;;plot (( ( count Pelanggan2-ISAT with [ acceptance = 1] )/ Cust-2 ) * 100 ) plot Tingkat_Penerimaan_ISAT set-current-plot-pen "Segment-3" ;;plot ( (( count Pelanggan2-XL with [ acceptance = 1] )/ Cust-3 ) * 100 ) plot Tingkat_Penerimaan_XL set-current-plot-pen "Total" ;;plot ( (( count Turtles with [ acceptance = 1]) / Customer_Total ) * 100 ) plot Acceptance_Rate end @#$#@#$#@ GRAPHICS-WINDOW 197 10 648 482 20 20 10.76 1 10 1 1 1 0 1 1 1 -20 20 -20 20 0 0 1 ticks CC-WINDOW 5 548 1257 643 Command Center 0 BUTTON 6 10 88 43 setup setup NIL 1 T OBSERVER NIL NIL NIL NIL BUTTON 106 10 191 43 go go T 1 T OBSERVER NIL NIL NIL NIL SLIDER 5 48 193 81 Product_Info Product_Info 0 100 50 1 1 NIL HORIZONTAL SLIDER 6 84 192 117 Product_Benefit Product_Benefit 0 100 52 1 1 NIL HORIZONTAL SWITCH 11 411 101 444 Cust1 Cust1 1 1 -1000 SLIDER 655 10 827 43 Cust_Ability_1 Cust_Ability_1 0 100 53 1 1 NIL HORIZONTAL SLIDER 654 44 826 77 Cust_Need_1 Cust_Need_1 0 100 50 1 1 NIL HORIZONTAL INPUTBOX 865 80 974 140 Cust_Buying_Ability 1750 1 0 Number SLIDER 7 119 192 152 Rumor_Product Rumor_Product 0 100 50 1 1 NIL HORIZONTAL SLIDER 7 156 191 189 Rumor_Benefit Rumor_Benefit 0 100 50 1 1 NIL HORIZONTAL SLIDER 8 269 190 302 Diskualifikasi_Product Diskualifikasi_Product 0 100 50 1 1 NIL HORIZONTAL SLIDER 9 309 191 342 Diskualifikasi_Benefit Diskualifikasi_Benefit 0 100 50 1 1 NIL HORIZONTAL SLIDER 7 193 190 226 Rekomendasi_Product Rekomendasi_Product 0 100 51 1 1 NIL HORIZONTAL SLIDER 7 232 191 265 Rekomendasi_Benefit Rekomendasi_Benefit 0 100 51 1 1 NIL HORIZONTAL INPUTBOX 654 80 721 140 Price_1 1500 1 0 Number INPUTBOX 722 80 791 140 Price_2 1500 1 0 Number INPUTBOX 790 80 861 140 Price_3 2000 1 0 Number INPUTBOX 11 348 68 408 Cust-1 293 1 0 Number SWITCH 103 449 193 482 BA? BA? 0 1 -1000 SLIDER 845 10 1020 43 Cust_Ability_2 Cust_Ability_2 0 100 48 1 1 NIL HORIZONTAL SLIDER 843 43 1022 76 Cust_Need_2 Cust_Need_2 0 100 47 1 1 NIL HORIZONTAL SLIDER 1035 10 1214 43 Cust_Ability_3 Cust_Ability_3 0 100 55 1 1 NIL HORIZONTAL SLIDER 1037 43 1212 76 Cust_Need_3 Cust_Need_3 0 100 48 1 1 NIL HORIZONTAL PLOT 655 142 1248 356 Attitude Hari Total Pelanggan 0.0 10.0 0.0 10.0 true true PENS "imitating" 1.0 0 -11221820 true "distrust" 1.0 0 -955883 true "inactive" 1.0 0 -16777216 true "conditioning" 1.0 0 -13345367 true "opportunist" 1.0 0 -2674135 true "Acceptance" 1.0 0 -13840069 true "Reluctance" 1.0 0 -1184463 true INPUTBOX 983 80 1033 140 Days 360 1 0 Number PLOT 656 357 1247 481 Acceptance Rate Hari Persentase 0.0 10.0 0.0 10.0 true true PENS "Segment-1" 1.0 0 -11221820 true "Segment-2" 1.0 0 -10899396 true "Segment-3" 1.0 0 -955883 true "Total" 1.0 0 -16777216 true INPUTBOX 71 348 131 408 Cust-2 293 1 0 Number INPUTBOX 134 348 191 408 Cust-3 70 1 0 Number SWITCH 102 412 192 445 Cust2 Cust2 1 1 -1000 SWITCH 11 449 101 482 Cust3 Cust3 1 1 -1000 MONITOR 10 489 114 534 NIL Customer_Total 17 1 11 MONITOR 1036 89 1135 134 NIL Acceptance_Rate 17 1 11 MONITOR 1142 88 1242 133 NIL Reluctance_Rate 17 1 11 @#$#@#$#@ AGENT BASED MODELING OF GSM CONSUMER BEHAVIOR MODEL --------------------------------------------------- Globalization, rapid technology changes, deregulation and competition among cellular operators create fast and non linear changing of telecommunication industry especially cellular industry. Higher customers growth is followed by decreasing basic service (voice) average revenue per user (ARPU) and increasing of customers churn. It shoves cellular operators to increase their revenues from new and innovative value added (non-voice) services. These require an essential method and tool for simulating, analyzing, predicting and anticipating rapid and non linear changing on cellular market. THE OBJECTIVES -------------- The objectives of this research are to develop virtual world on Agent Based Modeling (ABM) of GSM consumer behavior model for cellular operators in Indonesia and to utilize the virtual world for simulating, predicting, analyzing and understanding influence of marketing communication performance and reference group toward consumer behavior changes and its impact to acceptance rate of GSM cellular operator in Indonesia. RESEARCH METHODS ---------------- This research is based on computational agent based modeling experimental method. Research types are descriptive, verificative and predictive. ABM virtual world is developed based on observation and interviews to VMS’s consumers between February 2007 to February 2008. Model is validated by comparing model generated data to real data from Excelcomindo. Then the valid model is utilized for simulating, predicting, analyzing and understanding the influence of marketing communication performance and reference group toward consumer behavior changes and its impact to acceptance rate of GSM cellular operator in Indonesia. Key words: consumer behavior, agent based modeling, marketing communication performance, group reference, consumer acceptance rate HOW IT WORKS ------------ Consumer behaviours are influence by marketing effort from celular operators and influence of group reference sorrounding the consumers. Those influences are compare with internal threshold within consumer. If the external influence is higher than internal threshold there will be positif changing. However if the external influences are lower than internal consumer threshold there are no changing in consumer behaviour. There two kind of external influence; marketing communication and group refence. Both could impact on consumer behaviour HOW TO USE IT ------------- Change level of external influence such as product information level, price level and product benefit. Or change the consumer internal level such as customer ability or customer need. THINGS TO NOTICE ---------------- Acceptance level of consumer will be varies according to input level CREDITS AND REFERENCES ---------------------- Yudi Limbar Yasik Program Doktor, Program Studi Ekonomi Jurusan Manajemen, Fakultas Ekonomi UNPAD, Dipatiukur, Bandung yudiyasik@yahoo.com @#$#@#$#@ default true 0 Polygon -7500403 true true 150 5 40 250 150 205 260 250 airplane true 0 Polygon -7500403 true true 150 0 135 15 120 60 120 105 15 165 15 195 120 180 135 240 105 270 120 285 150 270 180 285 210 270 165 240 180 180 285 195 285 165 180 105 180 60 165 15 arrow true 0 Polygon -7500403 true true 150 0 0 150 105 150 105 293 195 293 195 150 300 150 box false 0 Polygon -7500403 true true 150 285 285 225 285 75 150 135 Polygon -7500403 true true 150 135 15 75 150 15 285 75 Polygon -7500403 true true 15 75 15 225 150 285 150 135 Line -16777216 false 150 285 150 135 Line -16777216 false 150 135 15 75 Line -16777216 false 150 135 285 75 bug true 0 Circle -7500403 true true 96 182 108 Circle -7500403 true true 110 127 80 Circle -7500403 true true 110 75 80 Line -7500403 true 150 100 80 30 Line -7500403 true 150 100 220 30 butterfly true 0 Polygon -7500403 true true 150 165 209 199 225 225 225 255 195 270 165 255 150 240 Polygon -7500403 true true 150 165 89 198 75 225 75 255 105 270 135 255 150 240 Polygon -7500403 true true 139 148 100 105 55 90 25 90 10 105 10 135 25 180 40 195 85 194 139 163 Polygon -7500403 true true 162 150 200 105 245 90 275 90 290 105 290 135 275 180 260 195 215 195 162 165 Polygon -16777216 true false 150 255 135 225 120 150 135 120 150 105 165 120 180 150 165 225 Circle -16777216 true false 135 90 30 Line -16777216 false 150 105 195 60 Line -16777216 false 150 105 105 60 car false 0 Polygon -7500403 true true 300 180 279 164 261 144 240 135 226 132 213 106 203 84 185 63 159 50 135 50 75 60 0 150 0 165 0 225 300 225 300 180 Circle -16777216 true false 180 180 90 Circle -16777216 true false 30 180 90 Polygon -16777216 true false 162 80 132 78 134 135 209 135 194 105 189 96 180 89 Circle -7500403 true true 47 195 58 Circle -7500403 true true 195 195 58 circle false 0 Circle -7500403 true true 0 0 300 circle 2 false 0 Circle -7500403 true true 0 0 300 Circle -16777216 true false 30 30 240 cow false 0 Polygon -7500403 true true 200 193 197 249 179 249 177 196 166 187 140 189 93 191 78 179 72 211 49 209 48 181 37 149 25 120 25 89 45 72 103 84 179 75 198 76 252 64 272 81 293 103 285 121 255 121 242 118 224 167 Polygon -7500403 true true 73 210 86 251 62 249 48 208 Polygon -7500403 true true 25 114 16 195 9 204 23 213 25 200 39 123 cylinder false 0 Circle -7500403 true true 0 0 300 dot false 0 Circle -7500403 true true 90 90 120 face happy false 0 Circle -7500403 true true 8 8 285 Circle -16777216 true false 60 75 60 Circle -16777216 true false 180 75 60 Polygon -16777216 true false 150 255 90 239 62 213 47 191 67 179 90 203 109 218 150 225 192 218 210 203 227 181 251 194 236 217 212 240 face neutral false 0 Circle -7500403 true true 8 7 285 Circle -16777216 true false 60 75 60 Circle -16777216 true false 180 75 60 Rectangle -16777216 true false 60 195 240 225 face sad false 0 Circle -7500403 true true 8 8 285 Circle -16777216 true false 60 75 60 Circle -16777216 true false 180 75 60 Polygon -16777216 true false 150 168 90 184 62 210 47 232 67 244 90 220 109 205 150 198 192 205 210 220 227 242 251 229 236 206 212 183 fish false 0 Polygon -1 true false 44 131 21 87 15 86 0 120 15 150 0 180 13 214 20 212 45 166 Polygon -1 true false 135 195 119 235 95 218 76 210 46 204 60 165 Polygon -1 true false 75 45 83 77 71 103 86 114 166 78 135 60 Polygon -7500403 true true 30 136 151 77 226 81 280 119 292 146 292 160 287 170 270 195 195 210 151 212 30 166 Circle -16777216 true false 215 106 30 flag false 0 Rectangle -7500403 true true 60 15 75 300 Polygon -7500403 true true 90 150 270 90 90 30 Line -7500403 true 75 135 90 135 Line -7500403 true 75 45 90 45 flower false 0 Polygon -10899396 true false 135 120 165 165 180 210 180 240 150 300 165 300 195 240 195 195 165 135 Circle -7500403 true true 85 132 38 Circle -7500403 true true 130 147 38 Circle -7500403 true true 192 85 38 Circle -7500403 true true 85 40 38 Circle -7500403 true true 177 40 38 Circle -7500403 true true 177 132 38 Circle -7500403 true true 70 85 38 Circle -7500403 true true 130 25 38 Circle -7500403 true true 96 51 108 Circle -16777216 true false 113 68 74 Polygon -10899396 true false 189 233 219 188 249 173 279 188 234 218 Polygon -10899396 true false 180 255 150 210 105 210 75 240 135 240 house false 0 Rectangle -7500403 true true 45 120 255 285 Rectangle -16777216 true false 120 210 180 285 Polygon -7500403 true true 15 120 150 15 285 120 Line -16777216 false 30 120 270 120 leaf false 0 Polygon -7500403 true true 150 210 135 195 120 210 60 210 30 195 60 180 60 165 15 135 30 120 15 105 40 104 45 90 60 90 90 105 105 120 120 120 105 60 120 60 135 30 150 15 165 30 180 60 195 60 180 120 195 120 210 105 240 90 255 90 263 104 285 105 270 120 285 135 240 165 240 180 270 195 240 210 180 210 165 195 Polygon -7500403 true true 135 195 135 240 120 255 105 255 105 285 135 285 165 240 165 195 line true 0 Line -7500403 true 150 0 150 300 line half true 0 Line -7500403 true 150 0 150 150 pentagon false 0 Polygon -7500403 true true 150 15 15 120 60 285 240 285 285 120 person false 0 Circle -7500403 true true 110 5 80 Polygon -7500403 true true 105 90 120 195 90 285 105 300 135 300 150 225 165 300 195 300 210 285 180 195 195 90 Rectangle -7500403 true true 127 79 172 94 Polygon -7500403 true true 195 90 240 150 225 180 165 105 Polygon -7500403 true true 105 90 60 150 75 180 135 105 person construction false 0 Rectangle -7500403 true true 123 76 176 95 Polygon -1 true false 105 90 60 195 90 210 115 162 184 163 210 210 240 195 195 90 Polygon -13345367 true false 180 195 120 195 90 285 105 300 135 300 150 225 165 300 195 300 210 285 Circle -7500403 true true 110 5 80 Line -16777216 false 148 143 150 196 Rectangle -16777216 true false 116 186 182 198 Circle -1 true false 152 143 9 Circle -1 true false 152 166 9 Rectangle -16777216 true false 179 164 183 186 Polygon -955883 true false 180 90 195 90 195 165 195 195 150 195 150 120 180 90 Polygon -955883 true false 120 90 105 90 105 165 105 195 150 195 150 120 120 90 Rectangle -16777216 true false 135 114 150 120 Rectangle -16777216 true false 135 144 150 150 Rectangle -16777216 true false 135 174 150 180 Polygon -955883 true false 105 42 111 16 128 2 149 0 178 6 190 18 192 28 220 29 216 34 201 39 167 35 Polygon -6459832 true false 54 253 54 238 219 73 227 78 Polygon -16777216 true false 15 285 15 255 30 225 45 225 75 255 75 270 45 285 person farmer false 0 Polygon -7500403 true true 105 90 120 195 90 285 105 300 135 300 150 225 165 300 195 300 210 285 180 195 195 90 Polygon -1 true false 60 195 90 210 114 154 120 195 180 195 187 157 210 210 240 195 195 90 165 90 150 105 150 150 135 90 105 90 Circle -7500403 true true 110 5 80 Rectangle -7500403 true true 127 79 172 94 Polygon -13345367 true false 120 90 120 180 120 195 90 285 105 300 135 300 150 225 165 300 195 300 210 285 180 195 180 90 172 89 165 135 135 135 127 90 Polygon -6459832 true false 116 4 113 21 71 33 71 40 109 48 117 34 144 27 180 26 188 36 224 23 222 14 178 16 167 0 Line -16777216 false 225 90 270 90 Line -16777216 false 225 15 225 90 Line -16777216 false 270 15 270 90 Line -16777216 false 247 15 247 90 Rectangle -6459832 true false 240 90 255 300 person lumberjack false 0 Polygon -7500403 true true 105 90 120 195 90 285 105 300 135 300 150 225 165 300 195 300 210 285 180 195 195 90 Polygon -2674135 true false 60 196 90 211 114 155 120 196 180 196 187 158 210 211 240 196 195 91 165 91 150 106 150 135 135 91 105 91 Circle -7500403 true true 110 5 80 Rectangle -7500403 true true 127 79 172 94 Polygon -6459832 true false 174 90 181 90 180 195 165 195 Polygon -13345367 true false 180 195 120 195 90 285 105 300 135 300 150 225 165 300 195 300 210 285 Polygon -6459832 true false 126 90 119 90 120 195 135 195 Rectangle -6459832 true false 45 180 255 195 Polygon -16777216 true false 255 165 255 195 240 225 255 240 285 240 300 225 285 195 285 165 Line -16777216 false 135 165 165 165 Line -16777216 false 135 135 165 135 Line -16777216 false 90 135 120 135 Line -16777216 false 105 120 120 120 Line -16777216 false 180 120 195 120 Line -16777216 false 180 135 210 135 Line -16777216 false 90 150 105 165 Line -16777216 false 225 165 210 180 Line -16777216 false 75 165 90 180 Line -16777216 false 210 150 195 165 Line -16777216 false 180 105 210 180 Line -16777216 false 120 105 90 180 Line -16777216 false 150 135 150 165 Polygon -2674135 true false 100 30 104 44 189 24 185 10 173 10 166 1 138 -1 111 3 109 28 person soldier false 0 Rectangle -7500403 true true 127 79 172 94 Polygon -10899396 true false 105 90 60 195 90 210 135 105 Polygon -10899396 true false 195 90 240 195 210 210 165 105 Circle -7500403 true true 110 5 80 Polygon -10899396 true false 105 90 120 195 90 285 105 300 135 300 150 225 165 300 195 300 210 285 180 195 195 90 Polygon -6459832 true false 120 90 105 90 180 195 180 165 Line -6459832 false 109 105 139 105 Line -6459832 false 122 125 151 117 Line -6459832 false 137 143 159 134 Line -6459832 false 158 179 181 158 Line -6459832 false 146 160 169 146 Rectangle -6459832 true false 120 193 180 201 Polygon -6459832 true false 122 4 107 16 102 39 105 53 148 34 192 27 189 17 172 2 145 0 Polygon -16777216 true false 183 90 240 15 247 22 193 90 Rectangle -6459832 true false 114 187 128 208 Rectangle -6459832 true false 177 187 191 208 plant false 0 Rectangle -7500403 true true 135 90 165 300 Polygon -7500403 true true 135 255 90 210 45 195 75 255 135 285 Polygon -7500403 true true 165 255 210 210 255 195 225 255 165 285 Polygon -7500403 true true 135 180 90 135 45 120 75 180 135 210 Polygon -7500403 true true 165 180 165 210 225 180 255 120 210 135 Polygon -7500403 true true 135 105 90 60 45 45 75 105 135 135 Polygon -7500403 true true 165 105 165 135 225 105 255 45 210 60 Polygon -7500403 true true 135 90 120 45 150 15 180 45 165 90 square false 0 Rectangle -7500403 true true 30 30 270 270 square 2 false 0 Rectangle -7500403 true true 30 30 270 270 Rectangle -16777216 true false 60 60 240 240 star false 0 Polygon -7500403 true true 151 1 185 108 298 108 207 175 242 282 151 216 59 282 94 175 3 108 116 108 target false 0 Circle -7500403 true true 0 0 300 Circle -16777216 true false 30 30 240 Circle -7500403 true true 60 60 180 Circle -16777216 true false 90 90 120 Circle -7500403 true true 120 120 60 tree false 0 Circle -7500403 true true 118 3 94 Rectangle -6459832 true false 120 195 180 300 Circle -7500403 true true 65 21 108 Circle -7500403 true true 116 41 127 Circle -7500403 true true 45 90 120 Circle -7500403 true true 104 74 152 triangle false 0 Polygon -7500403 true true 150 30 15 255 285 255 triangle 2 false 0 Polygon -7500403 true true 150 30 15 255 285 255 Polygon -16777216 true false 151 99 225 223 75 224 truck false 0 Rectangle -7500403 true true 4 45 195 187 Polygon -7500403 true true 296 193 296 150 259 134 244 104 208 104 207 194 Rectangle -1 true false 195 60 195 105 Polygon -16777216 true false 238 112 252 141 219 141 218 112 Circle -16777216 true false 234 174 42 Rectangle -7500403 true true 181 185 214 194 Circle -16777216 true false 144 174 42 Circle -16777216 true false 24 174 42 Circle -7500403 false true 24 174 42 Circle -7500403 false true 144 174 42 Circle -7500403 false true 234 174 42 turtle true 0 Polygon -10899396 true false 215 204 240 233 246 254 228 266 215 252 193 210 Polygon -10899396 true false 195 90 225 75 245 75 260 89 269 108 261 124 240 105 225 105 210 105 Polygon -10899396 true false 105 90 75 75 55 75 40 89 31 108 39 124 60 105 75 105 90 105 Polygon -10899396 true false 132 85 134 64 107 51 108 17 150 2 192 18 192 52 169 65 172 87 Polygon -10899396 true false 85 204 60 233 54 254 72 266 85 252 107 210 Polygon -7500403 true true 119 75 179 75 209 101 224 135 220 225 175 261 128 261 81 224 74 135 88 99 wheel false 0 Circle -7500403 true true 3 3 294 Circle -16777216 true false 30 30 240 Line -7500403 true 150 285 150 15 Line -7500403 true 15 150 285 150 Circle -7500403 true true 120 120 60 Line -7500403 true 216 40 79 269 Line -7500403 true 40 84 269 221 Line -7500403 true 40 216 269 79 Line -7500403 true 84 40 221 269 x false 0 Polygon -7500403 true true 270 75 225 30 30 225 75 270 Polygon -7500403 true true 30 75 75 30 270 225 225 270 @#$#@#$#@ NetLogo 4.0.2 @#$#@#$#@ @#$#@#$#@ @#$#@#$#@ setup go Tingkat_Penerimaan TIngkat_Penolakan Imitating Distrust inactive conditioning opportunist Tingkat_Penerimaan_TKS TIngkat_Penerimaan_ISAT Tingkat_Penerimaan_XL setup go Tingkat_Penerimaan TIngkat_Penolakan Imitating Distrust inactive conditioning opportunist Tingkat_Penerimaan_TKS TIngkat_Penerimaan_ISAT Tingkat_Penerimaan_XL setup go Inactive Conditioning Imitating Opportunist Distrust Tingkat_Penerimaan Tingkat_Penerimaan_TKS Tingkat_Penerimaan_ISAT Tingkat_Penerimaan_XL Tingkat_Penolakan Tingkat_Penolakan_TKS Tingkat_Penolakan_ISAT Tingkat_Penolakan_XL setup go Inactive Conditioning Imitating Opportunist Distrust Tingkat_Penerimaan Tingkat_Penerimaan_TKS Tingkat_Penerimaan_ISAT Tingkat_Penerimaan_XL Tingkat_Penolakan Tingkat_Penolakan_TKS Tingkat_Penolakan_ISAT Tingkat_Penolakan_XL setup go Inactive Conditioning Imitating Opportunist Distrust Tingkat_Penerimaan Tingkat_Penerimaan_TKS Tingkat_Penerimaan_ISAT Tingkat_Penerimaan_XL Tingkat_Penolakan Tingkat_Penolakan_TKS Tingkat_Penolakan_ISAT Tingkat_Penolakan_XL @#$#@#$#@ @#$#@#$#@ default 0.0 -0.2 0 1.0 0.0 0.0 1 1.0 0.0 0.2 0 1.0 0.0 link direction true 0 Line -7500403 true 150 150 30 225 Line -7500403 true 150 150 270 225 @#$#@#$#@