Hello,
Has someone a hint on how to simplify this code (I have a feeling
of missing something in my understanding):
package S_p is new Ordered_Sets(Element_Type => Positive);
n_set1 : constant S_p.Set := [for n in n1 … n2 => n];
n_set2 : constant S_p.Set := [for n of n_set1 when csa(n).image_hour1 in t1 … t2 => n];
r_array1 : constant r_array1_t := [for n of n_set2 => cella(id).track1(smooth,n)];
The purpose here is to produce “r_array1” (n_set1 and n_set2 are there only to construct r_array1).
reinert