DMUG-Archiv 2020

Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

[Dmug] DMSString

Es wird ... gerechnet ...

In[9]:= $Version
Out[9]= "12.0.0 for Microsoft Windows (64-bit) (April 6, 2019)"

In[10]:= DMSString[\[Pi]/(2 \[Degree])]
Out[10]= " Pi               \
      Pi                           Pi Pi          \
                  Pi                     Pi
                                    60 (-------- - \
IntegerPart[--------]) - IntegerPart[60 (-------- - \
IntegerPart[--------])]   IntegerPart[60 (-------- - \
IntegerPart[--------])]
                           Pi           2 Degree               2 \
Degree                     2 Degree               2 Degree            \
          2 Degree               2 Degree
IntegerPart[IntegerPart[--------] + ------------------------------------------------------------------------------------------ \ 
+ --------------------------------------------------]
                        2 Degree                                      \
60                                                          \
60\[Degree]                                              \
     Pi                     Pi Pi           \
          Pi                            Pi Pi     \
Pi                     \
Pi                           Pi Pi                \
            Pi                     Pi
                                            60 (-------- - \
IntegerPart[--------]) - IntegerPart[60 (-------- - \
IntegerPart[--------])]   IntegerPart[60 (-------- - \
IntegerPart[--------])]                                       60 (-------- \
- IntegerPart[--------]) - IntegerPart[60 (-------- - \
IntegerPart[--------])]   IntegerPart[60 (-------- - \
IntegerPart[--------])]
                                   Pi           2 Degree              \
 2 Degree                     2 Degree               2 Degree         \
             2 Degree               2 Degree                          \
       Pi           2 Degree               2 Degree                   \
  2 Degree               2 Degree                      2 Degree       \
        2 Degree
Abs[IntegerPart[60 (IntegerPart[--------] + ------------------------------------------------------------------------------------------ \ 
+ -------------------------------------------------- - \
IntegerPart[IntegerPart[--------] + ------------------------------------------------------------------------------------------ \ 
+ --------------------------------------------------])]]
                                2 Degree                              \
60                                                  \
60                                               \
    2 Degree 60        \
60'0.\
000\""
... N[%10] ergibt keine 90 Grad , Simplify[%10] und FullSimplify[%10] geben den Input zurück - tadah! 


In[11]:= DMSString[N[\[Pi]/(2 \[Degree])]]
Out[11]= "90\[Degree]0'0.000\""


In[12]:= DMSString[0]
Out[12]= "0\[Degree]0'0\""


In[13]:= DMSString[0 \[Degree]]
Out[13]= "0\[Degree]0'0\""


In[15]:= DMSString[90]
Out[15]= "90\[Degree]0'0\""


In[16]:= N[\[Pi]/(2 \[Degree])]
Out[16]= 90.


Grüsse

Udo.



_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html
Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

DMUG DMUG-Archiv, http://www.mathematica.ch/archiv.html