Board logo

标题: [游戏娱乐] 宗(Zung)氏抑郁/焦虑自评---心情不好来评评 [打印本页]

作者: foxJL    时间: 2013-12-3 15:35     标题: 宗(Zung)氏抑郁/焦虑自评---心情不好来评评

本帖最后由 foxJL 于 2013-12-3 18:37 编辑

宗(Zung)氏抑郁自评
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. title 宗(Zung)氏抑郁自评量 code  by foxJL
  4. color 37
  5. echo,Zung氏抑郁自评量表(SDS)由美国的Zung编制于1965年,因使用简便,应用颇广,是目前精神医学界最常用的抑郁自测量表之一。读者应根据过去一周内自身的情况作答。
  6. echo,
  7. for %%i in (
  8. 1.我觉得闷闷不乐,情绪低沉
  9. 2.我觉得一天中早晨最好
  10. 3.我一阵阵哭出来或觉得想哭
  11. 4.我晚上睡眠不好
  12. 5.我吃得跟平常一样多
  13. 6.我与异性密切接触时和以往一样感到愉快
  14. 7.我发觉我的体重在下降
  15. 8.我有便秘的苦恼
  16. 9.我心跳比平常快
  17. 10.我无缘无故地感到疲乏
  18. 11.我的头脑跟平常一样清楚
  19. 12.我觉得经常做的事情并没有困难
  20. 13.我觉得不安而平静不下来
  21. 14.我对将来抱有希望
  22. 15.我比平常容易生气激动
  23. 16.我觉得做出决定是容易的
  24. 17.我觉得自己是个有用的人,有人需要我
  25. 18.我的生活过得很有意思
  26. 19.我认为如果我死了,别人会生活得好些
  27. 20.平常感兴趣的事我仍然照样感兴趣
  28. ) do (echo,&echo,%%i&echo,
  29.   echo,1.没有    2.有时    3.经常    4.总是
  30.   set/a n+=1
  31.   echo,&set "sin="
  32.   set/p sin=输入答案[1\2\3\4]:
  33.   if "!sin!" equ "" goto QUIT
  34.   if !sin! equ 0 goto QUIT
  35.   if !sin! geq 5 goto QUIT
  36.   set "flag="
  37.   for %%j in (1 3 4 7 8 9 10 13 15 19) do (if !n! equ %%j set flag=1)
  38.   if defined flag (set /a amount+=!sin!) else (set /a amount=amount+5-!sin!)
  39.   for /l %%a in (1,1,80) do (set/p=_<nul)
  40. )
  41. set/a amount=!amount!*125
  42. echo,&echo,你的最后得分:[!amount:~0,-2!.!amount:~-2!]分
  43. echo,&echo,注意:最后得分在50分以下为正常,50-59分为轻度抑郁,60-69分为中度抑郁,70分以上为重度抑郁。
  44. echo,&echo,该量表仅仅用于抑郁症的自评提示,并不能作为诊断依据。如果自测分数较高,不一定就患上了抑郁症,可前往专业医生处咨询。
  45. pause>nul&exit
  46. :quit
  47. echo,答案错误,按任意键退出.&pause>nul&exit
复制代码
宗(Zung)氏焦虑自评
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. title 宗(Zung)氏焦虑自评量 code  by foxJL
  4. color 37
  5. echo,测试简介:“焦虑自评量表分析系统”是根据Zung于1971年编制的“焦虑自评量表(Self—Rating Anxiety Scale,SAS)改编而成。该系统集心理学、精神病学、多元统计学、人工智能、计算机网络技术于一体。准确-迅速地反映伴有焦虑倾向的被试的主观感受。为临床心理咨询、诊断、治疗以及病理心理机制的研究提供科学依据。本测验应用范围颇广,适用于各种职业、文化阶层及年龄段的正常人或各类精神病人。包括青少年病人、老年病人和神经症病人。
  6. echo,
  7. for %%i in (
  8. 1.我觉得平常容易紧张和着急
  9. 2.我无缘无故地感到害怕
  10. 3.我容易心里烦乱或觉得惊恐
  11. 4.我觉得我可能将要发疯
  12. 5.我觉得一切都很好
  13. 6.我手脚发抖打颤
  14. 7.我因为头痛、头颈痛和背痛而苦恼
  15. 8.我感觉容易衰弱和疲乏
  16. 9.我觉得心平气和,并且容易安静坐着
  17. 10.我觉得心跳得很快
  18. 11.我因为一阵阵头晕而苦恼
  19. 12.我有晕倒发作或觉得要晕倒似的
  20. 13.我吸气呼气都感到很容易
  21. 14.我手脚麻木和刺痛
  22. 15.我因为胃痛和消化不良而苦恼
  23. 16.我常常要小便
  24. 17.我的手常常是潮湿的
  25. 18.我脸红发热
  26. 19.我容易入睡并且一夜睡得很好
  27. 20.我作恶梦
  28. ) do (echo,&echo,%%i&echo,
  29.   echo,1.无或很少有   2.有时有   3.大部分时间有   4.绝大多数时间有
  30.   set/a n+=1
  31.   echo,&set "sin="
  32.   set/p sin=输入答案[1\2\3\4]:
  33.   if "!sin!" equ "" goto QUIT
  34.   if !sin! equ 0 goto QUIT
  35.   if !sin! geq 5 goto QUIT
  36.   set "flag="
  37.   for %%j in (5 9 13 19) do (if !n! equ %%j set flag=1)
  38.   if defined flag (set /a amount=amount+5-!sin!) else (set /a amount+=!sin!)
  39.   for /l %%a in (1,1,80) do (set/p=_<nul)
  40. )
  41. echo,&echo,你的最后得分:[!amount!]分
  42. echo,&echo,注意:20以下分完全镇定,20-35分适度焦虑,35-40分中度焦虑,40-80分严重焦虑。
  43. echo,&echo,该量表仅仅用于焦虑症的自评提示,并不能作为诊断依据。如果自测分数较高,不一定就患上了焦虑症,可前往专业医生处咨询。
  44. pause>nul&exit
  45. :quit
  46. echo,答案错误,按任意键退出.&pause>nul&exit
复制代码

作者: plp626    时间: 2013-12-3 23:42

50分,40分,看来我中度焦虑




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2