SVMCrossVal.git

1) function ui_main(varargin)
2) 
3) %  Initialize and hide the GUI as it is being constructed.
4)     frameWidth=450;

5)     frameHeight=450;

6)     
7)     frame = figure('Visible','off','Position',[0,0,frameWidth,frameHeight]);
8)     movegui(frame,'west'); % get this thing visible on smaller displays.
9)     set(frame,'Name','SVMCrossVal Decode Performance 4 SPM');
10)     set(frame,'NumberTitle','off');
11)     set(frame,'MenuBar','none');

12)     set(frame,'Resize','on');

13)     set(frame,'Units','normalized');

14)     set(frame,'Color','y');

15) 

16)     task = struct;

17) 

18)     model = struct;

19)     

20)     model.txtBaseDir = createLabel(frame,[0 0.97 0.8 0.03],'');
21)     set(model.txtBaseDir,'BackgroundColor','w');
22)     set(model.txtBaseDir,'ForegroundColor','b');
23)     
24)     model.txtStudyID = createLabel(frame,[0.8 0.97 0.2 0.03],'');
25)     set(model.txtStudyID,'BackgroundColor','w');
26)     set(model.txtStudyID,'ForegroundColor','r');    
27) 

28)     TASK_HEIGHT = 1-0.13;
29)     
30)     % PREPROCESSING
31)     task.preprocessing   = uipanel(frame,'Title','Preprocessing','Position',[0 0.0 1 TASK_HEIGHT]);
32)     set(task.preprocessing,'BackgroundColor','w');
33)     set(task.preprocessing,'Units','normalized');

34)     model = createFirstStepPanel(model,task.preprocessing);

35)     

36)     % CLASSIFICATION
37)     task.classification = uipanel(frame,'Title','Classification','Position',[0 0.0 1 TASK_HEIGHT]);
38)     set(task.classification,'BackgroundColor','w');

39)     model = createSecondStepPanel(model,task.classification);

40)     

41)     % PLOT
42)     task.plot = uipanel(frame,'Title','Plot','Position',[0 0.0 1 TASK_HEIGHT]);
43)     set(task.plot,'BackgroundColor','w');

44)     model = createVisualStepPanel(model,task.plot);

45)     

46)     % TASK SWITCH BUTTONS

47)     task.taskSwitch = uibuttongroup(frame,'Position',[0 1-0.13 1 0.10]);
48)     % controlls togglebuttons

49)         set(task.taskSwitch,'BackgroundColor','w');
50)         set(task.taskSwitch,'Units','normalized');
51)     

52)         btnSwitchPreprocessing = uicontrol(task.taskSwitch,'Style','pushbutton',...
53)             'String','ImageProcessing',...

54)             'Units','normalized','Position',[0.0 0.0 0.33 1]);

55)         set(btnSwitchPreprocessing,'Callback',{@cbSwitchTask,'PRE',task}); 

56)         set(btnSwitchPreprocessing,'Enable','on');
57) 

58)         btnSwitchClassify = uicontrol(task.taskSwitch,'Style','pushbutton',...
59)             'String','Decode',...

60)             'Units','normalized','Position',[0.33 0.0 0.33 1]);

61)         set(btnSwitchClassify,'Callback',{@cbSwitchTask,'CLASSIFY',task}); 

62)         set(btnSwitchClassify,'Enable','on');
63) 

64)         btnSwitchPlot = uicontrol(task.taskSwitch,'Style','pushbutton',...
65)             'String','Plot',...

66)             'Units','normalized','Position',[0.66 0.0 0.33 1]);

67)         set(btnSwitchPlot,'Callback',{@cbSwitchTask,'PLOT',task}); 

68)         set(btnSwitchPlot,'Enable','on');
69) 

70) 

71)     % MENUS

72) 
73)     savemenu = uimenu(frame,'Label','Save ...','Enable','on');
74)         uimenu(savemenu,'Label','Save All','Callback',{@mcb_save,model},'Enable','on');

75)         

76)     studySelectMenu = uimenu(frame,'Label','Study ...','Enable','on');
77)         uimenu(studySelectMenu,'Label','*new Study*','Callback',{@mcb_new_study,studySelectMenu,model});
78)         fillStudyMenu(studySelectMenu,model);
79)         

80)     updateMenu = uimenu(frame,'Label','update ...','Enable','on');
81)         uimenu(updateMenu,'Label','rescan subject dir','Callback',{@mcb_update_subjects,model});
82)         uimenu(updateMenu,'Label','rescan images','Callback',{@mcb_update_imagebase,model});

83)         
84) %     newStudyMenu = uimenu(frame,'Label','new Study','Enable','on');

85) 

86)     load_study([getPreviousStudyID '.mat'],model);
87)     cbSwitchTask(0,0,'PRE',task);

88)     set(frame,'Visible','on');
89) 

90) end

91) 

92) %%%%% ui elements
93) function model = createFirstStepPanel(model,parent)

94) 

95)     main_grid = cell(2,4);
96)     main_grid{1,1} = [0 0.7 0.4 0.3];
97)     main_grid{1,2} = [0 0.5 0.5 0.2];
98)     main_grid{1,3} = [0 0.1 0.5 0.4];
99)     main_grid{1,4} = [0 0.0 1.0 0.1];

100)     

101)     main_grid{2,1} = [0.4 0.7 0.6 0.3];
102)     main_grid{2,2} = [0.5 0.5 0.5 0.2];
103)     main_grid{2,3} = [0.5 0.1 0.5 0.4];

104)     
105)     %Subjects

106)     pSubject = uipanel(parent,'Units','normalized','Position',cell2mat(main_grid(1,1)));
107)     set(pSubject,'Title','Subjects');
108)     set(pSubject,'BackgroundColor','w');
109)     

110) %     subjectNames = listDirNames(getBaseDir(model));

111)     model.subjectSelector = uicontrol(pSubject,'Style','listbox',...

112)                     'Min',1, 'Max',3,...
113)                     'Units','normalized',...

114)                     'Position',[0 0 1 1]);

115)     set(model.subjectSelector, 'FontName', 'FixedWidth');

116)     set(model.subjectSelector,'BackgroundColor','w');

117) 
118)   

119)     %Classes

120)     pClasses = uipanel(parent,'Units','normalized','Position',cell2mat(main_grid(1,2)));

121)     set(pClasses,'Title','Class Definitions');
122)     set(pClasses,'BackgroundColor','w');
123)         lClassDef = uicontrol(pClasses,...
124)             'Style','text',...
125)             'String',sprintf('<Label>,\t <[Event, Event, ..]>;'),...
126)             'Units','normalized',...
127)             'Position',[0 0.8 1 0.2]);
128)         set(lClassDef,'BackgroundColor','w');
129)         set(lClassDef,'HorizontalAlignment','left');

130) 

131)         
132)         model.txtClassDef = uicontrol(pClasses,'Style','edit',...
133)             'Units','normalized',...
134)             'Position',[0 0 1 0.8]);
135)         set(model.txtClassDef,'HorizontalAlignment','left');
136)         set(model.txtClassDef,'Max',20);
137)         set(model.txtClassDef,'Min',0);
138)         set(model.txtClassDef, 'FontName', 'FixedWidth');

139)         set(model.txtClassDef, 'BackgroundColor', 'w');

140) 
141) 
142)     %Timeline

143)     pPSTH        = uipanel(parent,'Title','PSTH Options','Position',cell2mat(main_grid(2,1)));

144)     set(pPSTH,'BackgroundColor','w');
145)         
146)         grid_h = 0.16;
147)         grid_w = 0.3;
148)         

149)         tl_grid = cell([3 6]);
150)         tl_grid{2,1} = [0.0 0.83 grid_w grid_h];
151)         tl_grid{2,1} = [0.4 0.83 grid_w grid_h];
152)         tl_grid{3,1} = [0.7 0.83 grid_w grid_h];

153)         

154)         tl_grid{1,2} = [0.0 0.66 grid_w grid_h];
155)         tl_grid{2,2} = [0.4 0.66 grid_w grid_h];
156)         tl_grid{3,2} = [0.7 0.66 grid_w grid_h];

157) 

158)         tl_grid{1,3} = [0.0 0.5 grid_w grid_h];
159)         tl_grid{2,3} = [0.4 0.5 grid_w grid_h];
160)         tl_grid{3,3} = [0.7 0.5 grid_w grid_h];

161)         

162)         tl_grid{1,4} = [0.0 0.33 grid_w grid_h];
163)         tl_grid{2,4} = [0.4 0.33 grid_w grid_h];
164)         tl_grid{3,4} = [0.7 0.33 grid_w grid_h];

165) 

166)         tl_grid{1,5} = [0.0 0.16 grid_w grid_h];
167)         tl_grid{2,5} = [0.4 0.16 grid_w grid_h];
168)         tl_grid{3,5} = [0.7 0.16 grid_w grid_h];

169)         

170)         tl_grid{1,6} = [0.0 0.0 0.5 grid_h];
171)         tl_grid{2,6} = [0.5 0.0 grid_w grid_h];
172)         tl_grid{3,6} = [0.75 0.0 grid_w grid_h];
173) 
174)         lStart      = createLabel(pPSTH, cell2mat(tl_grid(2,1)) ,'Start [sec]');
175)         lEnd        = createLabel(pPSTH, cell2mat(tl_grid(3,1)) ,'End [sec]');

176)         lPSTH       = createLabel(pPSTH, cell2mat(tl_grid(1,2)) ,'PSTH Range');
177)         lBaseline   = createLabel(pPSTH, cell2mat(tl_grid(1,3)) ,'Baseline');
178)         lTRF        = createLabel(pPSTH, cell2mat(tl_grid(1,5)) ,'TR Factor');
179) 
180)         model.txtPSTHStart         = createTextField(pPSTH,cell2mat(tl_grid(2,2)),'');
181)         model.txtPSTHEnd           = createTextField(pPSTH,cell2mat(tl_grid(3,2)),'');
182)         model.txtBaselineStart     = createTextField(pPSTH,cell2mat(tl_grid(2,3)),'');
183)         model.txtBaselineEnd       = createTextField(pPSTH,cell2mat(tl_grid(3,3)),'');
184)         model.txtTrFactor          = createTextField(pPSTH,cell2mat(tl_grid(2,5)),'');
185)         model.labelTR              = createTextField(pPSTH,cell2mat(tl_grid(3,5)),'');

186)         
187)         % images

188)         pImage = uipanel(parent,'Title','Image Options','Position',cell2mat(main_grid(2,2)));

189)         set(pImage,'BackgroundColor','w');
190) 
191)         createLabel(pImage,[0.0 0.5 1 0.5],'Select Image Base');
192)         
193)         model.imageTypeSelection = uicontrol(pImage,'Style','popupmenu',...
194)         'Units','normalized',...

195)         'Position',[0.0 0.0 1 0.5]);

196)         set(model.imageTypeSelection,'BackgroundColor','w');
197)         
198)         % coordinate Table

199)         pVoxel = uipanel(parent,'Title','ROI','Position',cell2mat(main_grid(1,3)));

200)         set(pVoxel,'BackgroundColor','w');

201)         lVoxelDef = createLabel(pVoxel, [0 0.9 1 0.1],'<ROI Name> [+ radius (mm)];');

202)         model.txtVoxelDef = createTextField(pVoxel,[0 0 1 0.9],'');

203)         set(model.txtVoxelDef,'HorizontalAlignment','left');
204)         set(model.txtVoxelDef,'Max',20);
205)         set(model.txtVoxelDef,'Min',0);
206)         set(model.txtVoxelDef, 'FontName', 'FixedWidth');
207)         

208)         %normalizations
209)         pNorm = uipanel(parent,'Title','Normalization','Position',cell2mat(main_grid(2,3)));
210)         set(pNorm,'BackgroundColor','w');
211)         

212)         createLabel(pNorm,[0 0.75 1 0.25],'psth norm4SVM');

213)         
214)         

215)         norm1Model = {'none','mean','minmax'};

216) 
217)         

218)         model.selNormPST = uicontrol(pNorm,'Style','popupmenu',...
219)             'Units','normalized',...
220)             'Position',[0.0 0.5 1 0.25],...
221)             'String',norm1Model,...

222)             'UserData',norm1Model);

223)          set(model.selNormPST,'BackgroundColor','w');   
224)         

225)         model.chkColBias = uicontrol(pNorm,'Style','checkbox',...

226)             'Units','normalized',...

227)             'Position',[0.0 0.1 1 0.25],...
228)             'String','column Bias removal',...

229)             'Enable','on');

230)          set(model.chkColBias,'BackgroundColor','w');   

231)         
232)         %buttons
233)         pButtons = uipanel(parent,'Position',cell2mat(main_grid(1,4)));
234)         set(pButtons,'BackgroundColor','w');

235)         

236)         btnRunButton1 = uicontrol(pButtons,'String','run coord-Table',...
237)             'Units','normalized','Position',[0 0 0.33 1]);

238)         set(btnRunButton1,'Callback',{@cbRunPreprocessing,model,'COORD'}); % set here, because of model.    
239)         set(btnRunButton1,'Enable','on');

240)         

241)         btnRunButton2 = uicontrol(pButtons,'String',sprintf('load ROI for FBS'),...

242)             'Units','normalized','Position',[0.33 0 0.33 1]);

243)         set(btnRunButton2,'Callback',{@cbRunPreprocessing,model,'FBS'}); % set here, because of model.  

244)         set(btnRunButton2,'Enable','on');

245)         

246)         btnRunButton3 = uicontrol(pButtons,'String','run ROI-Image processing',...
247)             'Units','normalized','Position',[0.66 0 0.33 1]);

248)         set(btnRunButton3,'Callback',{@cbRunPreprocessing,model,'ROI'}); % set here, because of model.    
249)         set(btnRunButton3,'Enable','on');
250) end
251) 

252) function model = createSecondStepPanel(model,parent)

253) basecolor = 'w';
254) 

255) pTime = uipanel(parent,'Units','normalized','Position',[0.0 0.8 1 0.2]);
256)     set(pTime,'Title','Decode Timeframe Options');

257)     set(pTime,'BackgroundColor',basecolor);

258)     grid_h = 0.3;
259)     grid_w = 0.3;
260)     time_grid = cell([3 3]);
261)     time_grid{1,1} = [0.0 0.63 grid_w grid_h];
262)     time_grid{2,1} = [0.4 0.63 grid_w grid_h];
263)     time_grid{3,1} = [0.7 0.63 grid_w grid_h];
264)     time_grid{1,2} = [0.0 0.33 grid_w grid_h];
265)     time_grid{2,2} = [0.4 0.33 grid_w grid_h];
266)     time_grid{3,2} = [0.7 0.33 grid_w grid_h];
267)     time_grid{1,3} = [0.0 0.03 grid_w grid_h];
268)     time_grid{2,3} = [0.4 0.03 grid_w grid_h];
269)     time_grid{3,3} = [0.7 0.03 grid_w grid_h];
270) 
271)     lStart      = createLabel(pTime, cell2mat(time_grid(2,1)) ,'Start [sec]');
272)     lEnd        = createLabel(pTime, cell2mat(time_grid(3,1)) ,'End [sec]');
273)     lFrameShift = createLabel(pTime, cell2mat(time_grid(1,2)),'Frame Shift');
274)     lFramsSize  = createLabel(pTime, cell2mat(time_grid(1,3)),'Frame Size');
275)     

276)     model.txtFrameShiftStart   = createTextField(pTime,cell2mat(time_grid(2,2)),'');
277)     model.txtFrameShiftEnd     = createTextField(pTime,cell2mat(time_grid(3,2)),'');
278)     model.txtFrameShiftDur     = createTextField(pTime,cell2mat(time_grid(2,3)),'');

279) 

280)     

281) pSVM = uipanel(parent,'Units','normalized','Position',[0 0.4 0.5 0.4]);

282)     set(pSVM,'Title','SVM Classification');
283)     set(pSVM,'BackgroundColor',basecolor);
284) 

285)     model.txtSVMopts = createTextField(pSVM,[0 0.83 1 0.16],'');

286)     set(model.txtSVMopts,'HorizontalAlignment','left');
287)     

288)     model.txtSVMnfold = createTextField(pSVM,[0.0 0.66 0.5 0.16],'');

289)     createLabel(pSVM,[0.5 0.50 0.5 0.25 ],'-Fold CrossVal');
290)     

291)     model.chkSVMrnd = uicontrol(pSVM,'Style','checkbox','Units','normalized','Position',[0.1 0.50 0.9 0.16]);

292)     set(model.chkSVMrnd,'String','Randomize Datapoints');
293)     set(model.chkSVMrnd,'BackgroundColor','w');

294) %     set(model.chkSVMrnd,'Value',StudyArgs.svmrnd);

295)     

296)     btnRunSVM = uicontrol(pSVM,'String','run batchmode SVM Crossvalidation',...
297)         'Units','normalized',...
298)         'Position',[0 0.25 1 0.25]);
299)     set(btnRunSVM,'Enable','on');
300)     
301)     btnRunXSVM = uicontrol(pSVM,'String','run SVM X-Subject validation',...
302)         'Units','normalized',...
303)         'Position',[0 0.0 1 0.25]);
304)     set(btnRunXSVM,'Enable','on');

305)     

306) pSOM = uipanel(parent,'Units','normalized','Position',[0.5 0.4 0.5 0.4]);

307)     set(pSOM,'Title','SOM Classification');
308)     set(pSOM,'BackgroundColor',basecolor);
309) 

310)     createLabel(pSOM,[0 0.75 0.3 0.20],'Size:');

311)     model.txtSomM = createTextField(pSOM,[0.3 0.75 0.25 0.2],'');

312)     somsizemal = createLabel(pSOM,[0.55 0.75 0.2 0.20],'x');
313)     set(somsizemal,'HorizontalAlignment','center');

314)     model.txtSomN = createTextField(pSOM,[0.75 0.75 0.25 0.20],'');

315)     latticeModel = {'rect','hexa'};
316)     model.selSomLattice = uicontrol(pSOM,'Style','popupmenu',...
317)         'Units','normalized',...
318)         'Position',[0.0 0.5 0.3 0.20],...
319)         'String',latticeModel,...

320)         'UserData',latticeModel);

321)     set(model.selSomLattice,'BackgroundColor','w');

322) 

323)     model.txtSOMnfold = createTextField(pSOM,[0.5 0.50 0.25 0.20],'');

324) %     set(model.txtSOMnfold,'Enable','off');
325)     createLabel(pSOM,[0.75 0.5 0.25 0.20 ],'-Fold CrossVal');
326)        

327) 
328)     btnRunSOM = uicontrol(pSOM,'String','run SOM Crossvalidation',...
329)         'Units','normalized',...

330)         'Position',[0.0 0.25 1 0.25]);

331)     set(btnRunSOM,'Enable','on');

332) 
333)     btnRunXSOM = uicontrol(pSOM,'String','run SOM X-Subject validation',...
334)         'Units','normalized',...
335)         'Position',[0.0 0.0 1 0.25]);

336)     set(btnRunXSOM,'Enable','on');

337)     

338) pSearchlight = uipanel(parent,'Units','normalized','Position',[0.0 0.1 0.5 0.3]);

339)     set(pSearchlight,'Title','Spatiotemporal FB classification');
340)     set(pSearchlight,'BackgroundColor',basecolor);
341)     

342)     lSearchligh = createLabel(pSearchlight, [0 0.6 0.5 0.3],'Searchlight Radius (mm)');

343)     model.txtSearchlightRadius = createTextField(pSearchlight,[0.5 0.6 0.5 0.3],'');

344)     

345)     lFBSTiming = createLabel(pSearchlight, [0 0.3 0.5 0.3],'Optional Timeline ( e.g. ''-5 0 5 10 15'')');

346)     model.txtSearchlightTimeline = createTextField(pSearchlight,[0.5 0.3 0.5 0.3],'');

347) 

348)     btnRunFBS = uicontrol(pSearchlight,'String','run Spatiotemporal FB classification',...
349)         'Units','normalized',...
350)         'Position',[0.0 0.0 1 0.3]);

351)     set(btnRunFBS,'Enable','on');

352)     

353) 
354) % button callbacks set here, because of model.
355)     set(btnRunSVM, 'Callback',{@cbRunDecode,model,'SVM'}); 
356)     set(btnRunXSVM,'Callback',{@cbRunDecode,model,'XSVM'}); 
357)     set(btnRunSOM, 'Callback',{@cbRunDecode,model,'SOM'});

358)     set(btnRunXSOM,'Callback',{@cbRunDecode,model,'XSOM'});

359)     set(btnRunFBS, 'Callback',{@cbRunDecode,model,'FBS'});

360) end
361) 

362) function model = createVisualStepPanel(model,parent)

363) 
364)     grid_h = 0.25;
365)     grid_w = 0.5;
366)     plot_grid = cell([3 3]);
367)     plot_grid{1,1} = [0.0 0.63 grid_w grid_h];
368)     plot_grid{1,2} = [0.0 0.33 grid_w grid_h];
369)     plot_grid{1,3} = [0.0 0.03 grid_w grid_h];

370)     plot_grid{2,1} = [0.25 0.63 grid_w grid_h];
371)     plot_grid{2,2} = [0.25 0.33 grid_w grid_h];
372)     plot_grid{2,3} = [0.25 0.03 grid_w grid_h];

373) 

374)     pButtonPane = uipanel(parent,'Units','normalized','Position',[0 0.5 1 0.5]);

375) %     set(pButtonPane,'Title','Plot');
376)     set(pButtonPane,'BackgroundColor','w');

377)     
378)     btnPlot03 = uicontrol(pButtonPane,'String','plot PSTH',...
379)         'Units','normalized',...
380)         'Position',cell2mat(plot_grid(2,1)));
381)     set(btnPlot03,'Callback',{@cbPlot,model,'psth'}); 
382)     set(btnPlot03,'Enable','on');
383)   

384)     btnPlot01 = uicontrol(pButtonPane,'String','plot performance and SE',...

385)         'Units','normalized',...

386)         'Position',cell2mat(plot_grid(2,2)));

387)     set(btnPlot01,'Callback',{@cbPlot,model,'simple'});

388)     set(btnPlot01,'Enable','on');

389)     
390)     btnPlot02 = uicontrol(pButtonPane,'String','plot subject performance and mean with SE',...
391)         'Units','normalized',...

392)         'Position',cell2mat(plot_grid(2,3)));

393)     set(btnPlot02,'Callback',{@cbPlot,model,'x-subject-val'});
394)     set(btnPlot02,'Enable','on');
395) 
396)     

397) end
398) 

399) %%%%% ui callbacks

400) 

401) function cbSwitchTask(src,evnt,task,taskpanel)

402) set(taskpanel.preprocessing,'Visible','off');
403) set(taskpanel.classification,'Visible','off');

404) set(taskpanel.plot,'Visible','off');

405) switch task
406)     case 'PRE'
407)         set(taskpanel.preprocessing,'Visible','on');

408) 

409)     case 'CLASSIFY'
410)         set(taskpanel.classification,'Visible','on');

411) 

412)     case 'PLOT'

413)         set(taskpanel.plot,'Visible','on');

414) end

415) % assignin('base','model',model);

416) end
417) 

418) function cbRunPreprocessing(src,evnt,model,task)

419) main(model,'pre',task);
420) end
421) 
422) function cbRunDecode(src,evnt,model,task)
423) main(model,'decode',task);

424) end
425) 

426) function cbPlot(src,evnt,model,type)
427) main(model,'plot',type);
428) end
429) 

430) %%%%%%%%%% menu callbacks

431) 

432) function mcb_save(src,evnt,model)
433) studyID = get(model.txtStudyID,'String');
434) saveStudy(studyID,model);

435) end
436) 

437) function mcb_update_subjects(src,evnt,model)
438) studyID = get(model.txtStudyID,'String');
439) baseDir = getBaseDir(model);
440) subjectNames = listDirNames(baseDir);
441) 
442) set(model.subjectSelector,'String',subjectNames);
443) set(model.subjectSelector,'UserData',subjectNames);
444) set(model.subjectSelector,'Value',1);
445) 
446) saveStudy(studyID,model);
447) end
448) 
449) function mcb_update_imagebase(src,evnt,model)
450) studyID = get(model.txtStudyID,'String');
451) 
452) subjectNames = getSubjectCellList(model);
453) imageDir = fullfile(getBaseDir(model),cell2mat(subjectNames(1)));
454) imageMask = imageMaskNames(imageDir);
455) 
456) set(model.imageTypeSelection,'String',imageMask);
457) set(model.imageTypeSelection,'UserData',imageMask);
458) set(model.imageTypeSelection,'Value',1);
459) 
460) saveStudy(studyID,model);
461) end
462) 
463) 

464) function mcb_new_study(src,evnt,studymenu,uimodel)

465) studyID = get(uimodel.txtStudyID,'String');
466) saveStudy(studyID,uimodel);
467) 

468) display('CREATE STUDY');
469)     ui_createStudy(studymenu,uimodel);

470) end
471) 
472) 
473) 

474) 

475) 
476) 
477) 
478)