Check-COVID-19

2019新型冠状病毒肺炎（COVID-19）感染风险自助检测程序

这是一个Scheme语言学习实例程序,也是一个简单的专家系统示例.

项目源码地址：https://github.com/bluedoctor/Check-COVID-19 本程序的设计方案以及对于源码的说明，请参考作者的博客文章：Scheme语言实例入门--怎样写一个“新型冠状病毒感染风险检测程序”

; 2019新型冠状病毒肺炎（COVID-19）感染风险自助检测程序
(define A1 (list "发热" (cons "三天内" 5) (cons "三天到一周" 10) (cons "超过一周" 15)))
(define A2 (list "咳嗽" (cons "无痰" 15) (cons "有痰难吐" 10) (cons "有痰易吐" -10)))
(define A3 (list "乏力" (cons "无" -15) (cons "轻微" 15) (cons "明显" 30)))
(define A4 (list "腹泻" (cons "无" 0) (cons "轻微" 10) (cons "明显" 5)))
(define A5 (list "呼吸困难" (cons "无" 0) (cons "略感胸闷" 15) (cons "明显" 30)))

上面是使用Scheme语言表示的新冠肺炎诊断知识库，用“特征-属性-值”的三元知识表示形式，对应的是 症状-属性-风险值。

根据上面定义诊断知识编写程序，交互式的引导用户回答提问，最后给出诊断结果。 你也可以调整这里定义的风险值，以使它更接近实际的效果。

使用方法：

双击当前目录中的批处理文件 2019-nCovTest.bat

即可打开Scheme程序运行源码 check-2019-nCov.ss

关于Scheme版本：

这是Chez Scheme版本是 9.5.3 64位版本，如果你需要运行32位版本或者一个简单的Scheme环境，可以从下面地址获取Scheme: https://scheme.com/download/pcsv84.exe 更多信息，请参考： https://cisco.github.io/ChezScheme/#get

你也可以参考下面的文章，自己进行编译。 Windows下编译最新版ChezScheme

---

下面是程序运行的示意结果：

···text

```**    注意：本程序仅为演示Scheme计算机语言编程使用       **
```---------作者：深蓝医生 2020-4-5..9  ----------------------
```---------http://www.cnblogs.com/bluedoctor  ---------------


 一、开始身体症状测试 ：
1,您最近是否有【发热】的情况?(如果有，请输入数字1；否则输入其它字符以跳过此项检测。)
1
发热的具体情况是：1,三天内 2,三天到一周 3,超过一周
请输入你选择的答案对应的数字:1
您当前选择的情况风险值是：5

2,您最近是否有【咳嗽】的情况?(如果有，请输入数字1；否则输入其它字符以跳过此项检测。)
1
咳嗽的具体情况是：1,无痰 2,有痰难吐 3,有痰易吐
请输入你选择的答案对应的数字:1
您当前选择的情况风险值是：15

3,您最近是否有【乏力】的情况?(如果有，请输入数字1；否则输入其它字符以跳过此项检测。)
1
乏力的具体情况是：1,无 2,轻微 3,明显
请输入你选择的答案对应的数字:1
您当前选择的情况风险值是：-15

4,您最近是否有【腹泻】的情况?(如果有，请输入数字1；否则输入其它字符以跳过此项检测。)
1
腹泻的具体情况是：1,无 2,轻微 3,明显
请输入你选择的答案对应的数字:1
您当前选择的情况风险值是：0

5,您最近是否有【呼吸困难】的情况?(如果有，请输入数字1；否则输入其它字符以跳过此项检测。)
1
呼吸困难的具体情况是：1,无 2,略感胸闷 3,明显
请输入你选择的答案对应的数字:1
您当前选择的情况风险值是：0

初步诊断详细内容：((发热 三天内 5) (咳嗽 无痰 15) (乏力 无 -15) (腹泻 无 0) (呼吸困难 无 0))

 二、开始进行【医院检测结果】分析 ：
1,您最近是否有【胸部CT】的情况?(如果有，请输入数字1；否则输入其它字符以跳过此项检测。)
1
胸部CT的具体情况是：1,正常/未检测 2,肺部毛玻璃样 3,其它情况
请输入你选择的答案对应的数字:1
您当前选择的情况风险值是：1

2,您最近是否有【病毒核酸检测】的情况?(如果有，请输入数字1；否则输入其它字符以跳过此项检测。)
1
病毒核酸检测的具体情况是：1,未检测 2,阳性 3,阴性
请输入你选择的答案对应的数字:1
您当前选择的情况风险值是：5

3,您最近是否有【白细胞计数】的情况?(如果有，请输入数字1；否则输入其它字符以跳过此项检测。)
1
白细胞计数的具体情况是：1,正常/未检测 2,偏低 3,增高
请输入你选择的答案对应的数字:1
您当前选择的情况风险值是：1

 三、开始进行【流行病学调查】分析 ：
1）最近14天，您是否去过 国内重点疫区？（0-未去过，1-湖北省，2-湖北省外）
请输入你选择的答案对应的数字:1

2）最近14天，您是否去过 重点疫区国家？（0-未去过，1-意大利、西班牙，2-欧洲其它地方，3-美国，4-世界其它地方）
请输入你选择的答案对应的数字:1

3）最近14天，您是否与确诊患者有过密切接触？（0-否，1-是，2-不清楚）
请输入你选择的答案对应的数字:1

4）最近14天，您是否与与确诊患者密接者有接触？（0-否，1-是，2-不清楚）
请输入你选择的答案对应的数字:1

5）最近14天，您是否与确诊患者同乘交通工具？（0-否，1-是，2-不清楚）
请输入你选择的答案对应的数字:1

--流调分析结束--
========================================
您患 COVID-19 的整体风险检测概率是：212%
========================================
Test...ok
```text

申明

本程序仅用于学习研究，不得用于商业用途，违者必究。

本程序不能作为真实的诊断依据和诊断结论，由此发生的一切后果均与本程序和原作者无关！

Copyright ©2020-2024 bluedoctor.