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

Скрипт: ellipsoid.qscript

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

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

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

Минимум

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

Графики:

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