НАХОЖДЕНИЕ ВСЕХ ДЕЙСТВИТЕЛЬНЫХ КОРНЕЙ АЛГЕБРАИЧЕСКОГО МНОГОЧЛЕНА МЕТОДОМ ДЕЛЕНИЯ ОТРЕЗКА ПОПОЛАМ (БИСЕКЦИИ) И МЕТОДОМ ХОРД И КАСАТЕЛЬНЫХ С УКАЗАННОЙ ТОЧНОСТЬЮ И УЧЕТОМ ВОЗМОЖНОЙ КРАТНОСТИ КОРНЕЙ

ﾍﾀﾕﾎﾆﾄﾅﾍﾈﾅ ﾂﾑﾅﾕ ﾄﾅﾉﾑﾒﾂﾈﾒﾅﾋﾜﾍﾛﾕ ﾊﾎﾐﾍﾅﾉ ﾀﾋﾃﾅﾁﾐﾀﾈﾗﾅﾑﾊﾎﾃﾎ ﾌﾍﾎﾃﾎﾗﾋﾅﾍﾀ ﾌﾅﾒﾎﾄﾎﾌ ﾄﾅﾋﾅﾍﾈﾟ ﾎﾒﾐﾅﾇﾊﾀ ﾏﾎﾏﾎﾋﾀﾌ (ﾁﾈﾑﾅﾊﾖﾈﾈ) ﾈ ﾌﾅﾒﾎﾄﾎﾌ ﾕﾎﾐﾄ ﾈ ﾊﾀﾑﾀﾒﾅﾋﾜﾍﾛﾕ ﾑ ﾓﾊﾀﾇﾀﾍﾍﾎﾉ ﾒﾎﾗﾍﾎﾑﾒﾜﾞ ﾈ ﾓﾗﾅﾒﾎﾌ ﾂﾎﾇﾌﾎﾆﾍﾎﾉ ﾊﾐﾀﾒﾍﾎﾑﾒﾈ ﾊﾎﾐﾍﾅﾉ

ﾔ裝褞琿・・ ﾀ粨璋韶澵・ ﾑ・趁・ﾐⅲ・/b>

ﾌﾎﾑﾊﾎﾂﾑﾊﾈﾉ ﾃﾎﾑﾓﾄﾀﾐﾑﾒﾂﾅﾍﾍﾛﾉ ﾒﾅﾕﾍﾈﾗﾅﾑﾊﾈﾉ ﾓﾍﾈﾂﾅﾐﾑﾈﾒﾅﾒ ﾃﾐﾀﾆﾄﾀﾍﾑﾊﾎﾉ ﾀﾂﾈﾀﾖﾈﾈ

 

ﾊ瑶裝 ・韭・蓖鵫 ・・・

 

ﾊ籵 碚 鈞浯 

・ⅷ褊・・_________________.

.__________________________.

ﾐ魵鮏頸褄・/b>

蒡炅, ・・・ ﾋ竟・ﾎ. ﾏ.

.__________________________.

・蔡頌・/i>

ﾊﾓﾐﾑﾎﾂﾀﾟ ﾐﾀﾁﾎﾒﾀ

・ ・

 

ﾍﾀﾕﾎﾆﾄﾅﾍﾈﾅ ﾂﾑﾅﾕ ﾄﾅﾉﾑﾒﾂﾈﾒﾅﾋﾜﾍﾛﾕ ﾊﾎﾐﾍﾅﾉ ﾀﾋﾃﾅﾁﾐﾀﾈﾗﾅﾑﾊﾎﾃﾎ ﾌﾍﾎﾃﾎﾗﾋﾅﾍﾀ ﾌﾅﾒﾎﾄﾎﾌ ﾄﾅﾋﾅﾍﾈﾟ ﾎﾒﾐﾅﾇﾊﾀ ﾏﾎﾏﾎﾋﾀﾌ (ﾁﾈﾑﾅﾊﾖﾈﾈ) ﾈ ﾌﾅﾒﾎﾄﾎﾌ ﾕﾎﾐﾄ ﾈ ﾊﾀﾑﾀﾒﾅﾋﾜﾍﾛﾕ ﾑ ﾓﾊﾀﾇﾀﾍﾍﾎﾉ ﾒﾎﾗﾍﾎﾑﾒﾜﾞ ﾈ ﾓﾗﾅﾒﾎﾌ ﾂﾎﾇﾌﾎﾆﾍﾎﾉ ﾊﾐﾀﾒﾍﾎﾑﾒﾈ ﾊﾎﾐﾍﾅﾉ

(ﾏ・頸褄・・ 鈞・・・ ・魵鵫 碚 ・ 蒻韵・淲 ｫﾗ頌・澵鐱 ・蕘ｻ)

 ﾐ珮ⅳ 糺・・齏・/b>

 褊 5-胛 ・・/b>

 褻鞨・濵・ 01.02

 ﾊ鰀・・ ﾑ褞肄・ﾀ・・瑙蓿魵顆

 /ﾊ鰀・・ ﾑ.ﾀ./------------------------.

 ﾑ褌褊・ ﾂ・蒻・・ﾂ・蒻・粨・/b>

 /ﾑ褌褊・ ﾂ.ﾂ./------------------------.



 28.X/1999 胛萵.



ﾌﾎﾑﾊﾂﾀ - 1999

ﾀﾍﾍﾎﾒﾀﾖﾈﾟ

 

ﾂ 萵澵鵫 ・魵鵫 碚 ・褊 ・竟・浯趾褊・ ・裨 琿肄碣琲魲・・魲ⅸ・浯 裝・・ 褊燾・ ・萵・: ・・礪・韋, ・・ ・・・燾・ ・・鉈鮻褊・ 浯 ・鮻頸褄・・褪黑 ⅰ蒟・褌鵫 ⅲ ・・魵褞・ ・瑣濵・・裨, ・・・・裝・Visual Basic for Applications 6.0 磊・ 銜珮ⅳ瑙・・魲・・ 琿韈・ ・・頌・・・魵褞・. ﾂ ・頸褄・鵫 鈞・・・鞣鮏頸・ ⅰ頌瑙韃 ・・・・ 褊燾・・蒡・ ・・・魲・・ 粲・ ・韲褞・・ｫ・瑙燾・・・霆.

1.  ﾒﾅﾕﾍﾈﾗﾅﾑﾊﾎﾅ ﾇﾀﾄﾀﾍﾈﾅ

ﾐ珸碚 ・魲・・蓁 糺褊・ ・裨 琿肄碣琲魲・・魲ⅸ・浯 裝・・ 褊燾・ ・萵・ : ・蒡・ ・・粨澵魲・蒟・湜, ・蒡・ ・・・燾・ ・蒡・鉈鮻褊・ 浯 ・鮻頸褄・ ・・・髜褥・ 糺褊韃 鈿璞褊韜 ・裨 ・珸鏆瑯・・ ⅲ ・・魵褞・ ・瑣濵・・裨. ﾑ萵 銜珮ⅳ・ ・魲・・・・鵰鈔鸙・・.

2.   ﾏﾐﾅﾄﾌﾅﾒﾍﾀﾟ ﾎﾁﾋﾀﾑﾒﾜ

 

2.1. ﾎ・湜・褊燾・・蒡・/b>

ﾗ頌・澵鐱 ・蕘 ・鈔鸙・浯鶯・湜 ⅰ蒟・澵顥 鈞萵・ 鈞淲・鈿・, ・・・澵鐱 銛・ 碯蔘・糺褊・・ ⅰ蒟・澵鵫 ・胙褸濵・, ・・ 蓁 ・魲頷 褊燾・・蒡・淲髜蒻・ 鈞淲・ 鈿瑣・ｫ魵褊・ⅲｻ, ・・ 碯蒟・ⅳ粢魵瑣・・・澵鮱 湜・

ﾂ ・鉅 鈞萵 浯趾褊・ ・裨 ・魲ⅸ・浯 粨萵 (1)

 

F(x)=a0+a1x+a2x2+・anxn  (1)

・裝珞・褪 ⅲ髜隆 竟・ ・・ ・浯趾褊・ ・裨 萵趺 ・礪魲・珞淲湜 蒡瑣ⅸ濵 鮻燾, ・褥・ 淲髜蒻・ ⅳ靏・ ・・ ・魲ⅸ・浯, 襃褊・・胛 粹・ 浯・韲褞, 5 ・ 砒・・・ 褊燾・ ・蒡・淲 髜鵫, ・碚・, ・粢ⅲ 浯・ ・・胛 ・魲ⅸ・浯 浯・燾・(齏・・・ 齏・顥 ・裨 ・・ｫ・鵫ｻ 蓿髜濵・・) 蒡粽・濵 ・・, ・ 蓁 浯趾褊・ ・裨 珞淲湜 襃褊・ ・裘餧・・4, 淲 糒褪.[1] ﾄ・・・糂・萵・淲鵁韃 ⅰ褞璋韋 碯蔘・鮏頸・ ・ ・ⅸ淲湜 ・裨, 竟琿・・・・鞦・鉅・濵 韈粢燾 鈞淲・ ﾏ 糂裙・ ｫ・鞦・鉅・燾蟒 ・・浯蒻, 頌・・銛 胙瑶顆褥・・・蕘.

ﾄ・ 浯趾褊・ ・裨 ・魲ⅸ・浯 糒褪 淲鸙・・褊燾・・蒡・ 濵 ・ ⅲ濵粨・ 浯 ・韈 湜・ ・蒟 頸褞璋韜, ・蒟  ・・・燾・・・蒟 ・・粨澵魲・蒟・湜. 

2.2.1. ﾌ褪鮏  ・・・燾・ (・・竟頏魵瑙燾・

ﾄ瑙燾・・・ⅲ濵籵・浯 ・褊韋 褌瑣顆褥・胛 胙瑶韭・渼・ ⅰ蒟・湜・竟琿魵 裙・・湜 ・ⅲ・ 珮頌・・・裝・・ｫ瑣韃・ 胛 竟琿・・・・・ 韲顥  ・・・燾・ ・胙瑶韭・・渼・ 

ﾍ琅・ⅳ・, ・糒・・・ ⅳ蒟・濵 ・・ (萵褪 鈿璞褊韃 ・ ・淲蒡瑣・・ ・・・・・燾・(・ 韈磊黑). ﾎ蓖瑕・・裴・粽 ・・竟頏魵瑙濵胛 ・萵 鈞・褪・ ・ ｫ葢澵褌 瑣韋ｻ ・鞣瑯・胛 ⅳ鉤・

ﾐ瑰ⅳ・裝・・琺:

-     萵浯 渼 F(x) ・・褊 裹 胙瑶韭;

-     ⅰ蒟・浯 蒡・韲・ ・胙褸濵・Q

-     








浯 ⅲ濵籵湜・胙瑶韭・ⅰ蒟・・ ⅳ鉋・[a,b], 浯 ・黑 胙瑶韭 渼・・・褪 ⅲ・珮頌・ 裝魵瑣褄・・ 浯 ・ⅳ鉤・

 ・1

-     糒褪 ・犱 ・鞣瑯・胛 ・魲ⅸ・浯. (髜鰀浯・裙・・A) 

ﾄ琿・裨・琿胛 鮏頸・ ・裝・・ 蒟鴦・・

1.   韲 ・・炫 ・胙瑶韭・渼・ ・・F(b)

2.   糺褌 ・ⅱ蒻浯 ・・湜 ・・濵・・ⅲ・ 珮頌・・ ・(3) ・髜鰀浯褌 裹 ・b・/p> 

3.   韲 ・胙瑶韭・ 渼・・ ・ⅶ鮏 ・・F(a) ・F(b). 

4.   ﾂ飼頌・褌 ・ ・湜 ・・ⅲ・ 珮頌・・ ・(2) ・髜鰀浯褌 裹 ・a'.

a・a- Da , 聿・/b>  (2)

b・b- Db , 聿・/b>   (3)

ﾒ瑕韲 髜鉋・・ ・・褌 濵糺・ ⅳ鉋・[a・, b綻, ・＇・(・ ⅰ蒟・湜・ ・・・・濵・ ・-・褂淲・ 蒟・湜・珞淲湜 A. 

5.   ﾒ襃褞・・竟韲瑯・ ⅳ鉋・ [a・b綻 鈞 濵糺・ⅳ鉋・ [a,b] ・・糘ⅱ褌 肛 1-4 蒡 ・・・ ・・ 鈿ⅲ F(b)-F(a) 淲 瑙褪 ・犱 ・・璞琿・・ 鈞・趺澵鵫 ・胙褸濵・Q. ﾎ褪韲 ・・ ・・・胛 ・・淸 ・・粢 頌・・胛 湜 粡 裝淲・瑩頡・鮱 F(a) ・ F(b).

ﾇ瑟褶瑙韃 ・・蔘  ・ ・・燾・ ﾂ ・褊濵・瑯 ・鵰鈔鮏浯 F・x)>0, ・・ 胙瑶韭 ｫ糺・・隆ｻ ・b>a. ﾏ 碚 ・・趾隯 ⅳ蒟・燾・瑯・淲髜蒻・ 浯蒻 ・鵰鈔鮏燾・渼・ ・魲・・糘ⅱ魲・・・蓐魵 ・ 髜銛 ・裹 鈿瑕黑, ⅰ蒟・ a ・b.

ﾂ鰀・跫・ ・:



















  y  y



























 F(x)  F(x) 



















  x  x 

 ・ ・



















 y  y 

 

 F(x)  F(x) 

































 x  x   ・ ・

・ F・x) < 0

 F鋳(x) > 0

・ F・x) > 0 

 F鋳(x) > 0

・ F・x) < 0

 F鋳(x) < 0

・ F・x) > 0

 F鋳(x) < 0

 

ﾑ・・

ﾑ・・・・燾・/b>

F・x)F鋳(x) > 0

ﾑ 淲蒡瑣・・/td> 

ﾑ 韈磊黑

F・x)F鋳(x) < 0

ﾑ 鞦靑・・/td> 

ﾑ 淲蒡瑣・・/td> 

ﾒ瑕韲 髜鉋・ 褥・ ・(・・浯) 萵褪 鈿璞褊韃 ・ ・韈磊黑,  ・・犱 砒 ・・粢 濵粽・・珞鵫 胙瑙頽・ ・褥・ ・淲蒡瑣・・・ ・粽・ ﾂ 髜鵰・・・隆 ・犱 ・跖・ ・趾・瑟・・湜 ・・・・濵・・ⅲ・ 珮頌・

 

ﾇ瑟褶瑙韃 2 ・・蔘  ・ ・・燾・ ﾒ瑕 ・・蓁 湜 ・珞・澵鵫 鈞萵 裔 ⅳ靏・湜・・鵰鈔鮏濵・渼・F(x), ・・ ・・・燾・蒡瑣ⅸ濵 濵 琿韈・浯 ・魲・濵・魵淲, ・・ ・珞齏・糺褊・ ・鵰鈔鮏燾・・ 髜・粨蒟 蒡粽・濵 胙黑鰀蓐陟 蓁 ｫ・湜・湜ｻ ﾝﾂﾌ; ・・淲・裝粢澵黑 珸瑙韋 ・鵰鈔鮏濵・蓁 ・趾鵫 襃褊・・魲ⅸ・浯 ・・ ・・・ 裼濵 鈞胙瑯, ・ⅸ褊・鈞・蓁褪 碚, ・鈞萵湜・渼・・ ⅳ粢褊濵, 裹 ・鵰鈔鮏濵・ 淲・裝粢澵・・・魲・濵・・蒟 ・淲蒡・韲・ ﾎ蓖瑕・ 頌・・銛 萵澵隆 ・・ 鮏韲ⅲ 竟琿・・・ ・鵰鮏頸 浯鞦鸙裹 磊, ⅲ髜褊濵 褥・ 粮褥 ・・ ・・・燾・・・蒡・礪・韋, ・・ 蒻浯 濵粽胛 ⅳ鉤・鈞・ 萵褪 糀鸙淲 魵・ⅱ頸褄・鮱 湜・



2.2.2. ﾌ褪鮏 頸褞璋韜

ﾏ・・琿胛・ ・ ・・燾・ⅰ蒟・・粽鈔・・・黑・胚 ・・裝・ ・顆濵・萵, ・・ ・・ ・・・燾・粱・ 頸褞璋韶澵隯. ﾄ胛・・・ ・・ⅲ濵籵澵隆 浯 ・糘ⅱ瑾 ・・磊・浯鈔瑙 ・ｫ・・頸褞璋韜ｻ. ﾑ・裙・鈞・褪・ ・裝・・

-     萵浯 渼 F(x);

-     ⅰ蒟・浯 蒡・韲・ ・胙褸濵・Q;

-     ⅰ蒟・・ 淲・・竟琿 [ a , b ], ・蒟瓊韜 湜・珞淲湜.

-     ﾎ・裝褄褊・ 淲・・・z, ・竟琅・赳・[ a , b ] (浯鉋粢・z ｫ炫・糺・・鞦・趺湜褌ｻ)

ﾄ・ ・・湜 裝・胛 ・鞦・趺湜 ・蓴粨・・・(1) 粮褥 X Z, ・・・

  x1=F(z)   (4)

・ ・鮏鸙赳 瑙琿魲顆濵,

 

 x2=F(x1)  

 x3=F(x2)   (5)

 ・/b>

xn=F(xn-1)  

 

ﾒ瑕韲 髜鉋・ ・・褌 淲・ ・裝魵瑣褄・ⅲ, ・ 褥・ 裹 ・裝褄 (6) 

 limxn=A, nｮv  (6)

 ﾀ 粱褪・ 頌・・・・褌.

ﾄ瑙燾・・・粱褪・ 頌・・濵 瑙琿頸顆褥・・ ・褪 裙・・澵・ 琿韈璋・, 鮏浯・ 蒟頸 裝・・ 淲蒡瑣・:

-     淲髜蒻・・ 糺碚 炫・粽胛 ・鞦・趺湜 (粢蕈 , ・竟頸鞣濵 蓁 ・粢・, 蓁 ﾝﾂﾌ ・趺・瑣・蒡粽・濵 鮻濵・鈞萵・

-     浯・淲・ ・・澵・ ・裝魵瑣褄・ⅲ ・ⅲ ・趺・淲 鮏頸・, ・聿・湜・ 浯鱠褊・淲 碯蒟・ 

ﾝ ・炅褊 琿・ⅲ濵籵湜褌 蓁 ⅳ・・褊・ ・萵 頸褞璋韜 ・・糺碚 琿胛韈頏・胛 ・萵.



2.2.3. ﾌ褪鮏 ・・粨澵魲・蒟・湜 (・・ 礪・韋)








 ・2

ﾌ褪鮏 ・・粨澵魲・蒟・湜 (韈粢燾・ 襌・・・・ｫ・・蒟・湜 ⅳ鉤・・・・・) ・・粱褪・ ・鞣燾・ ・・ ・裝・鞣瑯・・糘ⅱ褊韃 ・褪黑 ・・澵顥 銛・・

ﾑ・・萵 ・・粨澵魲・蒟・湜 鈞・褪・ ・裝・・

-     萵浯 渼 F(x);

-     ⅰ蒟・浯 蒡・韲・ ・胙褸濵・Q;

-     ⅰ蒟・・ 淲・・竟琿 [ a , b ], ・蒟瓊韜 湜・珞淲湜.

1.   ﾂ飼頌・褌 鈿璞褊韃 ・ⅱ蒻浯 ﾅ, 砒・ 蒻炫 ⅳ鉤・[a , b], ・・ ﾅ= (a + b ) / 2  (7)

2.   ﾂ飼頌・褌 鈿璞褊・ F(a), F(b), F(E), ・ⅲ褥・褌 裝・ ・魵褞・: ﾅ・F(E)>Q,  ・犱 ・珸瑙濵・ⅲ 浯鱠褊. ﾅ・F(E)<Q, ・・ 淲髜蒻・ ⅲ 襌・淲 蒡鞳炫,  頏・葢・竟琿・ [a , E] ・[E , b] ・魵褞褌 鈿瑕・F(a), F(b), F(E). ﾍ・・煜瑾 鮏濵胛 韈 ・竟琿魵 鈿瑕・渼・碯蔘・鮏竟瑕魵・ ・浯 蓿・鉈顆燾 (竟璞・ﾅ - 頌・・・・犱). ﾈ 韲褊濵  竟琿, 浯 ・煜瑾 ・胛 鈿瑕・鉈顆燾, ・ 砒・鈞 ⅲ濵糒 ・・裝・・頸褞璋韋, ・・ ・頏珞湜籵褌 ・ﾅ ・碚 a, ・碚 b.

3.   ﾏ褞襄鮏韲 ・ ・渼 1.

ﾇ琅璞・ ・跫・頸・ 褥・ ⅰ蒟・ 胙瑙頽・・裨: 胙瑙頽・珮・顥 鈿璞褊韜 ・裨 糺褪・ ・ ・(8)

 

 : (8),

 (9),



胙瑙頽・・・跖・燾・・裨 ・・ ・ (9):

・胙瑙頽・ⅳ・燾・・裨 ・ 鈞・湜・・珞淲湜・(1) ・浯 靖.

ﾒ瑕韲 髜鉋・ ・ ・・褌 ・・ ・ ・蒡瑣ⅸ濵 ・蓁褊燾・(糀・ ・・淲璞濵・糺碚 炫・粽胛 ・鞦・趺湜 ・・蒟 頸褞璋韜 ・頌・湜 ・趺・鈞・炫・ 浯 襌・碚・・蒡・鮱 糅褌, 萵 ・・・ 趺 淲韈粢濵, ・鞣裝褪 ・ 粢 ・糺褊韜 ・ⅳ粢), 濵 鈞 糀鸙淲 浯蒟跫隆 ・・ⅲ・・・ 淲 裔・・湜 蒡・・頸褄・顥 鈞萵・ 糅鮏・糺褊・ ・鵰鈔鮏濵・ ・・鞣濵・・胛 琿胛・・鈔鸙褪 ・・ ⅸ褊・・・瑕隆 ・・肚・褌隆 ・・ ﾈ・澵・・・ ・・ ・・粨澵魲・蒟・湜 ・磊・糺碣瑙 蓁 琿韈璋韋 浯 ・魲・濵・魵淲.

2.2.4. ﾌ褪鮏 鉈鮻褊・ 浯 ・鮻頸褄・/b>

ﾄ瑙燾・・・粱褪・ ・・ⅲ 瑙琿頸顆褥・・ 鮏浯・ ・・ⅲ 鈞粨・ⅳ 蓿頷. ﾃ・粹隯 裙・・裴・粽・ 粱褪・ , ・・萵澵黑 ・蒟 淲 ・鵰鮏頸 ・ ・瑣燾・・裨. ﾏ・韲 浯 ・韲褞・

ﾏ 萵・・魲ⅸ・・F(x) = 2x3-11x2+20x-12 (11)

ﾅ胛 ・跫・鈞・ ・粨蒟: F(x) = (x+2)2(2x-3) (12)

ﾓ ・魲ⅸ・浯 n-襃褊・ ・・韈粢濵, n ・裨, ・韈 (12) 裝・ ・・・ F(x) 粱 ・ ・1,5, ・顆褌 ・犱 ・ 粱褪・ ・瑣燾・ ・・ ・顆褥・  葢・鮏竟瑕魵顥 ・. ﾏ ⅳ靏・湜・趺 ・裨 ・磊・韈 糺ⅰ頌瑙燾・・蒡・ｫ糘ⅱ鵫ｻ ・犱 ・ 碯蒟・・・・ ・・ 胙瑶韭 渼・碯蒟・韲褪・・ 葢・・・湜 ・ⅲ・ 珮頌・/p> 

ﾗ磊 韈砒赳 胛 ・韲褊褪・ ・・鉈鮻褊・ 浯 ・鮻頸褄・ ﾑ・裙・鈞・褪・ ・裝・・ ・趾隆 ・魲ⅸ・・粨萵 (1) ・跫・・裝珞頸・・粨蒟  (x+h1)(x+h2)・x+hn)*H = 0  (13) , 

齏・ F(x) = (x+h)(bn-1xn-1+・1)+b0 (14)

聿・h1・n ・・・珞淲湜, ・ﾍ ・・鵰鈔裝褊韃 ・鮻頸褄裨 ・ 糺淲澵顥 鈞 髜・ ( ﾍ 湜・・淲 粱・褪 浯 珞淲湜・ ・・ ⅳ 淲胛 韈矜粱, 蒟・ 浯 ﾍ 髜・・ (13). ﾏ ・淲 頌・濵, ・淲・・h ・胚・磊 粡琲・・粹・ ・・ 鞴褪褄・・・浯・・・瑣濵胛 ・. 

 ﾄ・ 糺褊・ 鈿璞褊韜 濵糺・・頽韃炅魵 ・(14) 頌・・銛 ・

bn=an

bn-1=bnh+an-1 (15)

bn-2=bn-1h+an-2

・

ﾒ瑕韲 髜鉋・ 琿胛 胛 ・萵 糺肭蒻・裝・・髜鉋・

1.   ﾎ・裝褄頸・ 胙瑙頽・・裨 珞淲湜;

2.   ﾏ ・・ ・碚胛 韈 糺ⅰ頌瑙燾・・蒡・浯鶯・鮏竟 ・犱 珞淲湜;

3.   ﾏ・・ ・ (14) ・(15) ⅱ・籵 濵糺・・魲ⅸ・・襃褊・ 浯 1 ・犱・・裝鏸裙・

4.   ﾂ褞炫・ ・ ・渼 2.

5.   ﾏ魵・ 蒡 ・ ・・ ・・ 襃褊・・魲ⅸ・浯 淲 髜炫・.

ﾝ・・・磊・琿韈魵瑙 浯 ・魲・濵・魵淲 ・粲・・・ ・魵・ 碚.

 

3.  ﾎﾏﾈﾑﾀﾍﾈﾅ ﾑﾒﾐﾓﾊﾒﾓﾐﾛ ﾏﾐﾎﾃﾐﾀﾌﾌﾛ

ﾂ ・瑾 鈞萵湜 浯 ・魵・ 碚 ・ 裝・・魲・頏魵瑙・ Visual Basic for Applications 磊・ 銜珮ⅳ瑙・・魲・・ 浯・ ・・・魲ⅸ・浯 ・珸鏆瑯・・ⅲ. 

 

3.1. ﾎ・湜・・魲・燾・・蔘・・/b>

ﾐ珸碚・・魲・・粢・ ・褪黑 ・煜襃・髜栁・濵-ⅱ韃炅頏魵瑙濵胛 ・魲・頏魵瑙・, ・・ ・ ⅰ蒟・澵鵫 ・裝魵瑣褄・ⅲ 蒟鴦韜 ・淲・淲・ ﾎ蓖瑕・ 釿頏・ ・魲・・ 浯 珞・・ ・跫・・ⅲ・蒻 ｫ・ｻ 琿胛・・・蒟.

ﾂ・ ・魲・・鵰・韈  ・ ・蔘・・ ﾌ鮏裨 糂裙・葢・ 鮏竟 蒟頸 瑙萵炫 ・ⅷ裝・珞鈞・・ (裙・・鞣瑣・・ 淲 瑙褌), ・蓿鵫 ・糂・ｫ・硴顆燾蟒 ・ⅷ裝・・ 渼・ 

Public function F(x). ﾔ・・, 粽鈔 鈿璞褊韃 ・魲ⅸ・浯 蓁 ・萵籵褌魲・ ・

Public function DetectBorders. ﾂ鰀糅瓊瑯・胙瑙頽・・裨, 肭瑰濵 瑟 ( 7 , 8, 9 ).

Public sub Gra ・・ⅷ裝・ ｫⅳ粢褊浯ｻ 鈞 珞・湜・胙瑶韭・

3.2. ﾎ・湜・

ﾂ 瑾 鈞・浯 ⅲ濵粹・ ・ ・魲・・ ・・・・碵褊濵 琿胛 ・萵 ・・粨澵魲・蒟・湜. ﾐ褸褊韃 ｫ瑕魵瑣・  渼・・・磊・ ・鮏韭籵濵 裝・・ ・顆竟瑟・

-     ・瓊褊韃 髜栁・ 鈞湜・褌鵫 ・・ ・ ・・裝粨・ ・湜・碚 鈞 褪 ・瓊褊・ 糅褌褊・ 跖鈿・・・澵顥;

-     鈬湜湜・ 蒡・(・・ 淲髜蒻・ 渼 齏・・・・胚・磊 瑕粨籵燾 頌・・濵 ・蒡・韲鵫 璋韋 ・ 鈿璞頸褄・・韆瑯・粢ⅲ ⅹ鞦鶴);

-     ・趾・ ・ 粱褪・ ｫ粢 ・砒ｻ ・淲 鈞粨・ⅳ ⅲ・燾・(・黑・ｫ・裘鵫ｻ

3.2.1. ﾔⅱ・ Form_Main

ﾟ粱褪・ ・裘鵫 鵫 ・魲・・ 蒟頸 ﾃ・粹鮱 ・・, ・鈔鸙・・・碚・・・蓐・糺・・ 糂・淲髜蒻・・蒟鴦・, ・・・ 瑙 ・鈞粢瑣・碚 ・魲・・

 



3.2.2. ﾔⅱ・ Form_Koeff

ﾂ ・・鈞萵 ・頽韃炅・・魲ⅸ・浯.

ﾇ瑟褶瑙韃. ﾄ・ 鈞萵湜 ・頽韃炅・・sub>0 淲髜蒻・ 珸瑣・鈿璞褊韃 襃褊・・粹隯 0.



3.2.3.ﾔⅱ・ Form_Mnogo








ﾂ鏆鮏頸 浯 ・瑙 髜・粨・ 鈞萵澵魲・・魲ⅸ・浯, ・・・・鵰鈔鮏燾・・魲・・糘ⅱ魲・・・蓐魵

3.2.4.ﾔⅱ・ Form_WP

ﾝ ・・ 糒 粱褪・ ・淲・ 粱褊・ ・跖・ 胙瑶韭・・・鈔鸙褪 裙・褶瑣瑣・齏・鈞・靑・



3.2.5. ﾔⅱ・ Form_Korni

ｫﾎ魵浯 狃 ・韲褊濵 ・淲・鈞・・・琿胛 ・頌・ ・裨 (Sub FindKor) ・萵・ 礪・韋 ・/・・燾・



ﾂ ・粢 鵫・・髜栁・・ｫ狃 ・頌糒・ ・・糺・・ⅷ裝・ 琿韈・・碵褊濵 琿胛・浯趾褊・ ・裨 ・浯趾褊・ ・鵰鈔鮏濵・

Public sub FF* ・・ⅷ裝・ ｫⅳ粢褊浯ｻ 鈞 浯趾褊韃 ・鵰鈔鮏濵・

Public sub Horda_Kasatelnye ・ ・ⅷ裝・ 琿韈・ ・頌・・裨 ・ 琿胛・ ・・・燾・

Public sub Find_Kor ・・ⅷ裝・ 琿韈・ ・頌・・裨 ・ 琿胛・・・粨澵魲・蒟・湜 ⅳ鉤・

ﾇ瑟褶瑙韃. ﾀ・ⅱ頸・ 浯趾褊・ ・淲・ⅰ頌瑙・・ 肭珞・2. ﾑ・趺 琿胛・浯趾褊・ ・鵰鈔鮏濵・鮏頸・ ・・ⅲ・ ・・鮻褊・ ・頽韃炅・・襃褊・・褊・褊・ 鈿璞褊・ 襃褊・浯 裝竟頽・ ﾝ ・鈔鸙褪 ・裲・ⅰ蒟・ ・鵰鈔鮏炫, ・・・・裲・ｫ韈矜粨・ｻ ⅳ ・淲鵫 ・瀨炅・

4.  ﾀﾍﾀﾋﾈﾇ ﾐﾅﾇﾓﾋﾜﾒﾀﾒﾎﾂ

ﾂ 銛・ 糺・・褊・ 鈞萵湜 浯 ・魵・ 碚 磊・ 鈕瑙・・魲・・VI Function 2.0 , 浯・ ・・琿肄碣琲魲・ ・魲ⅸ・浯 粨萵 (1) ・珸鏆瑯・・ⅲ ・裝粽・裝・・・蒡・

ｷ     ・・蒟・湜 ⅳ鉤・・・・・

ｷ     ・・ ・ ・・燾・(・・竟頏魵瑙燾・

ﾒ瑕趺 ・・珞・湜・・魲・・磊・ 浯 粽銕鮻濵・浯・ ・・魲ⅸ・浯 ・瑣燾・・裨, ・裝籵 頷 髜浯趺湜 ・・粽・・珞 ・魲・・

ﾔ瑕韃 銛・ 糀琿・・ 琿・隯・

5.  ﾑﾏﾈﾑﾎﾊ ﾋﾈﾒﾅﾐﾀﾒﾓﾐﾛ

1.   ﾃ褞 ﾐ.ﾑ. , ﾎ糯竟韜 ﾁ.ﾂ. ｫﾝ・・炅・褊濵胛 瑙琿韈・・・・韜 髜碚・ 銛・・ⅰ靑狃. ﾌⅲ・・ ｫﾍ瑪・ｻ, 1979

2.   ﾊ琿頸・・ﾍ.ﾍ. ｫﾗ頌・澵鐱 ・蕘ｻ. ﾌⅲ・・ ｫﾍ瑪・ｻ, 1978

3.   ﾊ・・ﾂ.ﾈ., ﾁ珮・篦.ﾂ., ﾌ・瑰・・ﾏ.ﾈ. ｫﾂ飼頌・・燾・・蕘ｻ. ﾌⅲ・・ ｫﾍ瑪・ｻ, 1976

4.   ﾏ. ﾑ瑙浯. ｫVisual Basic for Applications 6.0 ｫ・ ・蓁竟湜・ｻ, ﾊ韃・ BHV

6. ﾏﾐﾈﾋﾎﾆﾅﾍﾈﾟ

6.1. ﾏ・・琿肄碣琲魲・・魲ⅸ・浯 ・浯趾褊・ 裙・/p> 

・裨

ﾌ濵胛褊 F(x) = 3x2+5x-8

ﾃ・・裝珞・・浯 ・ 6.1

ﾒⅸ濵・Q = 0,0001

ﾍ琺蒟澵鐱 ・・ x = -2,66666669921875 ・・/p> 

 x= 0,99991015625 礪・韋

ﾍ琺蒟澵鐱 ・・ x = -2,66667654214111 ・・/p> 

 x= 0,99981915025  ・・・燾・/p> 



 ・ 6.1

6.2. ﾁ・・褌・琿胛・・・粨澵魲・ 蒟・湜

A = ・籵 胙瑙頽・/p> 

ﾂ = ・珞・ 胙瑙頽・

C ・蒻浯

F(x) - 渼 





6.3. ﾁ・・褌・琿胛・・頌・ ・裨 ・蒡・ ・・・燾・/p> 

A = ・籵 胙瑙頽・/p> 

ﾂ = ・珞・ 胙瑙頽・

F(x) - 渼 

 



6.4 ﾐ魵鮏粽 ・・鉋籵・.

ﾏⅲ・ 鈞・・・魲・・・・ﾂ瑟・・粨 ﾃ・粹鮱 ・・, 粲・・・・ 裝・・・・魲・・

ﾑﾎﾕﾐﾀﾍﾈﾒﾜ

ﾑⅶ・褪 鴉  糂褌・褄瑙燾・ 韈・淲湜・

ﾏﾐﾎﾑﾌﾎﾒﾐ ﾔﾓﾍﾊﾖﾈﾈ

ﾂ鏆鮏頸 浯 ・瑙 鶴濵, ・・・ⅳ髜赳褪・ 粨・ ・魲ⅸ・浯, ・・・粨・・鵰鈔鮏燾・・魲・・糘ⅱ魲・・・蓐魵 (ﾂ鎤ⅱ ⅲ褥・褪・ 浯赳褌 ・ⅰ鶴 F・X), F・X), F(X)

ﾂﾂﾎﾄ ﾊﾎﾝﾔﾔﾈﾖﾈﾅﾍﾒﾎﾂ

ﾂ鏆鮏頸 浯 ・瑙 鶴濵 粐鮏・・頽韃炅魵

ﾃﾐﾀﾔﾈﾊ

ﾂ鏆鮏頸 胙瑶韭 渼・/td> 

ﾏﾎﾈﾑﾊ ﾊﾎﾐﾍﾅﾉ

ﾎ碣琥瑯・鶴濵, 粱・・頌・・・裨

ﾎ ﾏﾐﾎﾃﾐﾀﾌﾌﾅ

ﾂ鏆鮏頸 鶴濵 ｫﾎ ・魲・蟒

ﾂﾛﾕﾎﾄ

ﾇ珞褞褪 碚 ・魲・, ・裝籵・濵鈞萵籵 粽・ⅲ ・ 瑙褊韋 韈・淲湜・/td> 

ﾂ粽・・頽韃炅魵 ⅲ褥・褪・ 裝・・髜鉋・ ・ ・粨糲褌・ 鶴淲 韲・ 2 ・・ ・鮏濵 蓁 珸瑙・ 襃褊・ 蓿鮱 蓁 粐鮏・ 碵褊濵 ・頽韃炅・ ﾅ・ﾂ・・粐鮏齏・淲・ 渼,  蓁 裹 琿褊・ 浯跪頸・・ⅰ・ 軟頸・, 蓁 鈞・・浯湜 ・頽韃炅・浯跪頸・鳶齡, 蓁 鈞粢褊 粐鮏・・鍋珞褞・

ﾏ鵰 ・裨 ・蒡 ・裝褄・ ﾂ瑟 蒡瑣ⅸ濵 珸瑣・淲・蒻・ ⅲ ・糺碣瑣・・・・頌・: 礪・韶燾・齏・ ・・竟頏魵瑙燾・

6.5. ﾈ鮏燾・・・・魲・・/b>

UNIT1

Dim curcell As Range

Dim ma As Double

Dim Ao As Double

Public Function F(x As Variant)

F = (x ^ 20 * Range("a20").Value) + (x ^ 19 * Range("a19").Value) + (x ^ 18 * Range("a18").Value) + (x ^ 17 * Range("a17").Value) + (x ^ 16 * Range("a16").Value) + (x ^ 15 * Range("a15").Value) + (x ^ 14 * Range("a14").Value) + (x ^ 13 * Range("a13").Value) + (x ^ 12 * Range("a12").Value) + (x ^ 11 * Range("a11").Value) + (x ^ 10 * Range("a10").Value) + (x ^ 9 * Range("a9").Value) + (x ^ 8 * Range("a8").Value) + (x ^ 7 * Range("a7").Value) + (x ^ 6 * Range("a6").Value) + (x ^ 5 * Range("a5").Value) + (x ^ 4 * Range("a4").Value) + (x ^ 3 * Range("a3").Value) + (x ^ 2 * Range("a2").Value) + (x * Range("a1").Value) + Range("a21").Value

End Function

Public Function F1(x As Variant)

F1 = (x ^ 20 * Range("j20").Value) + (x ^ 19 * Range("j19").Value) + (x ^ 18 * Range("j18").Value) + (x ^ 17 * Range("j17").Value) + (x ^ 16 * Range("j16").Value) + (x ^ 15 * Range("j15").Value) + (x ^ 14 * Range("j14").Value) + (x ^ 13 * Range("j13").Value) + (x ^ 12 * Range("j12").Value) + (x ^ 11 * Range("j11").Value) + (x ^ 10 * Range("j10").Value) + (x ^ 9 * Range("j9").Value) + (x ^ 8 * Range("j8").Value) + (x ^ 7 * Range("j7").Value) + (x ^ 6 * Range("j6").Value) + (x ^ 5 * Range("j5").Value) + (x ^ 4 * Range("j4").Value) + (x ^ 3 * Range("j3").Value) + (x ^ 2 * Range("j2").Value) + (x * Range("j1").Value) + Range("j21").Value

End Function

Public Function F2(x As Variant)

F2 = (x ^ 20 * Range("m20").Value) + (x ^ 19 * Range("m19").Value) + (x ^ 18 * Range("m18").Value) + (x ^ 17 * Range("m17").Value) + (x ^ 16 * Range("m16").Value) + (x ^ 15 * Range("m15").Value) + (x ^ 14 * Range("m14").Value) + (x ^ 13 * Range("m13").Value) + (x ^ 12 * Range("m12").Value) + (x ^ 11 * Range("m11").Value) + (x ^ 10 * Range("m10").Value) + (x ^ 9 * Range("m9").Value) + (x ^ 8 * Range("m8").Value) + (x ^ 7 * Range("m7").Value) + (x ^ 6 * Range("m6").Value) + (x ^ 5 * Range("m5").Value) + (x ^ 4 * Range("m4").Value) + (x ^ 3 * Range("m3").Value) + (x ^ 2 * Range("m2").Value) + (x * Range("m1").Value) + Range("m21").Value

End Function

Public Sub Gra()

Sheets("ﾋ頌・").Select

Range("e1").Select

For i = -10 To 10

ActiveCell.Value = F(i)

ActiveCell.Cells(2).Select

Next i

End Sub

Public Function DetectBorders()

' ﾔ・・ ⅰ蒟・湜 胙瑙頽 蒟鴦頸褄・顥 ・裨

ma = 0

For Each curcell In Range("Koeffs")

 If curcell.Value > ma Then ma = curcell.Value

 If curcell.Value <> 0 Then Ao = curcell.Value

Next curcell

DetectBorders = 1 + (ma * Ao)

End Function

UNIT2

Sub auto_open()

Sheets("ﾋ頌・").Select

Form_Main.Show

End Sub

FORM_ABOUT

Private Sub CommandButton1_Click()

Form_About.Hide

End Sub

FORM_KOEFF

Private Sub CommandButton1_Click()

ko = TextBox1.Value

st = TextBox2.Value

Select Case st

 Case 0

 Range("A21").Value = ko

 Case 1

 Range("A1") = ko

 Case 2

 Range("A2") = ko

 Case 3

 Range("A3") = ko

 Case 4

 Range("A4") = ko

 Case 5

 Range("A5") = ko

 Case 6

 Range("A6") = ko

 Case 7

 Range("A7") = ko

 Case 8

 Range("A8") = ko

 Case 9

 Range("A9") = ko

 Case 10

 Range("A10") = ko

 Case 11

 Range("A11") = ko

 Case 12

 Range("A12") = ko

 Case 13

 Range("A13") = ko

 Case 14

 Range("A14") = ko

 Case 15

 Range("A15") = ko

 Case 16

 Range("A16") = ko

 Case 17

 Range("A17") = ko

 Case 18

 Range("A18") = ko

 Case 19

 Range("A19") = ko

 Case 20

 Range("A20") = ko

 Case Else

 MsgBox ("ﾂ顥鮏 鈞 ・裝褄・蒡・韲顥 鈿璞褊韜")

 st = st - 1

End Select

TextBox1.Value = 0

TextBox2.Value = st + 1

End Sub

Private Sub CommandButton2_Click()

Form_Koeff.Hide

End Sub

Private Sub CommandButton3_Click()

Range("a1").Value = 0

Range("a2").Value = 0

Range("a3").Value = 0

Range("a4").Value = 0

Range("a5").Value = 0

Range("a6").Value = 0

Range("a7").Value = 0

Range("a8").Value = 0

Range("a9").Value = 0

Range("a10").Value = 0

Range("a11").Value = 0

Range("a12").Value = 0

Range("a13").Value = 0

Range("a14").Value = 0

Range("a15").Value = 0

Range("a16").Value = 0

Range("a17").Value = 0

Range("a18").Value = 0

Range("a19").Value = 0

Range("a20").Value = 0

Range("a21").Value = 0

End Sub

Private Sub UserForm_initialize()

st = 0

ko = 0

TextBox1.Value = ko

TextBox2.Value = st

End Sub

FORM_KORNI

Private Sub CommandButton1_Click()

ListBox1.Clear

TextBox1.Value = 0

Form_Korni.Hide

End Sub

Private Sub CommandButton2_Click()

Range("Toc").Value = TextBox1.Value

Call FindKor

'Call Perenos

End Sub

Sub FindKor()

Range("Curright") = Range("Right").Value

Range("Curleft") = -Range("Right").Value - 0.333

'Range("right").Value = DetectBorders

Range("Stepleft").Value = Range("right").Value * (-1) - 0.333

Do

nashli = False

Call MoveLe

If Sgn(F(Range("curleft").Value)) = Sgn(F(Range("curright").Value)) Then

End If

If Sgn(F(Range("curleft").Value)) <> Sgn(F(Range("curright").Value)) Then

 Do

' nashli = True

 Range("Curcenter").Value = ((Range("curleft").Value) + (Range("curright").Value)) / 2

 If Abs(F(Range("Curcenter").Value)) > Range("toc").Value Then If Sgn(F(Range("curleft").Value)) <> Sgn(F(Range("curcenter").Value)) Then Range("curright").Value = Range("curcenter").Value Else: Range("curleft").Value = Range("curcenter").Value

 If Abs(F(Range("Curcenter").Value)) <= Range("toc").Value Then ListBox1.AddItem (Range("Curcenter").Value)

 Range("Koren").Value = Range("Curcenter").Value

 Loop Until Abs(F(Range("Curcenter").Value)) <= Range("toc").Value

 

End If

Loop Until Range("Stepleft").Value > Range("right").Value Or nashli = True

End Sub

Sub Horda_Kas()

'Sub FindKor()

Range("Curright") = Range("Right").Value

Range("Curleft") = -Range("Right").Value - 0.333

'Range("right").Value = DetectBorders

Range("Stepleft").Value = Range("right").Value * (-1) - 0.333

Do

MoveLe

If Sgn(F(Range("curleft").Value)) <> Sgn(F(Range("curright").Value)) Then

Do

' nashli = True

 If F1(Range("curleft").Value) * F2(Range("curleft").Value) > 0 Then

 Range("curleft").Value = Range("curleft").Value - ((Range("curright").Value - Range("curleft").Value) * (F(Range("Curleft").Value) / (F(Range("Curright").Value - F(Range("Curleft").Value)))))

 Range("Curright").Value = Range("curright").Value - F(Range("curright").Value) / F1(Range("curright").Value)

End If

 

If F1(Range("curleft").Value) * F2(Range("curleft").Value) < 0 Then

 Range("curright").Value = Range("curleft").Value - ((Range("curright").Value - Range("curleft").Value) * (F(Range("Curleft").Value) / (F(Range("Curright").Value - F(Range("Curleft").Value)))))

 Range("Curleft").Value = Range("curright").Value - F(Range("curright").Value) / F1(Range("curright").Value)

End If

 

 If Abs(Abs(F(Range("Curright").Value))) - Abs(F(Range("Curleft").Value)) <= Range("toc").Value Then

 'MsgBox (Range("curleft").Value)

 ListBox1.AddItem (Range("Curright").Value)

 'If ((Range("Curleft").Value) + (Range("Curright").Value)) > 0 Then ListBox1.AddItem (((Range("Curleft").Value) + (Range("Curright").Value)) / 2)

 'If ((Range("Curleft").Value) + (Range("Curright").Value)) < 0 Then ListBox1.AddItem (((Range("Curleft").Value) + (Range("Curright").Value)) / 2)

 Range("Koren").Value = Range("Curleft").Value

 End If

 

 

 Loop Until Abs(F(Range("Curright").Value)) - Abs(F(Range("Curleft").Value)) <= Range("toc").Value

 

End If

Loop Until Range("Stepleft").Value > Range("right").Value Or nashli = True

End Sub

Sub MoveLe()

 Range("stepleft").Value = Range("stepleft").Value + 0.333

 Range("curLeft").Value = Range("stepleft").Value

 Range("Curright").Value = Range("Curleft").Value + 0.333

 Range("Curcenter").Value = ((Range("curleft").Value) + (Range("curright").Value)) / 2

End Sub

Private Sub CommandButton3_Click()

Horda_Kas

End Sub

Private Sub UserForm_Deactivate()

ListBox1.Clear

TextBox1.Value = 0

End Sub

Sub Perenos()

Range("a1").Value = Range("L1").Value

Range("a2").Value = Range("L2").Value

Range("a3").Value = Range("L3").Value

Range("a4").Value = Range("L4").Value

Range("a5").Value = Range("L5").Value

Range("a6").Value = Range("L6").Value

Range("a7").Value = Range("L7").Value

Range("a8").Value = Range("L8").Value

Range("a9").Value = Range("L9").Value

Range("a10").Value = Range("L10").Value

Range("a11").Value = Range("L11").Value

Range("a12").Value = Range("L12").Value

Range("a13").Value = Range("L13").Value

Range("a14").Value = Range("L14").Value

Range("a15").Value = Range("L15").Value

Range("a16").Value = Range("L16").Value

Range("a17").Value = Range("L17").Value

Range("a18").Value = Range("L18").Value

Range("a19").Value = Range("L19").Value

End Sub

FORM_MAIN

Private Sub CommandButton1_Click()

Form_Koeff.Show

End Sub

Private Sub CommandButton2_Click()

Form_Mnogo.Show

End Sub

Private Sub CommandButton3_Click()

Gra

Form_Main.Height = 84

Sheets("D1").Select

Form_WP.Show

Form_Main.Height = 360

Sheets("ﾋ頌・").Select

End Sub

Private Sub CommandButton4_Click()

Form_Korni.Show

End Sub

Private Sub CommandButton5_Click()

Application.Quit

End Sub

Private Sub CommandButton7_Click()

Form_About.Show

End Sub

Private Sub CommandButton8_Click()

 ActiveWorkbook.Save

End Sub

Private Sub UserForm_initialize()

Sheets("ﾋ頌・").Select

Form_Main.Height = 360

End Sub

FORM_MNOGO

Dim mn As String

Private Sub CommandButton1_Click()

Form_Mnogo.Hide

End Sub

Private Sub UserForm_activate()

mn = "F(x)="

If Range("a20") > 0 Then mn = mn + Range("a20").Text + "X^20"

If Range("a20") < 0 Then mn = mn + Range("a20").Text + "X^20"

If Range("a19") > 0 Then mn = mn + " + " + Range("a19").Text + "X^19"

If Range("a19") < 0 Then mn = mn + Range("a19").Text + "X^19"

If Range("a18") > 0 Then mn = mn + " + " + Range("a18").Text + "X^18"

If Range("a18") < 0 Then mn = mn + Range("a18").Text + "X^18"

If Range("a17") > 0 Then mn = mn + " + " + Range("a17").Text + "X^17"

If Range("a17") < 0 Then mn = mn + Range("a17").Text + "X^17"

If Range("a16") > 0 Then mn = mn + " + " + Range("a16").Text + "X^16"

If Range("a16") < 0 Then mn = mn + Range("a16").Text + "X^16"

If Range("a15") > 0 Then mn = mn + " + " + Range("a15").Text + "X^15"

If Range("a15") < 0 Then mn = mn + Range("a15").Text + "X^15"

If Range("a14") > 0 Then mn = mn + " + " + Range("a14").Text + "X^14"

If Range("a14") < 0 Then mn = mn + Range("a14").Text + "X^14"

If Range("a13") > 0 Then mn = mn + " + " + Range("a13").Text + "X^13"

If Range("a13") < 0 Then mn = mn + Range("a13").Text + "X^13"

If Range("a12") > 0 Then mn = mn + " + " + Range("a12").Text + "X^12"

If Range("a12") < 0 Then mn = mn + Range("a12").Text + "X^12"

If Range("a11") > 0 Then mn = mn + " + " + Range("a11").Text + "X^11"

If Range("a11") < 0 Then mn = mn + Range("a11").Text + "X^11"

If Range("a10") > 0 Then mn = mn + " + " + Range("a10").Text + "X^10"

If Range("a10") < 0 Then mn = mn + Range("a10").Text + "X^10"

If Range("a9") > 0 Then mn = mn + " + " + Range("a9").Text + "X^9"

If Range("a9") < 0 Then mn = mn + Range("a9").Text + "X^9"

If Range("a8") > 0 Then mn = mn + " + " + Range("a8").Text + "X^8"

If Range("a8") < 0 Then mn = mn + Range("a8").Text + "X^8"

If Range("a7") > 0 Then mn = mn + " + " + Range("a7").Text + "X^7"

If Range("a7") < 0 Then mn = mn + Range("a7").Text + "X^7"

If Range("a6") > 0 Then mn = mn + " + " + Range("a6").Text + "X^6"

If Range("a6") < 0 Then mn = mn + Range("a6").Text + "X^6"

If Range("a5") > 0 Then mn = mn + " + " + Range("a5").Text + "X^5"

If Range("a5") < 0 Then mn = mn + Range("a5").Text + "X^5"

If Range("a4") > 0 Then mn = mn + " + " + Range("a4").Text + "X^4"

If Range("a4") < 0 Then mn = mn + Range("a4").Text + "X^4"

If Range("a3") > 0 Then mn = mn + " + " + Range("a3").Text + "X^3"

If Range("a3") < 0 Then mn = mn + Range("a3").Text + "X^3"

If Range("a2") > 0 Then mn = mn + " + " + Range("a2").Text + "X^2"

If Range("a2") < 0 Then mn = mn + Range("a2").Text + "X^2"

If Range("a1") > 0 Then mn = mn + " + " + Range("a1").Text + "X"

If Range("a1") < 0 Then mn = mn + Range("a8").Text + "X"

If Range("a21") > 0 Then mn = mn + " + " + Range("a21").Text

If Range("a21") < 0 Then mn = mn + Range("a21").Text

TextBox1.Value = mn

End Sub

FORM_WP

Private Sub Label1_Click()

Call Gra

End Sub

Private Sub CommandButton1_Click()

Sheets("D1").Print

End Sub

Private Sub CommandButton2_Click()

Form_WP.Hide

Call Gra

End Sub

Private Sub UserForm_Click()

Form_WP.Hide

End Sub

____________________________

VoID InVaSiON HG ｩ

VI Function 2.0 beta





[1] ﾝ・・ 磊・蒡・鈞・韈粢燾・ ・・・・ ﾀ砒・・・ﾃ琿.