| Dundun — three-drum membrane tension model (ESTIMATES ONLY) | Dundunba (bass) + Sangban (mid) + Kenkeni (high). Single skin parameters applied to all. | | | | Grid{Drum,Target note,Target Hz,Actual Hz,Req. tension (N/m),Status},Module{D_m,fEst$,tReq$},Global`D$_m=NameDundunba (bass),DiamCm42.,TargetHz65.4,TargetNoteC2[DiamCm] ;fEst$=membraneFreq[D_m,FE`tensionNm$$5977026685654412217335693827501657466783,sigma$79067];tReq$=requiredTension[NameDundunba (bass),DiamCm42.,TargetHz65.4,TargetNoteC2[TargetHz],D_m,sigma$79067];NameDundunba (bass),DiamCm42.,TargetHz65.4,TargetNoteC2[Name],NameDundunba (bass),DiamCm42.,TargetHz65.4,TargetNoteC2[TargetNote],NameDundunba (bass),DiamCm42.0,TargetHz65.4,TargetNoteC2[TargetHz],fEst$,tReq$,StyleIfAbsNameDundunba (bass),DiamCm42.,TargetHz65.4,TargetNoteC2[TargetHz] -1.<0.05,TUNED,If[fEst$<NameDundunba (bass),DiamCm42.,TargetHz65.4,TargetNoteC2[TargetHz],TOO LOOSE,TOO TIGHT],IfAbsNameDundunba (bass),DiamCm42.,TargetHz65.4,TargetNoteC2[TargetHz] -1.<0.05,Darker[Green],Orange,Module{D_m,fEst$,tReq$},Global`D$_m=NameSangban (mid),DiamCm35.,TargetHz130.8,TargetNoteC3[DiamCm] ;fEst$=membraneFreq[D_m,FE`tensionNm$$5977026685654412217335693827501657466783,sigma$79067];tReq$=requiredTension[NameSangban (mid),DiamCm35.,TargetHz130.8,TargetNoteC3[TargetHz],D_m,sigma$79067];NameSangban (mid),DiamCm35.,TargetHz130.8,TargetNoteC3[Name],NameSangban (mid),DiamCm35.,TargetHz130.8,TargetNoteC3[TargetNote],NameSangban (mid),DiamCm35.0,TargetHz130.8,TargetNoteC3[TargetHz],fEst$,tReq$,StyleIfAbsNameSangban (mid),DiamCm35.,TargetHz130.8,TargetNoteC3[TargetHz] -1.<0.05,TUNED,If[fEst$<NameSangban (mid),DiamCm35.,TargetHz130.8,TargetNoteC3[TargetHz],TOO LOOSE,TOO TIGHT],IfAbsNameSangban (mid),DiamCm35.,TargetHz130.8,TargetNoteC3[TargetHz] -1.<0.05,Darker[Green],Orange,Module{D_m,fEst$,tReq$},Global`D$_m=NameKenkeni (high),DiamCm28.,TargetHz261.6,TargetNoteC4[DiamCm] ;fEst$=membraneFreq[D_m,FE`tensionNm$$5977026685654412217335693827501657466783,sigma$79067];tReq$=requiredTension[NameKenkeni (high),DiamCm28.,TargetHz261.6,TargetNoteC4[TargetHz],D_m,sigma$79067];NameKenkeni (high),DiamCm28.,TargetHz261.6,TargetNoteC4[Name],NameKenkeni (high),DiamCm28.,TargetHz261.6,TargetNoteC4[TargetNote],NameKenkeni (high),DiamCm28.0,TargetHz261.6,TargetNoteC4[TargetHz],fEst$,tReq$,StyleIfAbsNameKenkeni (high),DiamCm28.,TargetHz261.6,TargetNoteC4[TargetHz] -1.<0.05,TUNED,If[fEst$<NameKenkeni (high),DiamCm28.,TargetHz261.6,TargetNoteC4[TargetHz],TOO LOOSE,TOO TIGHT],IfAbsNameKenkeni (high),DiamCm28.,TargetHz261.6,TargetNoteC4[TargetHz] -1.<0.05,Darker[Green],Orange,FrameAll,AlignmentLeft,Background{None,{,{}}} | | |
|
|