มีน้ำใจ ไม่อวดตัว มั่วไม่ทำ

สมัครสมาชิกฟรีเพื่อเห็นไฟล์แนบและดาวน์โหลดไฟล์ ขออภัยในความไม่สะดวก

ขอต้อนรับ ผู้มาเยือน กรุณา ล็อกอิน หรือ สมัครสมาชิก

ล็อกอินด้วยชื่อผู้ใช้ รหัสผ่่าน และระยะเวลาใช้งาน

 
Advanced search

41139 Posts in 6136 Topics- by 7772 Members - Latest Member: น้องดิว
mPEC Forumบทเรียนการใช้โปรแกรม Mathematica (Moderator: psaipetc)ทำโปสเตอร์หนังเล่นกันครับ
Pages: 1   Go Down
Print
Author Topic: ทำโปสเตอร์หนังเล่นกันครับ  (Read 6605 times)
0 Members and 1 Guest are viewing this topic.
Bright
neutrino
*
Offline Offline

Posts: 212

เราเป็นอย่างไร สังคมเป็นอย่างนั้น


« on: January 26, 2012, 11:54:11 PM »


ที่จะทำก็คือจะดึงภาพโปสเตอร์ของหนังจากเวบเช่น http://www.majorcineplex.com/movie_all.php


มารวมกันทำเป็นรูปโปสเตอร์อันใหม่โดยอาศัยMathematicaดูครับ (ครับ...จริงๆก็แค่ ก๊อปภาพแล้วไปแปะในโปรแกรมอย่าง Paint ก็ได้ครับ
ง่ายกว่าด้วยไม่ต้องเขียน code ให้ปวดหัว hahaha  Grin)

อันนี้เป็นตัวอย่าง Mathematica ที่เขียนขึ้นครับ

webpage = StringSplit[Import["http://www.majorcineplex.com/movie_all.php", "Source"]];

movieurl =  Select[webpage, StringLength[ #] >= 5 && StringMatchQ[ #, "src" ~~ ___ ~~ "cropImage" ~~ __] &];

importPoster[movieurl_] := Module[{url},
   url = "http://www.majorcineplex.com/" <> StringDrop[movieurl, 5];
   Import[url]
   ];

movie10 = importPoster[ #] & /@ movieurl[[1 ;; 15]];

imagegrid =ImageAssemble[Partition[movie10, 5] /. x_Image :> ImagePad[ImagePad[ImageResize[x, {512, 755}], 3, White], 20, Black]];

ImageResize[ImagePad[imagegrid, 150, Black], {800, 600}]




ใครเบื่อๆก็ลองเล่นดูครับ  Smiley
Logged
ปิยพงษ์ - Head Admin
Administrator
SuperHelper
*****
Offline Offline

Posts: 6265


มีน้ำใจ ไม่อวดตัว มั่วไม่ทำ


WWW
« Reply #1 on: January 27, 2012, 07:13:53 AM »

ขอบคุณครับ  Smiley
Logged

มีน้ำใจ ไม่อวดตัว มั่วไม่ทำ
psaipetc
Moderator
SuperHelper
*****
Offline Offline

Posts: 653


kostuff.blogspot.com


WWW
« Reply #2 on: January 27, 2012, 10:45:15 AM »

เจ๋งดีครับ   Smiley
Logged

Life Lessons (related to science anyway):
http://www.guardian.co.uk/print/0,3858,5164417-111414,00.html
last
neutrino
*
Offline Offline

Posts: 342


« Reply #3 on: January 28, 2012, 12:00:53 AM »

Bright ครับ
ผมลองเปลี่ยนเป็นเว็บอื่นในโค้ดแล้วไม่ได้ผล  idiot2
(เปลี่ยนสองจุดน่ะ)
ทำให้ดึงภาพจากทุกเว็บได้ไหม? Smiley
Logged
Bright
neutrino
*
Offline Offline

Posts: 212

เราเป็นอย่างไร สังคมเป็นอย่างนั้น


« Reply #4 on: January 28, 2012, 10:39:45 PM »

เปลี่ยนให้ดึงภาพจากทุกเวบคงยากครับด้วยเทคนิคง่ายๆแบบนี้
ในตัวอย่างนี้ผมแอบเปิดดู code ที่เค้าเขียนขึ้นมาครับ
ถึงรู้ว่าเค้าภาพมาจากไหนและมันมีรูปแบบของurlแบบไหนครับ  Smiley
จากนั้นจึงให้Mathematica ดึงเอาurl ของภาพที่ต้องการนั้นออกมา

ถ้าจะให้สามารถดึงได้ทุกเวบคงต้องเขียน Mathematica ซับซ้อนกว่าล่ะนี้ครับ
Logged
Pages: 1   Go Up
Print
Jump to:  

คุณสมบัติของเด็กดี

ไม่ฟังเวลามีการนินทากัน ไม่มองหาข้อด้อยของผู้อื่น ไม่พูดนินทาเหยีบบย่ำผู้อื่น