Re: BitNot[1234] geht, BitNot[BaseForm[1234, 10]] nicht

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo Peter,

> warum bringt BitNot[1234] das erwartete Ergebnis,
> aber BitNot[BaseForm[1234, 10]] nicht?

wie Jens-Peer schon gesagt hat

In[34]:= BaseForm[8, 10] + BaseForm[9, 10]
Out[34]= 8 + 9

wegen

In[62]:= BaseForm[8, 10] + BaseForm[9, 10] // FullForm
Out[62]//FullForm= Plus[BaseForm[8, 10], BaseForm[9, 10]]

addiert Plus[] soetwas zu Recht nicht, sonst kommt noch jemand daher mit  
'Geld - Zeit' (da soll angeblich 0 rauskommen). Aber eine einzige Zeile  
kann das ändern:

In[75]:= Remove[klamsersR]
klamsersR :=
 BaseForm[x_Integer, y_Integer] \[RuleDelayed] FromDigits[IntegerDigits[x,  
y], y]

In[84]:= BaseForm[8, 10] + BaseForm[9, 10] /. klamsersR
Out[84]= 17
In[87]:= BaseForm[8, 5] + BaseForm[9, 7] /. klamsersR
Out[87]= 17

In[89]:= BitNot[BaseForm[1234, 10]] /. klamsersR
Out[89]= -1235
In[91]:= BitNot[1234]
Out[91]= -1235
In[94]:= BitNot[BaseForm[1234, 1234/617]] /. klamsersR
Out[94]= -1235

Schönen Sonntagabend
Udo.







--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/