ปัญหา 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,

maemod package

จากที่เคยเขียนไว้เกี่ยวกับ r package อันหนึ่งที่ผมเขียนชื่อ maemod สำหรับช่วยให้คนที่สนใจอยากคำนวณพวก ode ได้ง่ายขึ้น (ดูข้างล่าง) maemod (แม่มด) มีคนสนใจว่าถ้าพวกตัวแปร state ต่างๆนั้นเป็นแบบ array จะทำอย่างไร ผมเลยเขียนตัวอย่างพร้อมกับเพิ่มความสามารถด้านarrayนี้เข้าไป พอใช้ได้ไปคร่าวๆก่อน ดูตัวอย่างข้างล่างนี้ครับ # Example from Berkeley Madonna # for using Array # METHOD RK4 # # STARTTIME = 0 # STOPTIME = 20 # DT = 0.02 # # d/dt (A[1]) = -k[1]*A[1] # d/dt (A[2..n-1]) = k[i-1]*A[i-1]-k[i]*A[i]

Univariate distribution relationships

แปะเอาไว้ จะทำMLก็ต้องรู้เรื่องพวกนี้ไว้บ้างนะ (เตือนตัวเอง) ที่มา http://www.math.wm.edu/~leemis/chart/UDR/UDR.html    

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

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

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

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

neural network ใน Mathematica

แปะไว้ก่อน กำลังสับสนอย่างเป็นระบบค่อยเป็นค่อยไป https://mathematica.stackexchange.com/questions/123458/how-do-you-make-a-neural-net https://mathematica.stackexchange.com/questions/124977/qa-mathematica-v-11-neural-networks-a-comprehensive-look-at-layers-net-functi  

ส่งผ่านค่าจาก url เข้ามาใน shiny app

ตัวอย่างรับค่าจาก url เข้ามาใช้ใน shiny app ครับ library(shiny) shinyApp( ui = fluidPage( textInput("text", "Text",""), textInput("text2", "Text2","") ), server = function(input, output, session) { observe({ query <- parseQueryString(session$clientData$url_search) if (!is.null(query[['text']])) { updateTextInput(session, "text", value = query[['text']]) } if (!is.null(query[['text2']])) { updateTextInput(session, "text2", value = query[['text2']]) } }) } ) ลองดูเพิ่มเติมที่ https://shiny.rstudio.com/articles/client-data.html

Mathematica package รวบรวมคำสั่งเมีย

ศรีภรรยาผมขอบมีคำถามเกี่ยวกับคอมพิวเตอร์แปลกๆมาถามเสมอ เช่นไอ้โน้น ไอ้นี่ทำไง สุดท้ายผมก็ต้องทำอยู่ดีขัดคำสั่งไม่ได้ โดยแต่ล่ะคำถามก็จะไปจบที่ผมต้องเขียนโปรแกรมเพื่อแก้ปัญหาให้ ซึ่งส่วนใหญ่ผมจะเขียนโดยใช้ภาษา Wolfram ครับ โดยทุกวันนี้เริ่มมีจำนวนคำสั่งมากขึ้นเรื่อย ตอนนี้ก็น่าจะประมาณ 20 คำสั่งได้ ผมก็เลยคิดว่าถ้าเช่นนั้นผมก็เอามารวมเป็น package เลยแล้วกันเผื่อว่าใครอยากจะใช้ด้วย โดยคำสั่งส่วนมากจะเกี่ยวกับปัญหาทางด้าน bioinformatics ครับ ซึ่งมันอาจจะมี package หรือโปรแกรมภาษาอื่นทำในสิ่งที่ผมเขียนไว้นี้ไว้หมดแล้วก็ได้ แต่ผมไม่ได้เช็คนะครับเพราะไม่มีเวลาค้นดูและเวลามันจำกัดครับ ช้าไม่ได้เพราะผมอาจถึงแก่ชีวิตได้ ใครสนใจลองดูที่ https://github.com/slphyx/Nao ผมจะทยอยเพิ่มจำนวนคำสั่งเรื่อยๆครับ