Re: Länge einer IntervalUnion (eines Intervals)

[su.krause@XXXXXXX.ch]

Hallo Dominik, 

einfacher gesagt:

In[5]:= o = Flatten[List @@ Interval[{3, 6}, {7, 26}, {29, 30}]];
        Dot[o, Table[(-1)^j, {j, Length[o]}]] 

Out[6]= 23

Finden Sie 3 weitere, von diesen beiden verschiedene, Lösungen. 

Mit den besten Grüssen
Udo.

>-- Original-Nachricht --
>From: "Jens-Peer Kuska" <kuska@XXXXXXX.de>
>To: "Dominik Hezel" <d.hezel@XXXXXXX.de>, <demug@XXXXXXX.ch>
>Subject: Re: Länge einer IntervalUnion (eines Intervals)
>Date: Fri, 29 Apr 2005 18:23:22 +0200
>
>
>Hallo,
>
>wie wär's mit
>
>Plus @@ Subtract @@@ Reverse /@ List @@ 
>Interval[{3, 6}, {7, 26}, {29, 30}]
>
>??
>
>Gruß
>
>  Jens
>
>----- Original Message ----- 
>From: "Dominik Hezel" <d.hezel@XXXXXXX.de>
>To: <demug@XXXXXXX.ch>
>Sent: Friday, April 29, 2005 9:32 AM
>Subject: Länge einer IntervalUnion (eines 
>Intervals)
>
>
>> Liebe Kollegen,
>>
>> ich habe folgendes Problem in Mathematica: ich 
>> würde gerne die Länge
>> einer IntervalUnion berechnen lassen. Als 
>> Ergebnis einer IntervalUnion
>> bekommt man bekanntlich ein Resultat wie etwa: 
>> Interval[{3, 6}, {7, 26},
>> {29, 30}]. Ich würde nun gerne die Differenzen 
>> der Einzelintervalle
>> berechnen und am besten gleich noch summieren 
>> lassen; also:
>> (6-3)+(26-7)+(30-29). Ich habe keine Ahnung, wie 
>> das machbar ist. Ich
>> habe auch in den Referenzen nichts gefunden. 
>> Meine Mathematica-Erfahrung
>> ist auch noch sehr rudimentär. Für Hilfe wäre 
>> ich sehr dankbar.
>>
>>   Herzlichen Gruß,
>>
>>     Dominik Hezel
>>
>> _________________
>> Dr. Dominik Hezel
>> Institut für Geologie und Mineralogie
>> der Universität zu Köln
>> Zülpicherstr. 49b
>> 50674 Köln
>> Tel.: +49 (0221) 470-3197
>> e-mail: d.hezel@XXXXXXX.de
>>
>> http://www.cosmochemistry.org
>>
>>
>>
>> 
>
>