基于模糊认知图谱和遗传算法的龋齿度检测（Matlab代码实现）

💥💥💞💞欢迎来到本博客❤️❤️💥💥

🏆博主优势：🌞🌞🌞博客内容尽量做到思维缜密，逻辑清晰，为了方便读者。

⛳️座右铭：行百里者，半于九十。

目录

💥1 概述

📚2 运行结果

🎉3 参考文献

👨‍💻4 Matlab代码实现

💥1 概述

   彻底去除感染坏死的牙体组织是龋齿治疗的原则。在临床治疗中，界定细菌感染范围比较困难，一般通过组织的硬度和着色程度进行判断。有学者提出了龋蚀染色法，然而这种方法还存在着争议。日前，最广泛应用于临床判断去腐净的标准是通过医生的临床检查和经验判断，尚缺乏客观、可量化的评价方法​。本文基于模糊认知图谱和遗传算法的龋齿度检测，并用Matlab代码实现。

📚2 运行结果

 

部分代码：

maxIt = 2;
numOfPatients = 0;

for numOfPatients = 0:85
    
theCase = csvread("dataset.dat", numOfPatients, 0, [numOfPatients, 0, numOfPatients, 20]);
    
       
    coca = theCase(1);
    sweet = theCase(2);
    gums = theCase(3);
    brushFreq = theCase(4);
    brushTime = theCase(5);
    floss = theCase(6);
    fluoride = theCase(7);
    livingArea = theCase(8);
    education = theCase(9);
    parentsEdu = theCase(10);
    income = theCase(11);
    fruitAndMilk = theCase(12);
    teethSpot = theCase(13);
    calmativeDrugs = theCase(14);
    salivaryPoverty = theCase(15);
    oralBreathing = theCase(16);
    cigarette = theCase(17);
    previousCaries = theCase(18);
    familyCaries = theCase(19);
    teethDistance = theCase(20);
    saliva = 0.0;
    dentalHygiene = 0.0;
    dentalCaries = 0.0;
    knownDentalCaries = theCase(21);
    
E = csvread("weights.dat", 0, 0, [0, 0, 22, 22]);

A = [ cigarette, oralBreathing, salivaryPoverty, ...
      calmativeDrugs, teethSpot, fruitAndMilk, income, ...
      parentsEdu, education, livingArea, brushTime, floss, ...
      fluoride, brushFreq, sweet, coca, gums, previousCaries, ...
      teethDistance, familyCaries, saliva, dentalHygiene, ...
      dentalCaries];

temp = size(E);
n = temp(1,1);
   
for numOfIterations = 1:maxIt
   
        for i=1:n
            A(i) = nextState (A,E,i);
        end
    
      %disp( 'State Vector :');
      % disp(A(24));
      
end

finalConceptValue = A(23);
finalValues(numOfPatients+1) = finalConceptValue;
numberOfRecords(numOfPatients+1) = numOfPatients;

    hold on;
    x=finalValues(numOfPatients+1);
    y=numberOfRecords(numOfPatients+1);
    
    if (knownDentalCaries == 0.75)
        plot(x,y,'rs','LineWidth',5,'MarkerSize',2);
    end
    if (knownDentalCaries == 0.25)
        plot(x,y,'c*','LineWidth',5,'MarkerSize',2);
    end

end

 

🎉3 参考文献

[1]陈江浩,秦满.激光龋齿检测仪评价乳牙去腐净的体外研究[J].华西口腔医学杂志,2011,29(5):457-460

👨‍💻4 Matlab代码实现