VBA程序(孢子萌发法生长速率法)毒力回归线建立,EC测定.xlsVIP

Sheet3 Sheet2 Sheet1 对回归式的“显著性测定”可查“相关系数显著性测定表”。 概率水准 不同自由度（n-2）下的相关系数（r）值 即为我们试验所要求得的结果。 （在此过程中，若计算机屏幕显示对话框，则应选择并点击“启用宏”）， 如果你采用的是孢子萌发法，则应输入1， 如果你采用的是生长数率法，则应输入2， 之后，计算机屏幕依次出现对话框， 按照计算机的提示，输入相应数据后，则计算机进行计算后， 打开Excel“EC50、EC90测算”程序工作簿， 单击（程序运行命令）按钮，则程序开始运行。 计算机屏幕依次出现对话框：“请输入不同浓度药剂数据组数n=?” ； 请输入采用何种方法，孢子萌发法输入1，生长速率法输入2 ff=?。 之后，计算机屏幕依次出现对话框： 请输入采用何种方法，生长速率数据中已减去原始菌落直径法 输入3, 生长速率数据中未减原始直径法 输入4， ff=?。 如果你采用的是生长速率数据中已减去原始菌落直径方法， 则应输入3，之后，计算机屏幕依次出现对话框： 请输入对照增长后菌落直径数(已减原始直径)ck=?； 请输入第i处理组菌落直径增长数(已减去原始菌落直径)=?。 如果你采用的是生长速率数据中未减去原始菌落直径方法， 则应输入4，之后，计算机屏幕依次出现对话框， 请输入对照增长后菌落直径数(未减原始直径)ck=?； 请输入第i处理组菌落直径增长数(未减去原始菌落直径)=? 毒力回归线中的常数项a、一次项系数b、相关系数r， ey dy “EC50、EC90测算”VBA程序的应用步骤： 请输入对照组孢子萌发率(%)ck=?； 请输入第()处理组孢子萌发率(%)=?。 马上就在屏幕上显示出 农药的EC50 μg/mL ，EC90 μg/mL ，EC95 μg/mL ，等， 数据组数n x0稀释倍数 xd稀释倍数对数 对照组孢子萌发率(%) m0处理萌发率(%) 各组孢子校正死亡率(%)mj 请输入各组药剂x0(i)稀释倍数=? r a b y：几率值 EC50稀释倍数 EC50μg/ mL EC90稀释倍数 EC90μg/ mL EC95稀释倍数 EC95μg/ mL 1000.00 6.91 1.00 98.89 .99 7.91 -.12 6.91 7.19 7.10 .09 60139596515.82 1.66E-05 1082823.43 .92 50134.66 19.95 6.00 90.00 10000.00 9.21 3.00 96.67 9.21 6.84 6.83 .01 100000.00 11.51 7.00 92.22 11.51 6.43 6.56 -.13 1000000.00 13.82 10.00 88.89 13.82 6.23 6.29 -.0600 16.12 13.00 85.56 16.12 6.06 6.02 .04 100000000.00 18.42 19.00 78.89 18.42 5.80 5.75 .05 1.00 2.00 3.00 4.00 5.00 6.00 .10 .99 .90 .81 .73 .67 .62 .05 1.00 .95 .88 .81 .75 .71 .01 1.00 .99 .96 .92 .87 .83 7.00 8.00 9.00 10.00 11.00 12.00 .10 .58 .55 .52 .50 .48 .46 .05 .67 .83 .60 .58 .55 .53 .01 .80 .76 .73 .71 .68 .66