Mathematica 13 เราเลือกได้

Mathematica 13 เราเลือกได้ว่าจะติดตั้งแต่โปรแกมอย่างเดียวไม่เอาเอกสาร help หรือเอาทั้งโปรแกรมหรือเอกสาร help ได้ ดีมากเลย ประหยัดเนื้อที่ไปได้เยอะเลย ลงทั้งหมด 19 GB แต่ถ้าลงเฉพาะโปรแกรมเหลือ 6GB

แก้โจทย์เลขสนุกๆ

ข้อนี้เราสามารถเขียนcode ง่ายๆในภาษาWolfram ได้ครับ ไอเดียก็เอาเลขหน้ามาเรียงกันแล้วหาว่ามีเลขโดดกี่ตัว การเรียงเลขเราก็เพียงใช้คำสั่ง Range ตั้งแต่หน้า 1 ถึง หน้าที่ต้องการแล้วก็นับว่ามีเลชโดดกี่ตัวด้วยการประยุกต์ใช้คำสั่ง IntegerDigits

รับหลายค่าFormPage

เราสามารถประยุกต์ใช้คำสั่ง DelimitedSequence มาใช้ได้ครับ เช่น

โดยที่ชนิดของตัวแปรใน DelimitedSequence ก็สามารถกำหนดได้เช่นเดียวกันกับ FormPage/FormFunction เลย

เปลี่ยนข้อความเมื่อเลื่อนเม้าส์ไปโดน

ตัวอย่าง code ง่ายๆในภาษา Wolfram เผื่อเป็นประโยชน์ครับ

OverviewMouseover[header_, subs_] := 
 CellPrint@
  Cell[BoxData[
    ToBoxes@Mouseover[
      Framed[Style[header, "OverviewSection"], 
       FrameMargins -> {{15, 15}, {5, 5}}, FrameStyle -> None, 
       RoundingRadius -> 5],
      
      Evaluate@
       If[subs == "", 
        Framed[Style[header, "OverviewSection", White], 
         FrameMargins -> {{15, 15}, {5, 5}}, FrameStyle -> None, 
         RoundingRadius -> 5, Background -> m8red[1]], 
        Row[{Framed[Style[header, "OverviewSection", White], 
           FrameMargins -> {{15, 15}, {5, 5}}, FrameStyle -> None, 
           RoundingRadius -> 5, Background -> m8red[1]], " » ", 
          Framed[Style[subs, "OverviewSection"], 
           FrameMargins -> {{15, 15}, {5, 5}}, FrameStyle -> m8red[1],
            RoundingRadius -> 5, Background -> White]}]]]], 
   "OverviewSection"]
%d bloggers like this: