σκέψεις επί του συλλογισμού

j = StroseisPerBoreId(i) - k + 2
If iflag(i, j - 1) <> iflag(i, j) And gflag(i) = 0 And iflag(i, StroseisPerBoreId(i)) = 0 Then ...
το έβαλα με τους εξής συλλογισμούς:
iflag(i, StroseisPerBoreId(i)) = 0 =>
1)αν έχει σκληρή τελευταία θέση τότε δεν θα πάρει κανέναν τυχόν σκληρότερο επικρεμάμενο,

• (<-? ΠΡΟΣΟΧΗ : μήπως θα τύχει συνδυασμός τέτοιος ώστε να αναγκαστεί να πάρει;;)
• (? μπορεί να είναι σκληρή η τελευταία και να τύχει μια επικρεμάμενη σκληρότερη; ΝΑΙ) <-αυτό ίσως δεν πρέπει. γιατί να μην πάρω την τελευταία να είμαι ήσυχη;; κι αν πρόκειται για λεπτότατη στρώση ;; Μαλλον δεν πρέπει αυτό!!!!
• (? μπορεί να είναι σκληρή η τελευταία και να τύχει μια διεπιφάνεια με μαλακότερη; ΝΑΙ!) <-αυτό το θέλω. αφορά σε περίπτωση όπου όλες αυξάνουν διαδοχικά με το βάθος
• (?
  

  Νομίζω πως πρέπει να θέλω τον εξής συνδυασμό: η τελευταία σκληρή+η τελευταία >/ 750m/sec +όλες μειώνονται+παίρνω μόνον την διεπιφάνεια όπου μειώνεται "σημαντικά"...Διότι αν δεν μιλώ με νούμερα και μιλώ μόνον με ανισότητες τότε δεν λαμβάνω υπόψη την πελαγονική ζώνη!!

2)θα ορίσει υπόβαθρο, εκεί όπου θα υπάρχει απλώς "αλλαγή". Δεν λέω αν θα σκληραίνει ή θα μαλακώνει! Ούτε ψάχνω "πόσο" θα σκληραίνει. Ούτε αν σκληραίνει "σημαντικά". Ούτε αν θα γίνεται "συστηματικά" (πέραν του ότι έκανα ισοδύναμες σε πάχος όλες τις στρώσεις),
3)αν είναι μαλακή η τελευταία θα πάει ούτως ή άλλως στην τελευταία,

• (? μπορεί να είναι μαλακή η τελευταία και να τύχει μια επικρεμάμενη σκληρότερη; ΟΧΙ)
• (? μπορεί να είναι μαλακή η τελευταία και να τύχει μια διεπιφάνεια με μαλακότερη; ΟΧΙ!)