Функция завъртян елипсоид

Скрипт: rotellipsoid.qscript

'script language = VBscript
function Main()
    sumi = 0
    for i = 1 to qs_NVARS
        sumj = 0
        for j = 1 to i
            sumj = sumj + qs_VAR(j)
        next
        sumi = sumi + sumj * sumj
    next
    ' Save results
    qs_RESULT(1) = sumi
end function

QstatLab модел (see OptimizationModels.qsl в Примери):

Type =script
nvars = 2
scriptfile = rotellipsoid.qscript
lvar1 = -65.536
uvar1 = 65.536
var1 = 0
lvar2 = -65.536
uvar2 = 65.536
var2 = 0

Минимум

Минималната стойност е 0 за Var(i) = 0

Графики:

Обратно към Въвеждане на данни