听素数

dlpg070

听素数---一个异想天开的想法,可是有人认真的做了大量研究,这个人还是个大教授,
CHRIS K. CALDWELL: 是University of Tennessee at Martin  还在授课的教授,
同时管理已知5000最大素数数据库.
严肃的数论专家在1997年专门研究"听素数"的方法,并编写一批midi,
见 http://www.utm.edu/research/primes/programs/

觉得有趣,现在我用MMA实现,很简单,可以发挥想象力,生成优美音乐
游戏而已!!!

1. Sound[SoundNote[#,1.75, "Trumpet"]&/@{2,3,5,7,11}]

复制代码

dlpg070

续1 听文字
按文字的编码转换为音符,播放
适用asc编码或拼音,不适用听汉字,汉字编码有几千个,不能精确分辨
英文只有几十个不同编码A---z 空格和标点一律用一个超低音,可以精确分辨

一个听文字(命令或其他)的实例是军队的军号:
很久很久以前,
曾亲眼见证一个训练有素的连长,在野外训练场,听见军号声后立即返回连部
原来号声点名要7连连长返回,
神奇之处在于号声可以点名每一个官兵(专门的号譜)

1. (* 听文字 *)
   
2. 
   
3. Clear["Global`*"]
   
4. Print["听文本:"]
   
5. str="A string-zero"
   
6. lists=Characters[str]
   
7. list=ImportString[str,"Integer8" ]
   
8. Do[
   
9. If[list[[i]]>=65,list[[i]]-=77,list[[i]]=-20],
   
10. {i,Length[list]}]
    
11. s=Sound[SoundNote[#,1.00, "Trumpet"]&/@list]
    
12. 
    
13. Export["C:\\Users\\Administrator\\Documents\\hear\\string.mid", s]
    
14. Import["C:\\Users\\Administrator\\Documents\\hear\\string.mid"]
    

复制代码

dlpg070

续2 听数字
此后不再听怪异的声音
现在体验MMK对mp3的支持
下面的例子听电话键盘的对应数字
需要的素材:
1 预先建立目录 hear
2 准备好0.MP3,---,9.MP3 复制到hear
  许多MP3制作工具,最简单的是 windows的录音机
  音源可以选自中小学课文的录音,有声课外读物,有声字典,或你自己读等
3 这个例子模仿某个实际应用

1. (*========= 听数字---mp3*)
   
2. Clear["Global`*"]
   
3. Print["听数字---电话键盘读拨号mp3: 请按数字键试一试"]
   
4. t=Table[Import["C:\\Users\\Administrator\\Documents\\hear\"<>ToString[i]<>".mp3"],{i,1,9}];
   
5. 
   
6. AppendTo[t,Import["C:\\Users\\Administrator\\Documents\\hear\"<>ToString[0]<>".mp3"]];
   
7. AppendTo[t,Import["C:\\Users\\Administrator\\Documents\\hear\"<>ToString[0]<>".mp3"]];
   
8. AppendTo[t,Import["C:\\Users\\Administrator\\Documents\\hear\"<>ToString[0]<>".mp3"]];
   
9. list={"1","2","3","4","5","6","7","8","9","*","0","#"};
   
10. 
    
11. t1=Table[With[{i=i},Button[list[[i]],EmitSound[t[[i]]]]],{i,12}];
    
12. Grid[Partition[t1,3]]
    
13. Print["end!"]
    

复制代码

dlpg070

KeyTo9_Fans 发表于 2019-8-28 10:12
该课题意义重大！速做！

如缺少资源，可向我求助。

这里是"开心茶馆",你的课题与我无关,我说了:"游戏而已",茶余饭后,摆摆龙门阵,侃大山,莫当真.

dlpg070

续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的主题帖: "[灌水] 如何创作高质量的音乐"启发
  临时增加.
  灌水灌出新高度
  佩服

dlpg070

续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,也有短板,还有发展空间
暂时学习到此.