IDependenceForm.Failed

Syntax

Failed: Boolean;

Description

The Failed property returns True if any errors occurred while calculating a dependence form, and False if no errors have occurred.

Example

Sub Main;

Var

trend: SmCurveEstimation;

d0: Double;

status, i: Integer;

ar, factor: Array Of Double;

Forms: IDependenceForms;

Dep: IDependenceForm;

Begin

trend := New SmCurveEstimation.Create;

ar := New Double[25];

ar[00] := 4110;

ar[01] := 4280;

ar[02] := 4459;

ar[03] := 4545;

ar[04] := 4664;

ar[05] := 4861;

ar[06] := 5195;

ar[07] := 5389;

ar[08] := 5463;

ar[09] := 5610;

ar[10] := 5948;

ar[11] := 6218;

ar[12] := 6521;

ar[13] := 6788;

ar[14] := 7222;

ar[15] := 7486;

ar[16] := 7832;

ar[17] := 8153;

ar[18] := 8468;

ar[19] := 9054;

ar[20] := 9499;

ar[21] := 9866;

ar[22] := 10217;

ar[23] := 10763;

ar[24] := 10683;

trend.Explained.Value := ar;

factor := New Double[20];

For i := 0 To factor.Length - 1 Do

factor[i] := i*i + i*21;

End For;

trend.Explanatory.Serie.Value := factor;

trend.ModelPeriod.LastPoint := 20;

trend.ForecastLastPoint := 30;

trend.SeasonalComponent.Mode := SeasonalityType.additive;

trend.SeasonalComponent.Cycle := 4;

status := trend.Execute;

If status <> 0 Then

Debug.WriteLine(trend.Errors);

Else

Forms := trend.DependenceForms;

For i := 0 To Forms.Count - 1 Do

Dep := Forms.Item(i);

If Dep.Failed Then

Debug.WriteLine(Dep.DisplayName + ": " + "Error. " + Dep.Errors);

Else

d0 := Dep.CriterionValue;

Debug.WriteLine(Dep.DisplayName + ": " + d0.ToString);

End If;

End For;

End If;

End Sub Main;

After executing the example the console window displays values of model criteria or error messages:

Module execution started

Linear: 0.99748885329458303

Quadratic: 0.99861486964283741

Polynomial: 0.99861604281721439

Compound: 0.99310170950128884

Growth equation: 0.99310170950129684

Logarithmic: Error. Explanatory series cannot contain negative or zero values

Hyperbolic: Error. Explanatory series cannot contain zero values

Exponential: 0.99310170950129684

Inverse: Error. Explanatory series cannot contain zero values

Power: Error. Explained series cannot contain negative or zero values

Logistic: 0.053219265181053355

Module execution finished