ปัญหา cuTexRefSetAddress2D_v3

พอดีว่าลงWindows 7 64bit กับ Mathematica 11.1.1 ใหม่ แล้วเจอปัญหา  ตามภาพด้านล่างตอนใช้ CUDALink พอเช็คดูเวอร์ชั่นของ nvidia driver ที่ใช้กับการ์ดจอ (Quadro 2000)ด้วยคำสั่ง CUDADriverVersion[] พบว่าเป็นรุ่นเก่ามากคือ27x.x  เลยทำการ update เป็นตัวใหม่กว่าคือ 377.55จากนั้นก็ลองใช้ QUDAQ[] ใหม่เช็คดูปรากฎว่าไม่มีปัญหาแล้วสามาถใช้งานได้ตามปกติ

INDIA + CHINA = JAPAN

เห็นมีคนโพสท์ถามกันใน FB ว่า INDIA + CHINA = JAPAN โดยที่ตัวอักษรอังกฤษแต่ละตัวแทนเลขโดด อักษรต่างกันแทนเลขต่างกัน

ผมก็เขียนด้วยภาษาวุลแฟรมแก้ปัญหานี้แบบง่ายๆได้ตามนี้ครับ

num = Range[0, 9];
bigls = Permutations[num, {8}];

outls = Reap[
 (Clear[i, n, d, a, c, h, j, p];
 {i, n, d, a, c, h, j, p} = #;
 If[
 FromDigits@{i, n, d, i, a} + FromDigits@{c, h, i, n, a} == 
 FromDigits@{j, a, p, a, n}
 , Sow[#]]) & /@ bigls][[2, 1]];

โดยคำตอบที่ได้คือ

((#1 -> #2 & @@@ ({{i, n, d, a, c, h, j, p}, #}\[Transpose])) & /@ 
 outls)

{{i -> 6, n -> 8, d -> 3, a -> 4, c -> 2, h -> 5, j -> 9, 
 p -> 0}, {i -> 8, n -> 4, d -> 6, a -> 2, c -> 0, h -> 7, j -> 9, 
 p -> 5}}

หรือ

{"INDIA = " <> ToString@FromDigits@({i, n, d, i, a} /. #), 
 "CHINA = " <> ToString@(FromDigits@({c, h, i, n, a}) /. #), 
 "JAPAN = " <> 
 ToString@(FromDigits@({j, a, p, a, 
 n}) /. #)} & /@ ((#1 -> #2 & @@@ ({{i, n, d, a, c, h, j, 
 p}, #}\[Transpose])) & /@ outls)

{{"INDIA = 68364", "CHINA = 25684", 
 "JAPAN = 94048"}, {"INDIA = 84682", "CHINA = 7842", 
 "JAPAN = 92524"}}

วิธีการก็เพียงสร้างลิสของตัวเลข 8 ตัวตามจำนวนอักษรที่เป็นไปได้ทั้งหมด แล้วก็หาดูว่าชุดไหนที่มันตรงตามเงื่อนไข

 

 

เรียก Mathematica มาใช้ใน R

อยากใช้ Mathematica ใน R แต่ไม่มีใครเขียน package ไว้ผมก็เลยเขียนเองมันซะเลยเรียกมันว่า WolfinR เอาไว้ใช้ในกันภายในที่ทำงานครับ

จริงอยู่อยู่ว่า Mathematica มีแพคเกจที่เรียกว่า RLink ครับแต่ก็อยากใช้มันจาก R ครับไม่มีอะไร

 

Mathematica กับ OCR ภาษาไทย

ทดลองเล่นคำสั่ง TextRecognize ของ Mathematica กับภาษาไทย ทั้งที่ Wolfram ก็ไม่ได้บอกว่ามันใช้ได้กับภาษาไทยแต่ผมเห็นว่ามันใช้ได้กับภาษาลาวก็เลยลองกับภาษาไทยดู ปรากฏว่าใช้ได้ด้วย

ถือว่าใช้ได้ดีทีเดียว แต่ผลที่ได้มันก็ขึ้นกับขนาดและความละเอียดของภาพพอสมควรเลย

 

ภาพเคลื่อนไหวสวยๆ

ติดตามงานเวบนี้มาสักระยะแล้ว ภาพเคลื่อนไหวสวยๆที่สร้างมาจาก Mathematica

http://intothecontinuum.tumblr.com/