Code: Select all
Inputs: StartTime( 1415 ),
EndTime( 1715 );
Vars: HighestH( 0 ),
NewHighestH( 0 );
If Time[1] = EndTime then
begin
HighestH = NewHighestH;
NewHighestH = 0;
End;
If T >= StartTime and T <= Endtime then
begin
If H > NewHighestH then NewHighestH = H;
Value1 = TL_New(D, T, L, D, T, H);
End;
Plot1( HighestH );
Code: Select all
Inputs: StartTime( 1415 ),
EndTime( 1715 );
Vars: LowestL( 0 ),
NewLowestL( 0 );
If Time[1] = EndTime then
begin
LowestL = NewLowestL;
NewLowestL = 0;
End;
If T >= StartTime and T <= Endtime then
begin
If L < NewLowestL then NewLowestL = L;
Value1 = TL_New(D, T, L, D, T, H);
End;
Plot1( LowestL );