Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код: var fso= new ActiveXObject("Scripting.FileSystemObject"); var u=0.184584124 var maxi = 100 var dumin = 1 var win = "" var fStream = fso.CreateTextFile("results.txt", true) for (var a = 5; a < 100; a++) { for (var c = 5; c < 100; c++) { var acu = a * c / u; var bmin= acu / 100; bmin = bmin > 5 ? Math.floor(bmin) : 5; var bmax = acu / 5; bmax = (bmax < 100) ? Math.ceil(bmax) : 100 ; for (var b = bmin; b < bmax; b++) { var d = acu / b; var dr = Math.round(d); var dd = Math.abs(d-dr); if (dd < 0.001) { var du = Math.abs(u - (a*c)/(b*dr)); var vStr = "du=" + du + " a=" + a + " b=" + b + " c=" + c + " d=" + dr if (du < dumin) { win = vStr; dumin = du; } fStream.WriteLine(vStr); } } } } WScript.Echo ("Best: " + win); |
|