Re: Aufgabe::Locked wertfrei

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

wohl nix sinnvolles zu tun, so zwischen Weihnachten und Silvester ??

Last /@ Cases[(# ==
     ReleaseHold[#]) & /@ (ToExpression[#, StandardForm, Hold] & /@
    Select[Names["*"], (Attributes @@
         ToExpression[#, StandardForm, Hold]) === {Locked,
        Protected} &]), Hold[a_] == a_]

oder

{Fail, False, List, Symbol, TooBig, True, $Aborted, $Off, $PrintLiteral}

Und im Übrigen *hat* das Symbol  I einen Wert nämlich Sqrt[-1] oder 
Complex[0,1]
was auch gern in Büchern über komplexe Zahlen vermerkt wird oder
unter http://mathworld.wolfram.com/ComplexNumber.html ,
weshalb es auch im Ergebnis nicht auftauchen darf.

Gruss & Frohes neues Jahr auch an alle Mathematica Benutzer
 Jens

Udo und Susanne Krause wrote:
> Hallo allenthalben,
>
> man schreibe einen Einzeiler, der unter den Mathematicasymbolen mit 
> Attribute Locked die nichtbewerteten findet.
>
> Beispielsweise sollte $TimeUnit
>
> In[94]:= Attributes[$TimeUnit]
> Out[94]= {Locked, Protected}
>
> wegen
>
> In[95]:= $TimeUnit
> Out[95]= 1/1000
>
> nicht als Ergebnis des Einzeilers erscheinen, dagegen
>
> In[96]:= Attributes[I]
> Out[96]= {Locked, Protected, ReadProtected}
>
> In[97]:= I
> Out[97]= \[ImaginaryI]
>
> die imaginäre Einheit schon.
>
> Mit den besten Grüssen
> Udo.
>
> --Using Opera's revolutionary e-mail client: http://www.opera.com/mail/