Union et intersection sur des intervalles de réels

**Juan** · 22/01/2008, 21h37

Salut !

Je cherche s'il n'existe pas par hasard de types et de fonctions dans delphi qui me permettraient de faire ce genre d'opérations Union ou Intersection :

[2,6 ; 3,9] Union [3,1 ; 4,6] = [2,6 ; 4,6]

ou

[2,6 ; 3,9] Intersection [3,1 ; 4,6] = [3,1 ; 3,9]

ça existe ça ?

merci de votre aide

**Archimède** · 22/01/2008, 21h58

pour l'union, tu peux essayer de faire quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
type Tinterval=record
min,max:extended;
end;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    int1,int2:Tinterval;
    function union(i1,i2:Tinterval):Tinterval;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
with int1 do begin
min:=2.1;
max:=4.5;
end;
 
with int2 do begin
min:=1.1;
max:=3.3;
end;
 
caption:='l''intervalle union est['+ floattostr(union(int1,int2).min)+' , '+ floattostr(union(int1,int2).max)+' ]';
end;
 
function Tform1.union(i1,i2:Tinterval):Tinterval;
begin
if i1.min<i2.min then result.min:=i1.min else result.min:=i2.min;
if i1.max>i2.max then result.max:=i1.max else result.max:=i2.max;
end;
 
end.

pour l'intersection, je te laisse faire lol

**Juan** · 23/01/2008, 06h29

lol

euh oui merci j'aurai pu trouver ça !

non, l'idée, c'est de retrouver des opérateurs aussi souples que + et * pour des "set of integer". Faire un genre de "set of double" sans être obligé d'en recoder toutes les subtilités...

Il n'existe donc rien de tout cuit pour faire ça ??

**Archimède** · 23/01/2008, 09h12

désolé,je ne vois pas quelque chose qui peut ressembler à ça. lol

**mengwei** · 28/01/2008, 13h54

comme tu le dis, le fameux

Opérateur Opération
+ union
– différence
* intersection
<= sous-ensemble
>= sur-ensemble
= égalité
<> différence
in inclusion

dans l'aide de delphi, sous "opérateurs d'ensembles" ne marche pas sur des ensembles de flottants déterminé comme tu le souhaites ( [2,6...3,1]). Donc pas le choix, tu vas devoir te le coltiner par le code... Cela dit si tu es sur une version >= Delphi 2005, tu dois avoir la possibilité de surcharger les opérateurs (enfin il me semble et je ne sais pas trop dans quelles mesures... je suis un ancêtre moi, je bosses sur D7 maximum)

**CapJack** · 28/01/2008, 22h10

Archimède, une réunion d'intervalles n'est pas nécessairement un intervalle ! Il faudrait sans doute créer un objet "union dénombrable d'intervalles" (dérivé de TList ?) pour pouvoir gérer convenablement tous les cas de figure.

**Juan** · 31/01/2008, 13h16

Effectivement, j'ai du me taper le tout à la main.

Enfin pas le tout, j'ai développé l'union et la différence, je peux me débrouiller à partir de ces deux opérations.

Pour info et si ça intéresse qqn, je fais ça avec des objectlist :

function Union(OL : TObjectList) : TObjectList
et function Soustraire(OL : TObjectList) : TObjectList
avec des objets du type intervalle : [Min, Max] (Min et Max double)

Je tiens mon code à disposition sur demande, et suis tout ouïs (?) pour toutes remarques / idées d'améliorations que vous auriez.

tcho !

**Archimède** · 31/01/2008, 19h18

Envoyé par CapJack

Archimède, une réunion d'intervalles n'est pas nécessairement un intervalle !

autant pour moi, c'est tout à fait vrai...j'avais répondu dans l'urgence sans approfondir le truc.

**Gilbert Geyer** · 01/02/2008, 12h55

Bonjour,

Je vous signale à toutres fins utiles que dans cette discussion :http://www.developpez.net/forums/sho...D7Older&page=4
vous pourrez trouver en pièces jointes les fichiers des codes de Sjrd nommés BigSetD7Older.pas (page 4) et de IntSetD7Older.pas (page suivante) qui permettent de faire des opérations d'union, d'intersection, etc, sur des grands ensembles de valeurs entières et qui sont hyper-rapides à l'exécution (testé sous Win98 + Delphi-5). En les modifiant pour les faire fonctionner avec des valeurs du type Real ou Extended le problème devrait être résolu.

A+

P.S : je n'ai pas testé le code nommé dyBigSet.pas que Tourlourou a ajouté après un silence de 4 mois à la fin de cette discussion.

EDIT même jour, 13h17 : vu que les réels cités au début en exemple par Juan :

[2,6 ; 3,9] Union [3,1 ; 4,6] = [2,6 ; 4,6]

ou

[2,6 ; 3,9] Intersection [3,1 ; 4,6] = [3,1 ; 3,9]

sont des réels avec un seul chiffre après la virgule il suffit de multiplier ces valeurs par 10 et d'utiliser BigSetD7Older.pas ou IntSetD7Older.pas sans avoir à en modifier le code.
... et idem s'il s'agit de réels avec kmax chiffres après la vigule : suffit de multiplier par 10Puissancekmax.