НАХОЖДЕНИЕ ВСЕХ ДЕЙСТВИТЕЛЬНЫХ КОРНЕЙ АЛГЕБРАИЧЕСКОГО МНОГОЧЛЕНА МЕТОДОМ ДЕЛЕНИЯ ОТРЕЗКА ПОПОЛАМ (БИСЕКЦИИ) И МЕТОДОМ ХОРД И КАСАТЕЛЬНЫХ С УКАЗАННОЙ ТОЧНОСТЬЮ И УЧЕТОМ ВОЗМОЖНОЙ КРАТНОСТИ КОРНЕЙ
ﾍﾀﾕﾎﾆﾄﾅﾍﾈﾅ ﾂﾑﾅﾕ ﾄﾅﾉﾑﾒﾂﾈﾒﾅﾋﾜﾍﾛﾕ ﾊﾎﾐﾍﾅﾉ ﾀﾋﾃﾅﾁﾐﾀﾈﾗﾅﾑﾊﾎﾃﾎ ﾌﾍﾎﾃﾎﾗﾋﾅﾍﾀ ﾌﾅﾒﾎﾄﾎﾌ ﾄﾅﾋﾅﾍﾈﾟ ﾎﾒﾐﾅﾇﾊﾀ ﾏﾎﾏﾎﾋﾀﾌ (ﾁﾈﾑﾅﾊﾖﾈﾈ) ﾈ ﾌﾅﾒﾎﾄﾎﾌ ﾕﾎﾐﾄ ﾈ ﾊﾀﾑﾀﾒﾅﾋﾜﾍﾛﾕ ﾑ ﾓﾊﾀﾇﾀﾍﾍﾎﾉ ﾒﾎﾗﾍﾎﾑﾒﾜﾞ ﾈ ﾓﾗﾅﾒﾎﾌ ﾂﾎﾇﾌﾎﾆﾍﾎﾉ ﾊﾐﾀﾒﾍﾎﾑﾒﾈ ﾊﾎﾐﾍﾅﾉ
ﾔ裝褞琿・・ ﾀ粨璋韶澵・ ﾑ・趁・ﾐⅲ・/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)
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] ﾝ・・ 磊・蒡・鈞・韈粢燾・ ・・・・ ﾀ砒・・・ﾃ琿.
Нравится материал? Поддержи автора!
Ещё документы из категории математика:
Чтобы скачать документ, порекомендуйте, пожалуйста, его своим друзьям в любой соц. сети.
После чего кнопка «СКАЧАТЬ» станет доступной!
Кнопочки находятся чуть ниже. Спасибо!
Кнопки:
Скачать документ