1^# 跳转到 » 倒序看帖

字体大小: tT

发表于 2013-12-31 14:38 | 只看该作者

今天突然发现MMC是可以当音乐播放器的...

dt = 60/(118*4)

right = {SoundNote["F#5", 4 dt], SoundNote["B4", 2 dt],
  SoundNote["B4", 2 dt], SoundNote["D5", 4 dt],
  SoundNote["F#5", 4 dt], SoundNote["E5", 2 dt], SoundNote["E5", dt],
  SoundNote["F#5", dt], SoundNote["E5", 2 dt], SoundNote["D5", 2 dt],
  SoundNote["E5", 2 dt], SoundNote["D5", 2 dt], SoundNote["B4", 4 dt],
SoundNote["F#5", 4 dt], SoundNote["B4", 2 dt],
  SoundNote["B4", 2 dt], SoundNote["D5", 4 dt],
  SoundNote["F#5", 4 dt], SoundNote["A5", 2 dt], SoundNote["E5", dt],
  SoundNote["F#5", dt], SoundNote["E5", 2 dt], SoundNote["D5", 2 dt],
  SoundNote["E5", 2 dt], SoundNote["D5", 2 dt],
  SoundNote["C#5", 2 dt], SoundNote["A4", 2 dt],
  SoundNote["F#5", 4 dt], SoundNote["B4", 2 dt],
  SoundNote["B4", 2 dt], SoundNote["D5", 4 dt],
  SoundNote["F#5", 4 dt], SoundNote["E5", 2 dt], SoundNote["E5", dt],
  SoundNote["F#5", dt], SoundNote["E5", 2 dt], SoundNote["D5", 2 dt],
  SoundNote["E5", 2 dt], SoundNote["D5", 2 dt], SoundNote["B4", 4 dt],
SoundNote["F#5", 4 dt], SoundNote["B4", 2 dt],
  SoundNote["B4", 2 dt], SoundNote["D5", 4 dt],
  SoundNote["F#5", 4 dt], SoundNote["A5", 2 dt],
  SoundNote["F#5", 14 dt],(*开始*)SoundNote["B4", 4 dt],
  SoundNote["B4", 2 dt], SoundNote["A4", 2 dt], SoundNote["B4", 4 dt],
SoundNote["B4", 2 dt], SoundNote["D5", 2 dt],
  SoundNote["D5", 4 dt], SoundNote["E5", 2 dt], SoundNote["D5", 2 dt],
SoundNote["B4", 4 dt], SoundNote["B3", 2 dt],
  SoundNote["C#3", 2 dt], SoundNote[{"D4", "D5"}, 4 dt],
  SoundNote["D5", 2 dt], SoundNote["A4", 2 dt], SoundNote["D5", 2 dt],
SoundNote["E5", 2 dt], SoundNote["F#5", 2 dt],
  SoundNote["A5", 2 dt], SoundNote["A5", 2 dt],
  SoundNote["F#5", 2 dt], SoundNote["E5", 4 dt], SoundNote["E5", dt],
  SoundNote["F#5", dt], SoundNote["E4", 2 dt], SoundNote["F#4", 2 dt],
SoundNote["A4", 2 dt](*2*), SoundNote["B5", 2 dt],
  SoundNote["B5", 2 dt], SoundNote["B5", 2 dt], SoundNote["A5", 2 dt],
SoundNote["F#5", 2 dt], SoundNote["F#5", 4 dt],
  SoundNote["D5", 2 dt](*3*), SoundNote["B4", 2 dt],
  SoundNote["B4", 2 dt], SoundNote["B4", 2 dt],
  SoundNote["F#5", 2 dt], SoundNote["E5", 2 dt],
  SoundNote["D4", 2 dt], SoundNote["D4", 2 dt], SoundNote["E4", 2 dt],
SoundNote[{"F#4", "F#5"}, 2 dt], SoundNote["F#5", 2 dt],
  SoundNote["A5", 2 dt], SoundNote["F#5", 2 dt],
  SoundNote["E5", 2 dt], SoundNote["F#5", 2 dt],
  SoundNote["E5", 2 dt], SoundNote["D5", 2 dt], SoundNote["B4", 4 dt],
SoundNote[{"A4", "D3"}, 4 dt], SoundNote[{"B4", "B3"}, 8 dt](*第二段*),
SoundNote[{"B4", "F#4", "D4"}, 4 dt],
  SoundNote[{"B4", "D4"}, 2 dt], SoundNote[{"A4", "C#4"}, 2 dt],
  SoundNote[{"B4", "F#4", "D4"}, 4 dt], SoundNote[{"B4", "D4"}, 2 dt],
SoundNote[{"D5", "F#4"}, 2 dt],
  SoundNote[{"D5", "B4", "G4"}, 4 dt], SoundNote[{"E5", "E4"}, 2 dt],
  SoundNote[{"D5", "F#4"}, 2 dt], SoundNote[{"B4", "D4"}, 8 dt],
  SoundNote[{"D5", "A4", "F#4"}, 4 dt],
  SoundNote[{"D5", "F#4"}, 2 dt], SoundNote[{"A4", "E4"}, 2 dt],
  SoundNote[{"D5", "F#4"}, 2 dt], SoundNote[{"E5", "A4"}, 2 dt],
  SoundNote[{"F#5", "B4"}, 2 dt], SoundNote[{"A5", "C#4"}, 2 dt],
  SoundNote[{"A5", "A4"}, 2 dt], SoundNote["F#5", 2 dt],
  SoundNote["E5", 4 dt], SoundNote[{"F#4", "B4", "F#5"}, 8 dt],
  SoundNote[{"B5", "B4"}, 2 dt], SoundNote["B5", 2 dt],
  SoundNote["B5", 2 dt], SoundNote["A5", 2 dt],
  SoundNote[{"F#5", "B4"}, 2 dt], SoundNote["F#5", 4 dt],
  SoundNote["D4", 2 dt], SoundNote[{"B4", "F#4"}, 2 dt],
  SoundNote["B4", 2 dt], SoundNote["B4", 2 dt],
  SoundNote["F#5", 2 dt], SoundNote["E5", 8 dt],
  SoundNote[{"F#5", "F#4"}, 2 dt], SoundNote[{"F#5", "C#5"}, 2 dt],
  SoundNote[{"A5", "F#5"}, 2 dt], SoundNote[{"F#5", "C#5"}, 2 dt],
  SoundNote[{"E5", "E4"}, 2 dt], SoundNote["F#5", 2 dt],
  SoundNote["E5", 2 dt], SoundNote["D5", 2 dt],
  SoundNote[{"F#4", "B4"}, 4 dt], SoundNote[{"E4", "A4"}, 4 dt],
  SoundNote[{"F#4", "B4"}, 4 dt], SoundNote[{"D5", "B4"}, 2 dt],
  SoundNote[{"F#5", "E5"}, 2 dt], SoundNote[{"F#5", "F#4"}, 2 dt],
  SoundNote[{"F#5", "C#5"}, 2 dt], SoundNote[{"F#5", "A5"}, 2 dt],
  SoundNote[{"F#5", "C#5"}, 2 dt], SoundNote[{"F#5", "C#5"}, 2 dt],
  SoundNote[{"E5", "A5"}, 2 dt], SoundNote[{"E5", "A5"}, 2 dt],
  SoundNote[{"F#5", "B5"}, 2 dt], SoundNote[{"D6", "F#5"}, 2 dt],
  SoundNote["B5", 2 dt], SoundNote[{"E5", "A5"}, 4 dt],
  SoundNote["B5", 1/2*dt], SoundNote["D6", 1/2*dt],
  SoundNote["B5", 7*dt](*Climax*), SoundNote["D5", 4 dt],
  SoundNote["D5", 2 dt], SoundNote["C5", 2 dt], SoundNote["D5", 4 dt],
SoundNote["F5", 4 dt], SoundNote["G5", 2 dt], SoundNote["A5", dt],
  SoundNote["G5", dt], SoundNote["F5", 2 dt], SoundNote["G5", 2 dt],
  SoundNote["A5", 8 dt], SoundNote["D5", 2 dt], SoundNote["D6", 2 dt],
SoundNote["D6", 2 dt], SoundNote["C6", 2 dt],
  SoundNote["G5", 2 dt], SoundNote["A5", dt], SoundNote["G5", dt],
  SoundNote["F5", 2 dt], SoundNote["G5", 2 dt], SoundNote["A5", 8 dt],
SoundNote[{"A4", "F4", "C4"}, 4 dt], SoundNote["E4", 4 dt],
  SoundNote["F5", 4 dt], SoundNote["D5", 2 dt], SoundNote["F5", 2 dt],
SoundNote["G5", 4 dt], SoundNote["C5", 4 dt],
  SoundNote["A5", 2 dt], SoundNote["C6", 2 dt], SoundNote["A5", 2 dt],
SoundNote["G5", 2 dt], SoundNote["F5", 6 dt],
  SoundNote["F5", 2 dt], SoundNote["D5", 2 dt], SoundNote["F5", 2 dt],
SoundNote["G5", 2 dt], SoundNote["A5", 2 dt],
  SoundNote["G5", 2 dt], SoundNote["F5", 2 dt], SoundNote["C5", 2 dt],
SoundNote["A4", 2 dt], SoundNote[{"A4", "D5"}, 10 dt],
  SoundNote["G4", 2 dt], SoundNote["A4", 2 dt], SoundNote["C5", 2 dt],
SoundNote["D5", 4 dt], SoundNote["D5", 2 dt],
  SoundNote["C5", 2 dt], SoundNote["D5", 4 dt], SoundNote["F5", 4 dt],
SoundNote["G5", 2 dt], SoundNote["A5", dt], SoundNote["G5", dt],
  SoundNote["F5", 2 dt], SoundNote["G5", 2 dt], SoundNote["A5", 8 dt],
SoundNote["D6", 2 dt], SoundNote["C6", 2 dt],
  SoundNote["A5", 2 dt], SoundNote["G5", 2 dt], SoundNote["C6", 2 dt],
SoundNote["A5", 2 dt], SoundNote["G5", 2 dt],
  SoundNote["F5", 2 dt], SoundNote["F5", 12 dt], SoundNote["A4", dt],
  SoundNote["B4", dt], SoundNote["D5", dt], SoundNote["E5", dt],(*结尾*)
  SoundNote["F#5", 4 dt], SoundNote["B4", 2 dt],
  SoundNote["B4", 2 dt], SoundNote["D5", 4 dt],
  SoundNote["F#5", 4 dt], SoundNote["E5", 2 dt], SoundNote["E5", dt],
  SoundNote["F#5", dt], SoundNote["E5", 2 dt], SoundNote["D5", 2 dt],
  SoundNote["E5", 2 dt], SoundNote["D5", 2 dt], SoundNote["B4", 4 dt],
SoundNote["F#5", 4 dt], SoundNote["B4", 2 dt],
  SoundNote["B4", 2 dt], SoundNote["D5", 4 dt],
  SoundNote["F#5", 4 dt], SoundNote["A5", 2 dt], SoundNote["E5", dt],
  SoundNote["F#5", dt], SoundNote["E5", 2 dt], SoundNote["D5", 2 dt],
  SoundNote["E5", 2 dt], SoundNote["D5", 2 dt],
  SoundNote["C#5", 2 dt], SoundNote["A4", 2 dt],
  SoundNote["F#5", 4 dt], SoundNote["B4", 2 dt],
  SoundNote["B4", 2 dt], SoundNote["D5", 4 dt],
  SoundNote["F#5", 4 dt], SoundNote["E5", 2 dt], SoundNote["E5", dt],
  SoundNote["F#5", dt], SoundNote["E5", 2 dt], SoundNote["D5", 2 dt],
  SoundNote["E5", 2 dt], SoundNote["D5", 2 dt], SoundNote["B4", 4 dt],
SoundNote["F#5", 4 dt], SoundNote["B4", 2 dt],
  SoundNote["B4", 2 dt], SoundNote["D5", 4 dt],
  SoundNote["F#5", 4 dt], SoundNote[{"A5", "B4"}, 2 dt],
  SoundNote[{"F#5", "C#5"}, 12 dt]}

left = {SoundNote[{"B1", "B2"}, {0, 16 dt}],
  SoundNote[{"G1", "G2"}, {16 dt, 32 dt}],
  SoundNote[{"A1", "A2"}, {32 dt, 48 dt}],
  SoundNote[{"F#1", "F#2"}, {48 dt, 64 dt}],
  SoundNote[{"B1", "B2"}, {64 dt, 80 dt}],
  SoundNote[{"G1", "G2"}, {80 dt, 96 dt}],
  SoundNote[{"A1", "A2"}, {96 dt, 112 dt}],
  SoundNote[{"F#1", "F#2"}, {112 dt, 116 dt}],
  SoundNote[{"F#2", "C#3"}, {116 dt, 120 dt}],
  SoundNote[{"C#3", "F#3"}, {120 dt, 124 dt}],
  SoundNote[{"A#3", "F#4"}, {124 dt, 128 dt}],
  SoundNote[{"B2", "F#3"}, {128 dt, 130 dt}],
  SoundNote[{"B2", "F#3"}, {130 dt, 134 dt}],
  SoundNote["F#2", {134 dt, 136 dt}],
  SoundNote[{"B2", "F#3"}, {136 dt, 138 dt}],
  SoundNote[{"B2", "F#3"}, {138 dt, 142 dt}],
  SoundNote["F#2", {142 dt, 144 dt}],
  SoundNote[{"G2", "D3"}, {144 dt, 146 dt}],
  SoundNote[{"G2", "D3"}, {146 dt, 150 dt}],
  SoundNote["A2", {150 dt, 152 dt}],
  SoundNote[{"B2", "F#3"}, {152 dt, 154 dt}],
  SoundNote[{"B2", "F#3"}, {154 dt, 158 dt}],
  SoundNote["F#2", {158 dt, 160 dt}],
  SoundNote[{"D3", "A3"}, {160 dt, 162 dt}],
  SoundNote[{"D3", "A3"}, {162 dt, 166 dt}],
  SoundNote["A2", {166 dt, 168 dt}],
  SoundNote[{"D3", "A3"}, {168 dt, 170 dt}],
  SoundNote[{"D3", "A3"}, {170 dt, 174 dt}],
  SoundNote["A2", {174 dt, 176 dt}],
  SoundNote[{"C#3", "A3"}, {176 dt, 178 dt}],
  SoundNote[{"C#3", "A3"}, {178 dt, 182 dt}],
  SoundNote["A2", {182 dt, 184 dt}],
  SoundNote[{"B2", "F#3"}, {184 dt, 186 dt}],
  SoundNote[{"B2", "F#3"}, {186 dt, 190 dt}],
  SoundNote["F#2", {190 dt, 192 dt}],
  SoundNote[{"G2", "D3"}, {192 dt, 194 dt}],
  SoundNote[{"G2", "D3"}, {194 dt, 198 dt}],
  SoundNote["D3", {198 dt, 200 dt}],
  SoundNote[{"B2", "F#3"}, {200 dt, 202 dt}],
  SoundNote["A3", {202 dt, 204 dt}],
  SoundNote["B3", {204 dt, 206 dt}],
  SoundNote["D4", {206 dt, 208 dt}],
  SoundNote[{"B2", "F#3"}, {208 dt, 210 dt}],
  SoundNote[{"B2", "F#3"}, {210 dt, 214 dt}],
  SoundNote["D3", {214 dt, 216 dt}],
  SoundNote[{"A2", "A3"}, {216 dt, 218 dt}],
  SoundNote["E3", {218 dt, 222 dt}],
  SoundNote["A2", {222 dt, 224 dt}](*YAYAYA*),
  SoundNote[{"C#3", "F#3"}, {224 dt, 226 dt}],
  SoundNote[{"C#3", "F#3"}, {226 dt, 230 dt}],
  SoundNote["A2", {230 dt, 232 dt}],
  SoundNote[{"C#3", "F#3"}, {232 dt, 234 dt}],
  SoundNote[{"C#3", "F#3"}, {234 dt, 238 dt}],
  SoundNote["A", {238 dt, 240 dt}],
  SoundNote[{"B2", "F#3"}, {240 dt, 242 dt}],
  SoundNote[{"B2", "F#3"}, {242 dt, 246 dt}],
  SoundNote["D3", {246 dt, 248 dt}],
  SoundNote[{"B2", "F#3"}, {248 dt, 250 dt}],
  SoundNote[{"B2", "F#3"}, {250 dt, 252 dt}],
  SoundNote["F#2", {252 dt, 254 dt}],
  SoundNote["A2", {254 dt, 256 dt}](*第二段*),
  SoundNote["B2", {256 dt, 264 dt}],
  SoundNote["B2", {264 dt, 272 dt}],
  SoundNote["F#3", {258 dt, 264 dt}],
  SoundNote["F#3", {268 dt, 272 dt}],
  SoundNote["G2", {272 dt, 280 dt}],
  SoundNote["G3", {274 dt, 280 dt}],
  SoundNote["B2", {280 dt, 282 dt}],
  SoundNote["F#3", {282 dt, 284 dt}],
  SoundNote["B3", {284 dt, 286 dt}],
  SoundNote["C#3", {286 dt, 288 dt}],
  SoundNote["D3", {288 dt, 296 dt}],
  SoundNote["D3", {296 dt, 304 dt}],
  SoundNote["A3", {290 dt, 296 dt}],
  SoundNote["A3", {298 dt, 302 dt}],
  SoundNote["C#4", {302 dt, 304 dt}],
  SoundNote["C#3", {304 dt, 306 dt}],
  SoundNote["E3", {306 dt, 308 dt}],
  SoundNote[{"A3", "D4"}, {308 dt, 310 dt}],
  SoundNote["C#4", {310 dt, 312 dt}],
  SoundNote["B2", {312 dt, 314 dt}],
  SoundNote["F#3", {314 dt, 316 dt}],
  SoundNote[{"C#4", "E4"}, {316 dt, 318 dt}],
  SoundNote[{"D4", "F#4"}, {318 dt, 320 dt}],
  SoundNote["G2", {320 dt, 322 dt}],
  SoundNote[{"D3", "G3"}, {322 dt, 324 dt}],
  SoundNote[{"G3", "D4"}, {324 dt, 326 dt}],
  SoundNote[{"B3", "G4"}, {326 dt, 328 dt}],
  SoundNote["B2", {328 dt, 330 dt}],
  SoundNote[{"F#4", "B3"}, {330 dt, 332 dt}],
  SoundNote[{"F#4", "B3"}, {332 dt, 334 dt}],
  SoundNote["E4", {334 dt, 336 dt}],
  SoundNote["B2", {338 dt, 340 dt}],
  SoundNote[{"F#4", "D4"}, {340 dt, 342 dt}],
  SoundNote[{"F#4", "D4"}, {340 dt, 342 dt}],
  SoundNote["D4", {342 dt, 344 dt}],
  SoundNote["A2", {344 dt, 346 dt}],
  SoundNote["A3", {346 dt, 348 dt}],
  SoundNote[{"A3", "G3"}, {348 dt, 350 dt}],
  SoundNote[{"D4", "E4"}, {350 dt, 352 dt}],
  SoundNote["C#3", {352 dt, 358 dt}],
  SoundNote["A3", {354 dt, 358 dt}],
  SoundNote["C#3", {358 dt, 360 dt}],
  SoundNote["A2", {360 dt, 362 dt}],
  SoundNote["A3", {362 dt, 364 dt}],
  SoundNote["B3", {364 dt, 366 dt}],
  SoundNote["D4", {366 dt, 368 dt}],
  SoundNote["B2", {368 dt, 370 dt}],
  SoundNote["F#3", {370 dt, 372 dt}],
  SoundNote["F#3", {372 dt, 376 dt}],
  SoundNote["B2", {376 dt, 378 dt}],
  SoundNote["F#3", {378 dt, 384 dt}],
  SoundNote["C#3", {384 dt, 390 dt}],
  SoundNote["A3", {386 dt, 390 dt}],
  SoundNote["C#3", {390 dt, 392 dt}],
  SoundNote["F#3", {392 dt, 394 dt}],
  SoundNote["C#4", {394 dt, 396 dt}],
  SoundNote["E4", {396 dt, 398 dt}],
  SoundNote["F#4", {398 dt, 400 dt}],
  SoundNote["G3", {400 dt, 402 dt}],
  SoundNote["D4", {402 dt, 404 dt}],
  SoundNote["G4", {404 dt, 406 dt}],
  SoundNote["D5", {406 dt, 408 dt}],
  SoundNote["B3", {408 dt, 410 dt}],
  SoundNote["F#4", {410 dt, 412 dt}],
  SoundNote["B4", {412 dt, 416 dt}],(*Climax*)
  SoundNote["D4", {416 dt, 424 dt}],
  SoundNote["F4", {424 dt, 432 dt}],
  SoundNote["D3", {416 dt, 418 dt}],
  SoundNote["A3", {418 dt, 420 dt}],
  SoundNote["D4", {420 dt, 422 dt}],
  SoundNote["A3", {422 dt, 424 dt}],
  SoundNote["D3", {424 dt, 426 dt}],
  SoundNote["A3", {426 dt, 428 dt}],
  SoundNote["C4", {428 dt, 430 dt}],
  SoundNote["A3", {430 dt, 432 dt}],
  SoundNote["G4", {432 dt, 436 dt}],
  SoundNote["C5", {436 dt, 440 dt}],
  SoundNote["A4", {440 dt, 448 dt}],
  SoundNote["C3", {432 dt, 434 dt}],
  SoundNote["G3", {434 dt, 436 dt}],
  SoundNote["C4", {436 dt, 438 dt}],
  SoundNote["G3", {438 dt, 440 dt}],
  SoundNote["F2", {440 dt, 442 dt}],
  SoundNote["D4", {442 dt, 444 dt}],
  SoundNote["E4", {444 dt, 446 dt}],
  SoundNote["G4", {446 dt, 448 dt}],
  SoundNote["G4", {442 dt, 444 dt}],
  SoundNote["A4", {444 dt, 446 dt}],
  SoundNote["C5", {446 dt, 448 dt}],
  SoundNote["A4", {448 dt, 456 dt}],
  SoundNote["C5", {456 dt, 460 dt}],
  SoundNote["D5", {460 dt, 464 dt}],
  SoundNote["Bb2", {448 dt, 450 dt}],
  SoundNote["F3", {450 dt, 452 dt}],
  SoundNote["D4", {452 dt, 454 dt}],
  SoundNote["F3", {454 dt, 456 dt}],
  SoundNote["C3", {456 dt, 458 dt}],
  SoundNote["G3", {458 dt, 460 dt}],
  SoundNote["C4", {460 dt, 462 dt}],
  SoundNote["G3", {462 dt, 464 dt}],
  SoundNote["F2", {464 dt, 466 dt}],
  SoundNote["C3", {466 dt, 468 dt}],
  SoundNote["F3", {468 dt, 470 dt}],
  SoundNote["G3", {470 dt, 474 dt}],
  SoundNote["F3", {474 dt, 480 dt}],
  SoundNote["Bb4", {480 dt, 488 dt}],
  SoundNote["C5", {488 dt, 496 dt}],
  SoundNote["Bb2", {480 dt, 482 dt}],
  SoundNote["F3", {482 dt, 484 dt}],
  SoundNote["C4", {484 dt, 486 dt}],
  SoundNote["F3", {486 dt, 488 dt}],
  SoundNote["C3", {488 dt, 490 dt}],
  SoundNote["G3", {490 dt, 492 dt}],
  SoundNote["C4", {492 dt, 494 dt}],
  SoundNote["G3", {494 dt, 496 dt}],
  SoundNote["A4", {496 dt, 500 dt}],
  SoundNote["C5", {500 dt, 504 dt}],
  SoundNote["A4", {504 dt, 508 dt}],
  SoundNote["G4", {508 dt, 512 dt}],
  SoundNote["A2", {496 dt, 498 dt}],
  SoundNote["E3", {498 dt, 500 dt}],
  SoundNote["C4", {500 dt, 502 dt}],
  SoundNote["A3", {502 dt, 504 dt}],
  SoundNote["D3", {504 dt, 506 dt}],
  SoundNote["A3", {506 dt, 508 dt}],
  SoundNote["D4", {508 dt, 510 dt}],
  SoundNote["C4", {510 dt, 512 dt}],
  SoundNote["F4", {512 dt, 520 dt}],
  SoundNote["G4", {520 dt, 528 dt}],
  SoundNote["Bb2", {512 dt, 514 dt}],
  SoundNote["F3", {514 dt, 516 dt}],
  SoundNote["Bb3", {516 dt, 518 dt}],
  SoundNote["D4", {518 dt, 520 dt}],
  SoundNote["C3", {520 dt, 522 dt}],
  SoundNote["C4", {522 dt, 524 dt}],
  SoundNote["A3", {524 dt, 526 dt}],
  SoundNote["E3", {526 dt, 528 dt}],
  SoundNote["D3", {528 dt, 530 dt}],
  SoundNote["A3", {530 dt, 532 dt}],
  SoundNote["C4", {532 dt, 534 dt}],
  SoundNote["D4", {534 dt, 536 dt}],
  SoundNote["F4", {536 dt, 540 dt}],
  SoundNote["A3", {540 dt, 544 dt}],
  SoundNote["A4", {544 dt, 552 dt}],
  SoundNote["F4", {552 dt, 560 dt}],
  SoundNote["D3", {544 dt, 546 dt}],
  SoundNote["A3", {546 dt, 548 dt}],
  SoundNote["D4", {548 dt, 550 dt}],
  SoundNote["A3", {550 dt, 552 dt}],
  SoundNote["D3", {552 dt, 554 dt}],
  SoundNote["A3", {554 dt, 556 dt}],
  SoundNote["C4", {556 dt, 558 dt}],
  SoundNote["A3", {558 dt, 560 dt}],
  SoundNote["G4", {560 dt, 564 dt}],
  SoundNote["C5", {564 dt, 568 dt}],
  SoundNote["A4", {568 dt, 576 dt}],
  SoundNote["C3", {560 dt, 562 dt}],
  SoundNote["G3", {562 dt, 564 dt}],
  SoundNote["C4", {564 dt, 566 dt}],
  SoundNote["G3", {566 dt, 568 dt}],
  SoundNote["F2", {568 dt, 570 dt}],
  SoundNote["D4", {570 dt, 572 dt}],
  SoundNote["G4", {572 dt, 574 dt}],
  SoundNote["E4", {574 dt, 576 dt}],
  SoundNote["G4", {570 dt, 572 dt}],
  SoundNote["C5", {572 dt, 574 dt}],
  SoundNote["A4", {574 dt, 576 dt}],
  SoundNote["D5", {576 dt, 584 dt}],
  SoundNote["C5", {584 dt, 588 dt}],
  SoundNote["D5", {588 dt, 592 dt}],
  SoundNote["Bb2", {576 dt, 578 dt}],
  SoundNote["F3", {578 dt, 580 dt}],
  SoundNote["C4", {580 dt, 582 dt}],
  SoundNote["D4", {582 dt, 584 dt}],
  SoundNote["C3", {584 dt, 586 dt}],
  SoundNote["G3", {586 dt, 588 dt}],
  SoundNote["D4", {588 dt, 590 dt}],
  SoundNote["C4", {590 dt, 592 dt}],
  SoundNote["F3", {592 dt, 594 dt}],
  SoundNote["C4", {594 dt, 596 dt}],
  SoundNote["F4", {596 dt, 598 dt}],
  SoundNote["G4", {598 dt, 600 dt}],
  SoundNote["A4", {600 dt, 608 dt}],
  SoundNote["B2", {608 dt, 610 dt}],
  SoundNote["F#3", {610 dt, 612 dt}],
  SoundNote["D3", {612 dt, 624 dt}],
  SoundNote["G2", {624 dt, 626 dt}],
  SoundNote["D3", {626 dt, 628 dt}],
  SoundNote["B3", {628 dt, 640 dt}],
  SoundNote["A2", {640 dt, 642 dt}],
  SoundNote["E3", {642 dt, 644 dt}],
  SoundNote["A3", {644 dt, 656 dt}],
  SoundNote["D3", {656 dt, 658 dt}],
  SoundNote["A3", {658 dt, 660 dt}],
  SoundNote["D4", {660 dt, 664 dt}],
  SoundNote[{"A3", "A4"}, {664 dt, 666 dt}],
  SoundNote["F#4", {666 dt, 668 dt}],
  SoundNote["E3", {668 dt, 670 dt}],
  SoundNote["C#4", {670 dt, 672 dt}],
  SoundNote["B2", {672 dt, 674 dt}],
  SoundNote["F#3", {674 dt, 676 dt}],
  SoundNote["D4", {676 dt, 688 dt}],
  SoundNote["G2", {688 dt, 690 dt}],
  SoundNote["D3", {690 dt, 692 dt}],
  SoundNote["B3", {692 dt, 704 dt}],
  SoundNote["A2", {704 dt, 706 dt}],
  SoundNote["E3", {706 dt, 708 dt}],
  SoundNote["A3", {708 dt, 720 dt}],
  SoundNote["F#2", {720 dt, 722 dt}],
  SoundNote["C#3", {724 dt, 726 dt}],
  SoundNote["F#3", {726 dt, 728 dt}],
  SoundNote["A3", {728 dt, 730 dt}],
  SoundNote["C#4", {730 dt, 732 dt}],
  SoundNote["F#4", {732 dt, 734 dt}],
  SoundNote["A4", {734 dt, 736 dt}],
  SoundNote["C#5", {736 dt, 738 dt}],
  SoundNote["F#5", {738 dt, 740 dt}],
  SoundNote["A5", {740 dt, 748 dt}]}

Sound[Flatten[{right, left}]]

上面的代码整段复制进去，你们就知道这是啥了...

kuing

2^#

发表于 2013-12-31 14:43 | 只看该作者

嘿嘿，当年跟某人去上过几堂 MMC 的课也听说过这个……不过从来没用过……

TOP

战巡

3^#

发表于 2013-12-31 14:50 | 只看该作者

而且好像还有多种音色可选，比如钢琴、小提琴等都可以指定
用这玩意写交响乐都可以了...

TOP

liuzj288

4^#

发表于 2014-1-25 15:11 | 只看该作者

来露露脸

TOP

其妙

5^#

发表于 2014-6-15 14:12 | 只看该作者

回复 1# 战巡
厉害！居然可以播放音乐？

TOP

小芳

6^#

发表于 2014-10-17 00:56 | 只看该作者

本帖最后由小芳于 2014-10-17 00:57 编辑

回复 1# 战巡

厉害，有没有直接编辑音乐的界面？难道这需要一个个写？我估计这个是反编译出来的，然后复制进来吧。我是羊，没号，上小芳号。

TOP

kuing

7^#

发表于 2014-10-17 00:59 | 只看该作者

回复 6# 小芳

申请一个号有多难……

TOP

羊羊羊羊

8^#

发表于 2014-10-17 01:07 | 只看该作者

回复 7# kuing

满足你。。。其实同用一个ID是很美好的事。

TOP

kuing

9^#

发表于 2014-10-17 01:08 | 只看该作者

回复 8# 羊羊羊羊

擦你……

TOP

羊羊羊羊

10^#

发表于 2014-10-17 01:10 | 只看该作者

回复 9# kuing

慎重用词，不要写错别字。

TOP

战巡

11^#

发表于 2014-10-17 02:01 | 只看该作者

回复 6# 小芳

真没有，不过网上有人写过一个简谱录入的函数，当然就没法像一楼发的那个那样搞出双声道了

这个要用mathematica8.0 的。
你看程序（**）中说明，对照歌谱，把歌谱翻译成说明中定义的音符即可。

note[b_, x0_, t_, v_] :=
  Module[{a = b},
Which[x0 == "1",
AppendTo[a, SoundNote[0, t, SoundVolume -> v]], x0 == "2",
AppendTo[a, SoundNote[2, t, SoundVolume -> v]], x0 == "3",
AppendTo[a, SoundNote[4, t, SoundVolume -> v]], x0 == "4",
AppendTo[a, SoundNote[5, t, SoundVolume -> v]], x0 == "5",
AppendTo[a, SoundNote[7, t, SoundVolume -> v]], x0 == "6",
AppendTo[a, SoundNote[9, t, SoundVolume -> v]], x0 == "7",
AppendTo[a, SoundNote[11, t, SoundVolume -> v]], x0 == "0",
AppendTo[a, SoundNote[None, t, SoundVolume -> v]], x0 == "-",
a[[-1, 2]] += t, x0 == "_", a[[-1, 2]] /= 2, x0 == "*",
a[[-1, 2]] *= 1.5, x0 == "t", a[[-1, 2]] /= 3, x0 == "%",
a[[-1, 2]] /= 5, x0 == ".", a[[-1, 1]] -= 12, x0 == "'",
a[[-1, 1]] += 12, x0 == "#", a[[-1, 1]] += 1, x0 == "b",
a[[-1, 1]] -= 1]; a];
noteh[b_, x0_] :=
  Module[{h = b},
Which[x0 == "1", AppendTo[h, 0], x0 == "2", AppendTo[h, 2],
   x0 == "3", AppendTo[h, 4], x0 == "4", AppendTo[h, 5],
x0 == "5", AppendTo[h, 7], x0 == "6", AppendTo[h, 9],
x0 == "7", AppendTo[h, 11], x0 == ".", h[[-1]] -= 12,
x0 == "'", h[[-1]] += 12, x0 == "#", h[[-1]] += 1, x0 == "b",
h[[-1]] -= 1]; h];

mf[s_, t_, x_] :=
  Module[{lh = StringLength[x], xx = x, a = {}, v = 1, par = False,
h = {}, i, x0},
For[i = 1, i <= lh, i++, x0 = StringTake[xx, 1];
If[par, If[x0 == ")",
   AppendTo[a, SoundNote[h, t, SoundVolume -> v]]; par = False;
   h = {}, h = noteh[h, x0]],
   If[x0 == "(", par = True,
   v = Which[x0 == "p", 0.5, x0 == "P", 0.2, x0 == "m", 0.8,
      x0 == "f", 1, True, v]; a = note[a, x0, t, v]]];
xx = StringDrop[xx, 1]];
Sound[Prepend[a, s], {0, Plus @@ (#[[2]] & /@ a)}]];
(*函数mf[s,t,x]，s，t，x分别为乐器类型、时长单位（秒）、乐谱*)
m[t_, x_] := mf["Piano", t, x];
(*函数m[t,x]，t，x分别为时长单位（秒）、乐谱，乐器类型默认为钢琴*)
ms[s_, x_] := mf[s, 0.5, x];
(*函数ms[s,x]，s，x分别为乐器类型、乐谱，时长单位默认为0 .5秒*)
m0[x_] := m[0.5, x];
(*函数m0[x]，x为乐谱，乐器类型默认为钢琴，时长单位默认为0 .5秒*)

以上定义了四个自定义函数：
函数mf[s,t,x]，s，t，x分别为乐器类型、时长单位（秒）、乐谱。
函数m[t,x]，t，x分别为时长单位（秒）、乐谱，乐器类型默认为钢琴。
函数ms[s,x]，s，x分别为乐器类型、乐谱，时长单位默认为0 .5秒。
函数m0[x]，x为乐谱，乐器类型默认为钢琴，时长单位默认为0 .5秒。
在Mathematica中输入以上内容，按【Shift】+【Enter】，即可利用以上函数写音乐。
乐谱格式为我在我所记得的那一点点简谱的基础上胡编乱造而成：
控制音高的符号：
1、2、3、4、5、6、7分别表示长度为一个单位的C、D、E、F、G、A、B。
.表示表示前一个音符降低八度。
'表示表示前一个音符升高八度。
b表示表示前一个音符降低半度
#表示表示前一个音符升高半度。
当一个音符后同时带上需要加上#（或b）和'(或.)时，需将#（或b）放在'(或.)前面。同一个音符后不能带多个#、b。
控制音长的符号：

-表示前一个音符长度增长一个单位。
_表示表示前一个音符长度减半。
*表示表示前一个音符长度变为原来的1.5倍。
t表示表示前一个音符长度变为原来的三分之一。
%表示表示前一个音符长度变为原来的五分之一。
控制音强的符号：

p表示此后的音强变为0.5（默认音强为1）。
P表示此后的音强变为0.2。
m表示此后的音强变为0.8。
f表示此后的音强变为1。
其他符号：
0表时长一个单位的休止符（休止符的长度可通过在0后添加控制音长的符号来控制）。
|表示小节线，只是为了阅读方便，可以不写。
(表示进入和声状态。
)表示退出和声状态。
和声的实现：用括号()将几个音符括在其中。括号内有效的字符只有1、2、3、4、5、6、7、0、b、#、'、.这些控制音高的符号。控制音长的符号-、_、*、t、%请添加在括号后面。
此外，还可以写成多个声部，然后用Sound[{ , , }]连接起来。

例子：

mf["Violin", 0.5,
"3_2#_3_|5_*4__30_4_3_2_|1_*7.__6.0_3_2#_3_|6_*5__40_2_5_4_|3-0_3_2#_
3_|5_*4__30_4_3_2_|1_*7.__6.0_6._7._1_|2_*3__40_2_7._1_|6.-0_6._7._1_|
2354_5_|3-0_6._7._1_|2365_4_|3-0_3_2#_3_|6_*5__40_2_1#_2_|5_*4__30_6._
7._1_|2437._1_|6.-"]

TOP

kuing