【導(dǎo)讀】本文針對基于MATLAB的醫(yī)學(xué)圖像處理環(huán)境，對其結(jié)構(gòu)、特點及應(yīng)用做了介紹。增強，通過形態(tài)學(xué)方法進行圖像特征提取與分析，利用傅里葉變換進行圖像分析等。變得比較稀疏，處理后的圖像視覺效果得以改善。直方圖均衡化對于局部細節(jié)不顯著，而直方圖規(guī)定化則不易觀察到的細節(jié)變得清晰。編程工作，為醫(yī)學(xué)圖像處理提供了一種技術(shù)平臺。節(jié)方面好于均衡化。

　　

【正文】 Click Case 第一張 mnuViewfirst_Click End Select End Sub Private Sub mnulvjingedgetext_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() 39。啟動 ACTIVEX自動化服務(wù)器 Result = (clear) Result = (shou=clipboard(39。paste39。)。) Result = (I=imread(STR)。) Result = (g_canny=edge(I,39。canny39。,[ ],)。imshow(g_canny)) Result = (print dbitmap f1) = LoadPicture = () (close(gcf)) End Sub Private Sub mnulvjingnoisefilt_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() 39。啟動 ACTIVEX自動化服務(wù)器 Result = (clear) Result = (shou=clipboard(39。paste39。)。) Result = (I=imread(STR)。) (fn=medfilt2(I,39。symmetric39。)。imshow(fn)) Result = (print dbitmap f1) = LoadPicture = () (close(gcf)) 39。中值濾波器 End Sub Private Sub mnulvjingruihua_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() 39。啟動 ACTIVEX自動化服務(wù)器 Result = (clear) Result = (shou=clipboard(39。paste39。)。) Result = ([I,map]=imread(shou)。) (I=double(I)。[IX,IY]=gradient(I)。GM=sqrt(IX.*IX+IY.*IY)。OUT=I。J=find(GM=10)。OUT(J)=GM(J)。imshow(OUT,map)) Result = (print dbitmap f1) = LoadPicture = () (close(gcf)) End Sub Private Sub mnulvjingsmooth_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() 39。啟動 ACTIVEX自動化服務(wù)器 Result = (clear) Result = (shou=clipboard(39。paste39。)。) Result = (I=imread(STR)。) (Y=ordfilt2(I,5,ones(3,3))。imshow(Y)) Result = (print dbitmap f1) = () (close(gcf)) End Sub Private Sub mnuToolshist_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() 39。啟動 ACTIVEX自動化服務(wù)器 Result = (clear) Result = (shou=clipboard(39。paste39。)。) Result = (I=imread(shou)。) Result = (histeq(I)。) End Sub Private Sub mnuToolsshowhist_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() 39。啟動 ACTIVEX自動化服務(wù)器 Result = (clear) Result = (shou=clipboard(39。paste39。)。) Result = (I=imread(shou)。) Result = (figure。imhist(I)) End Sub Private Sub mnuToolsduibidu_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() 39。啟動 ACTIVEX自動化服務(wù)器 Result = (clear) Result = (shou=clipboard(39。paste39。)。) Result = (I=imread(shou)。) (f=im2double(I)。g=log(1+double(f))。imshow(g)) 39。對數(shù)變換 ,進行對比度拉伸處理 Result = (print dbitmap f1) = () (close(gcf)) End Sub Private Sub mnuToolsopphto_Click() Dim Result As String 39。清空 剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() 39。啟動 ACTIVEX自動化服務(wù)器 Result = (clear) Result = (shou=clipboard(39。paste39。)。) Result = (I=imread(shou)。) Result = (g=implement(I)。imshow(g)) 39。IPT函數(shù)顯示圖像負片 Result = (print dbitmap f1) = () (close(gcf)) End Sub Private Sub mnurotaoprota_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() Result = (clear) Result = (shou=clipboard(39。paste39。)。) Result = (I=imread(STR)。) (J=imrotate(I,180,39。bicubic39。)。imshow(J,[])) Result = (print dbitmap f1) = () (close(gcf)) End Sub Private Sub mnurotaleftrota_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() Result = (clear) Result = (shou=clipboard(39。paste39。)。) Result = (I=imread(shou)。) (J=imrotate(I,90,39。bicubic39。)。imshow(J,[])) Result = (print dbitmap f1) = () (close(gcf)) End Sub Private Sub mnurotarightrota_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() Result = (clear) Result = (shou=clipboard(39。paste39。)。) Result = (I=imread(shou)。) (J=imrotate(I,90,39。bicubic39。)。imshow(J,[])) Result = (print dbitmap f1) = () (close(gcf)) End Sub Private Sub mnuzoomshuoxiao_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑 寫入剪貼板 Set MATLAB = CreateObject() Result = (clear) Result = (STR=clipboard(39。paste39。)。) Result = (I=imread(shou)。) (J=imresize(I,39。bicubic39。)。imshow(J,[])) Result = (print dbitmap f1) = () (close(gcf)) End Sub Private Sub mnuzoomfangda_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板 Set MATLAB = CreateObject() Result = (clear) Result = (STR=clipboard(39。paste39。)。) Result = (I=imread(shou)。) (J=imresize(I,39。bicubic39。)。imshow(J,[])) Result = (print dbitmap f1) = () (close(gcf)) End Sub Private Sub mnuViewStatusBar_Click() = Not = End Sub Private Sub mnuViewToolbar_Click() = Not = End Sub Private Sub mnuFileExit_Click() Unload Me 39。卸載窗體 End Sub Private Sub mnuFilePrint_Click() = True On Error GoTo err_handle , 0, 0, , Exit Sub err_handle: MsgBox Exit Sub End Sub Private Sub mnuFilePageSetup_Click() On Error Resume Next With cdl .DialogTitle = 頁面設(shè)置 .CancelError = True .ShowPrinter End With End Sub Private Sub mnuFileProperties_Click() = False End Sub Private Sub mnuFileSaveAs_Click() = False = 保存 = H:\plax\photo If Then If Err 32755 Then Dim savename As String savename = SavePicture , savename End If End If End Sub Private Sub mnuFileSave_Click() = sfile savepiture , sfile End Sub Private Sub mnuFileClose_Click() = LoadPicture() End Sub Private Sub mnuFileOpen_Click() = True 39。打開圖像 On Error GoTo errhandler = cdlofhidereadonly 39。 設(shè)置標(biāo)志 = all files(*.*)|*.* = 2 39。顯示 “打開 ”對話框 = LoadPicture() Path = 39。將圖像的完整路徑賦給 path變量 Exit S