东北石油大学计算方法上机实验 答案

PAGE

PAGE

8

螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄袂膈蚅薄肈肄蚄螆袀蒂蚃衿膆莈蚂羁罿芄蚁蚁膄膀蚀螃羇葿蝿袅膂莅蝿羈羅芁螈蚇膁膇莄袀羄膃莃羂艿蒁莃蚂肂莇莂螄芇芃莁袆肀腿莀羈袃蒈葿蚈肈莄蒈螀袁芀蒇羃肇芆蒇蚂羀膂蒆螅膅蒁蒅袇羈莇蒄罿膃芃蒃虿羆腿薂螁膂肄薁袄羄莃薁薃膀荿薀螆肃芅蕿袈芈膁薈羀肁蒀薇蚀袄莆蚆螂聿节蚅袄

实验一

1.

PrivateFunctionf(x!)

f=x^3-2*x^2-4*x-7

EndFunction

PrivateSubform_click()

Dima!,b!,x!,c!

a=3:b=4

DoWhileAbs(b-a)>0.00001

c=(a+b)/2

Iff(c)=0Then

ExitDo

Else

Iff(a)*f(c)<0Then

b=c

Else

a=c

EndIf

EndIf

Loop

Printc

EndSub

1.(对1题进行修改后，要求输入隔根区间的上下界就能求出根的程序）

PrivateFunctionf(x!)

f=x^3-2*x^2-4*x-7

EndFunction

PrivateFunctiong(a!,b!)

Dimy!

DoWhileAbs(b-a)>0.00001

y=(a+b)/2

Iff(y)=0Then

ExitDo

Else

Iff(a)*f(y)<0Then

b=y

Else

a=y

EndIf

EndIf

Loop

g=y

EndFunction

PrivateSubform_click()

Dima!,b!

a=InputBox("输入隔根区间上界")

b=InputBox("输入隔根区间下界")

c=g(a,b)

Printc

EndSub

2.

PrivateFunctionf(x!)

f=x^4-5*x^2+x+2

EndFunction

PrivateSubform_click()

Dima!,b!,c!,h!,x!,i%,j%,p(0To4)AsSingle,q(0To4)AsSingle

a=-6:b=6:h=0.3

x=a

i=0

Forj=0To100

Iff(x)*f(x+h)<=0Then

p(i)=x

q(i)=x+h

Print"[";p(i);",";q(i);"]"

i=i+1

EndIf

j=j+1

x=x+h

Next

Print"实根分别为："

Fori=0To3

a=p(i)

b=q(i)

DoWhileAbs(b-a)>0.00001

c=(a+b)/2

Iff(c)=0Then

ExitDo

Else

Iff(a)*f(c)<0Then

b=c

Else

a=c

EndIf

EndIf

Loop

Print"root=";c

Next

EndSub

(h取值使得划分的隔根区间避开根所在得区间上下界）

3.

PrivateSubform_click()

Dima(0To20)AsSingle,yAsSingle,xAsSingle

DimiAsInteger,nAsInteger

n=InputBox("输入多项式的次数")

Fori=0Ton

a(i)=InputBox("输入a("&Str(i)&")")

Nexti

x=InputBox("输入x")

y=a(n)

Fori=1Ton

y=y*x+a(n-i)

Nexti

Printy

EndSub

实验二

1.(1)

PrivateSubform_click()

Dimx0AsSingle,x1AsSingle

DimMAsInteger

x1=2:M=5:k=1

Do

x0=x1

x1=x0-(x0^3-x0^2-2*x0-3)/(3*x0^2-2*x0-2)

k=k+1

LoopWhilek<MAndAbs(x1-x0)>0.00001

Printx1

EndSub

(2)

PrivateSubform_click()

Dimx0AsSingle,x1AsSingle

DimMAsInteger

x1=1:M=6:k=1

Do

x0=x1

x1=x0-(x0-Sin(x0)-0.5)/(1-Cos(x0))

k=k+1

LoopWhilek<MAndAbs(x1-x0)>0.00001

Printx1

EndSub

2

PrivateSubform_click()

Dimx0AsSingle,x1AsSingle

DimaAsInteger

a=InputBox("输入a")

Ifa=0Then

Print"a的立方根=0"

End

EndIf

x1=a

Do

x0=x1

x1=x0-(x0^3-a)/(3*x0^2)

LoopWhileAbs(x1-x0)>0.000005

Print"a的立方根为：";x1

EndSub

3.

PrivateSubform_click()

Dimx0AsSingle,x1AsSingle,x2AsSingle

DimMAsInteger

x1=0:x2=1:M=6:k=1

Do

x0=x1

x1=x2

x2=x1-(f(x1)*(x1-x0)/(f(x1)-f(x0)))

k=k+1

LoopWhilek<MAndAbs(x1-x0)>0.0001

Printx1

EndSub

PrivateFunctionf(x!)

f=x+Sin(x)-1

EndFunction

4.

PrivateSubform_click()

Dimx#,x1#

x1=1

Do

x=x1

x1=x-(x-Exp(-x))/(1+Exp(-x))

LoopWhileAbs(x1-x)>=10^(-5)

Print"a的立方根为：";x1

EndSub

实验三

1.按列选主元德高斯消去法解线性方程组的通用程序

OptionBase1

PrivateSubForm_Click()

Dima(1To3,1To4)AsSingle,t#,i!,j!,k!,r!,l#,x(1To3)AsSingle

Fori=1To3

Forj=1To4

a(i,j)=InputBox("输入一个数")

Printa(i,j);

Nextj

Print

Nexti

Fork=1To2

r=k

Fori=k+1To3

IfAbs(a(i,k))>Abs(a(r,k))Thenr=i

Nexti

Ifr<>kThen

Fori=1To4

t=a(k,i)

a(k,i)=a(r,i)

a(r,i)=t

Nexti

EndIf

Fori=k+1To3

l=a(i,k)/a(k,k)

Forj=k+1To4

a(i,j)=a(i,j)-l*a(k,j)

Nextj

Nexti

Nextk

Fork=3To1Step-1

s=0

Forj=k+1To3

s=s+a(k,j)*x(j)

Nextj

x(k)=(a(k,4)-s)/a(k,k)

Nextk

Fori=1To3

Printx(i),

Nexti

EndSub

3.用LU分解法解线性方程组

PrivateSubform_click()

Constn=4

Dima(1Ton,1Ton)AsSingle,l(1Ton,1Ton)AsSingle,u(1Ton,1Ton)AsSingle

Dimx(1Ton)AsSingle,y(1Ton)AsSingle,b(1Ton)AsSingle,s#,i!,j!,k!,r!

Fori=1Ton

Forj=1Ton

a(i,j)=InputBox("输入a数组")

Printa(i,j),

Nextj

Print

Nexti

Fori=1Ton

b(i)=InputBox("输入b数组")

Printb(i),

Nexti

Print

Fork=1Ton

Forj=kTon

s=0

Forr=1Tok-1

s=s+l(k,r)*u(r,j)

Nextr

u(k,j)=a(k,j)-s

Nextj

Fori=k+1Ton

s=0

Forr=1Tok-1

s=s+l(i,r)*u(r,k)

Nextr

l(i,k)=(a(i,k)-s)/u(k,k)

Nexti

Nextk

Fori=1Ton

s=0

Fork=1Toi-1

s=s+l(i,k)*y(k)

Nextk

y(i)=b(i)-s

Nexti

Fori=nTo1Step-1

s=0

Fork=i+1Ton

s=s+(u(i,k)*x(k))

Nextk

x(i)=(y(i)-s)/u(i,i)

Nexti

Fori=1Ton

Printx(i)

Nexti

EndSub

实验四

5.

雅克比迭代

OptionBase1

Functioncha(x!(),y!())AsSingle

DimzAsSingle,iAsSingle,kAsInteger

n=3

z=Abs(x(1)-y(1))

Fori=2Ton

Ifz<Abs(x(i)-y(i))Thenz=Abs(x(i)-y(i))

Nexti

cha=z

EndFunction

PrivateSubform_click()

Dima1,x(3)AsSingle,y(3)AsSingle

DimtAsSingle,sAsSingle,a(3,3)AsSingle

DimiAsInteger,jAsInteger,kAsInteger,nAsInteger

n=3

a1=Array(10,-2,-1,-2,10,-1,-1,-2,5)

b=Array(3,15,10)

Fori=1Ton:y(i)=0:Nexti

k=1

Fori=1To3

Forj=1To3

a(i,j)=a1(k)

k=k+1

Nextj,i

Fork=1To30

Fori=1Ton

x(i)=y(i)

Nexti

Fori=1Ton

t=0

Forj=1Ton

Ifi<>jThent=t+a(i,j)*x(j)

Nextj

y(i)=(b(i)-t)/a(i,i)

Nexti

Ifcha(x,y)<0.000000000001Then

Printk;

Fori=1Ton

Printy(i);

Nexti

ExitFor

EndIf

Nextk

Ifk>30ThenPrint"发散"

EndSub

运行结果“19123”

Function函数是用来求（max|y（i）-x（i）|）

高斯—赛德尔迭代

OptionBase1

Functioncha(x!(),y!())AsSingle

DimzAsSingle,iAsSingle,kAsInteger

n=3

z=Abs(x(1)-y(1))

Fori=2Ton

Ifz<Abs(x(i)-y(i))Thenz=Abs(x(i)-y(i))

Nexti

cha=z

EndFunction

PrivateSubform_click()

Dima1,x(3)AsSingle,y(3)AsSingle

DimtAsSingle,sAsSingle,a(3,3)AsSingle

DimiAsInteger,jAsInteger,kAsInteger,nAsInteger

n=3

a1=Array(10,-2,-1,-2,10,-1,-1,-2,5)

b=Array(3,15,10)

Fori=1Ton:x(i)=0:Nexti

k=1

Fori=1To3

Forj=1To3

a(i,j)=a1(k)

k=k+1

Nextj,i

Fork=1To30

Fori=1Ton

y(i)=x(i)

Nexti

Fori=1Ton

t=0

Forj=1Ton

Ifi<>jThent=t+a(i,j)*x(j)

Nextj

x(i)=(b(i)-t)/a(i,i)

Nexti

Ifcha(x,y)<0.000000000001Then

Printk;

Fori=1Ton

Printx(i);

Nexti

ExitFor

EndIf

Nextk

Ifk>30ThenPrint"发散"

EndSub

运行结果“11123”

注意比较雅克比迭代、高斯—赛德尔迭代程序中“涂灰部分的区别”

实验五

3.拉格朗日插值多项式

PrivateSubForm_click()

Constn=3

Dimp#,s!

Dimx,yAsVariant

x=Array(1,2,3,4)

y=Array(4,5,14,37)

t=InputBox("inputt")

p=0

Fork=0Ton

s=1

Fori=0Ton

Ifi<>kThen

s=s*((t-x(i))/(x(k)-x(i)))

EndIf

Nexti

p=p+y(k)*s

Nextk

Printp

EndSub

运行结果（t=3.5）：23.375

Vb牛顿基本插值公式程序

PrivateSubForm_click()

Constn=5

Dimx(n)AsSingle,y(n)AsSingle,t#,p#,s#

Fori=0Ton

x(i)=InputBox("inputx"&Trim(Str(i)))

y(i)=InputBox("inputy"&Trim(Str(i)))

Nexti

t=InputBox("inputt")

Fork=1Ton

Fori=nTokStep-1

y(i)=(y(i)-y(i-1))/(x(i)-x(i-k))

Nexti

Nextk

p=y(0)

h=1

Fori=1Ton

h=h*(t-x(i-1))

p=p+h*y(i)

Nexti

Print"p=";p

EndSub

i

1

2

3

4

5

6

x(i)

1

3

4

5

2

6

Y(i)

2

10

17

26

5

37

运行结果（t=3.5）：13.25

实验六

曲线拟合

PrivateSubform_click()

Diml#,m#,n#,i%,j%,k%,t1#

DimxAsVariant,yAsVariant

n=7

m=2

x=Array(0,1,2,3,4,5,6,7)

y=Array(0,5,3,2,1,2,4,7)

ReDima(0Tom,0Tom+1)AsSingle,t(n)AsSingle

Fori=0Tom

s=0

Fork=1Ton

s=s+(x(k)^i)*y(k)

Nextk

a(i,m+1)=s

Forj=0Tom

s=0

Fork=1Ton

s=s+(x(k))^(i+j)

Nextk

a(i,j)=s

Nextj

Nexti

Fori=0Tom

Forj=0Tom+1

Printa(i,j),

Nextj

Print

Nexti

Fork=0Tom

r=k

Fori=k+1Tom

IfAbs(a(i,k))>Abs(a(r,k))Then

r=i

EndIf

Nexti

Ifr<>kThen

Fori=0Tom+1

t1=a(k,i)

a(k,i)=a(r,i)

a(r,i)=t1

Nexti

EndIf

l=1

Fori=k+1Tom

l=a(i,k)/a(k,k)

Forj=k+1Tom+1

a(i,j)=a(i,j)-l*a(k,j)

Nextj

Nexti

Nextk

Fork=mTo0Step-1

s=0

Forj=k+1Tom

s=s+a(k,j)*t(j)注意此处

Nextj

t(k)=(a(k,m+1)-s)/a(k,k)

Nextk

Print"y=";t(0);

Fori=1Tom

Ift(i)>=0ThenPrint"+";

Printt(i);"*x^";i;

Nexti

EndSub

运行结果

实验七

1.编制变步长的梯形公式求数值积分的通用程序，试算积分为【积分下限为0，积分上限为1，被积函数为：1/（1+x*x）】当精度要求为0.00001时，计算结果为0.7853956.

PrivateSubform_click()

DimaAsSingle,bAsSingle,epsAsSingle,sAsSingle

DimxAsSingle,hAsSingle,t1AsSingle,tAsSingle

a=InputBox("输入积分下限a")

b=InputBox("输入积分上限b")

eps=InputBox("输入精度要求eps")

h=b-a

t2=(h/2)*(f(a)+f(b))

Do

t1=t2

s=0

Forx=a+h/2TobSteph

s=s+f(x)

Nextx

t2=t1/2+(h/2)*s

h=h/2

LoopWhileAbs(t1-t2)>eps

Print"积分的近似值：";t2

EndSub

Functionf(xAsSingle)AsSingle

f=1/(1+x*x)

EndFunction

2.

复合Simpson公式求积分的通用程序，设N=8，试算例题为

积分下限为0，积分上限为1，被积函数为：1/（1+x*x），运行结果为0.785398

PrivateSubform_click()

DimaAsSingle,bAsSingle,epsAsSingle,sAsSingle

DimxAsSingle,hAsSingle,NAsSingle

a=InputBox("输入积分下限a")

b=InputBox("输入积分上限b")

N=8

h=(b-a)/(2*N)

s=f(a)

x=a

Fori=1ToN

x=x+h

s=s+4*f(x)

x=x+h

s=s+2*f(x)

Nexti

s=(h/3)*(s-f(b))

Prints

EndSub

Functionf(xAsSingle)AsSingle

f=1/(1+x*x)

EndFunction

3.编制龙贝格积分公式求数值积分的通用程序，试算积分为【积分下限为0，积分上限为1，被积函数为：x*x*Exp(x)】当精度要求为0.00001时，计算结果为0.7182818

Functionf!(x!)

f=x*x*Exp(x)

EndFunction

PrivateSubform_click()

Dima!,b!,h!,eps!,s!,t!(10,10)

Dimi%,j%,k%

a=InputBox("输入积分下限")

b=InputBox("输入积分上限")

eps=InputBox("输入精度要求")

k=0

h=b-a

t(0,0)=(h/2)*(f(a)+f(b))

Do

k=k+1

h=h/2

s=0

Forj=1To2^(k-1)

s=s+f(a+(2*j-1)*h)

Nextj

t(k,0)=t(k-1,0)/2+h*s

Fori=1Tok

j=k-i

t(j,i)=(4^i*t(j+1,i-1)-t(j,i-1))/(4^i-1)

Nexti

LoopUntilAbs(t(0,k)-t(0,k-1))<eps

Print"I=";t(0,k)

EndSub

蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇袅肇蒁蚀蚇羃蒀荿袃罿葿薂螆芈蒈蚄羁膄蒇螆螄肀蒇蒆羀羆薆薈螂芄薅蚁羈膀薄螃螁肆薃薃羆肂膀蚅衿羈腿螇肄芇膈蒇袇膃膇蕿肃聿膆蚁袅羅芅螄蚈芃芄蒃袄腿芄蚆蚇膅芃螈羂肁节蒈螅羇芁薀羀芆芀蚂螃膂艿螅罿肈莈蒄螁羄莈薇羇袀莇蝿螀芈莆葿肅膄莅薁袈肀莄蚃肄羆莃螅袆芅蒂蒅虿膁蒂薇