听素数
听素数---一个异想天开的想法,可是有人认真的做了大量研究,这个人还是个大教授,CHRIS K. CALDWELL: 是University of Tennessee at Martin还在授课的教授,
同时管理已知5000最大素数数据库.
严肃的数论专家在1997年专门研究"听素数"的方法,并编写一批midi,
见 http://www.utm.edu/research/primes/programs/
觉得有趣,现在我用MMA实现,很简单,可以发挥想象力,生成优美音乐
游戏而已!!!
Sound&/@{2,3,5,7,11}] 续1 听文字
按文字的编码转换为音符,播放
适用asc编码或拼音,不适用听汉字,汉字编码有几千个,不能精确分辨
英文只有几十个不同编码A---z 空格和标点一律用一个超低音,可以精确分辨
一个听文字(命令或其他)的实例是军队的军号:
很久很久以前,
曾亲眼见证一个训练有素的连长,在野外训练场,听见军号声后立即返回连部
原来号声点名要7连连长返回,
神奇之处在于号声可以点名每一个官兵(专门的号譜)
(* 听文字 *)
Clear["Global`*"]
Print["听文本:"]
str="A string-zero"
lists=Characters
list=ImportString
Do[
If]>=65,list[]-=77,list[]=-20],
{i,Length}]
s=Sound&/@list]
Export["C:\\Users\\Administrator\\Documents\\hear\\string.mid", s]
Import["C:\\Users\\Administrator\\Documents\\hear\\string.mid"]
本帖最后由 dlpg070 于 2019-8-28 09:30 编辑
续2 听数字
此后不再听怪异的声音
现在体验MMK对mp3的支持
下面的例子听电话键盘的对应数字
需要的素材:
1 预先建立目录 hear
2 准备好0.MP3,---,9.MP3 复制到hear
许多MP3制作工具,最简单的是 windows的录音机
音源可以选自中小学课文的录音,有声课外读物,有声字典,或你自己读等
3 这个例子模仿某个实际应用
(*========= 听数字---mp3*)
Clear["Global`*"]
Print["听数字---电话键盘读拨号mp3: 请按数字键试一试"]
t=Table<>".mp3"],{i,1,9}];
AppendTo<>".mp3"]];
AppendTo<>".mp3"]];
AppendTo<>".mp3"]];
list={"1","2","3","4","5","6","7","8","9","*","0","#"};
t1=Table],EmitSound]]]],{i,12}];
Grid]
Print["end!"]
KeyTo9_Fans 发表于 2019-8-28 10:12
该课题意义重大！速做！
如缺少资源，可向我求助。
这里是"开心茶馆",你的课题与我无关,我说了:"游戏而已",茶余饭后,摆摆龙门阵,侃大山,莫当真. 续3 听数列
本以为CHRIS K. CALDWELL 教授的听素数的怪异想法,不再有人感兴趣,
却发现有人研究得更深入,水平更高
比如
1. OEIS竟然对全部数列都在线实现 Play和Save(生成)midi,作者: David Applegate
例如 http://oeis.org/play?seq=A001223
2.由任意数字产生midi:
http://musicalgorithms.ewu.edu/algorithms/import.html
这部分受 KeyTo9_Fans的主题帖: "[灌水] 如何创作高质量的音乐"启发
临时增加.
灌水灌出新高度
佩服
续4 多媒体
本打算藉"听素数"的由头学习mma的"Sound"强大功能
当看到它支持 ".mp3",".mid",".mov",".avi"时欣喜若狂,
可是深入研究后大失所望
总体上"Sound"部分功能优秀,
但多媒体multimedia功能太弱,
.mov 和.avi 与标准定义完全不同,不具备多媒体播放功能
mma中不能Import/Export音视频文件
怕我的理解有误,下面摘录参考资料佐证
AVI (Import/Export Format)
Registered MIME type:video/avi
原始功能:audio and video
Stores audio and video content in a format suitable for synchronous playback.
mma功能:只graphics images
Import["file.avi"] imports an AVI file and returns a list of frame indices.
Export["file.avi",lExport["file.mov",list] exports a list of graphics,images,
or arbitrary expressions,taking each element to be a video frame.ist]
exports a list of graphics,images,or arbitrary expressions,taking each element to be an animation frame.
QuickTime (Import/Export Format)
Registered MIME type:video/quicktime
原始功能:audio and video
Stores audio and video in a format suitable for synchronous playback.
mma功能:只graphics images
Import["file.mov"] imports a QuickTime file and returns a list of frame indices.
Export["file.mov",list] exports a list of graphics, images,
or arbitrary expressions, taking each element to be a video frame.
另外,mma很难播放实际的midi音乐(3-5分钟)
如果有人有高招,请告诉我
优秀的mma,也有短板,还有发展空间
暂时学习到此.
页:
[1]