from s c i p y . i o . w a v f i l e import r e a d ,w r i t e ############## de f b S p l i n e ( t ) : i f 0 <=t and t < 1 . / 3 .: Val = 4 . 5* t * t e l i f 1 . / 3 . <=t and t< 2 . / 3 .: Val = - 9 . * t * ( t - l ) - 1 .5 e l i f 2 . / 3 . <=t and t < 1: Val = 4 . 5 * ( l - t ) * ( l - t ) e l s e : Val = 0 re turn Val ########################### de f s p l i n eA r r a y ( S t e p ) : >) > Значения сплайна, вычисленные с шагом Step >>> Args = n p . a r a n g e ( 0 , 1 .Step) Out = n p . z e r o s ( l e n (A r g s ) ) f o r X in x r a n g e ( l e n (A r g s ) ) : Out[X] = bSp l in e (Arg s [X ] ) re turn Out ######################### def i n s e r tW t r ( I n ,B i t s ,A ) : LnBits = l e n ( B i t s ) LnFi le = l e n ( I n ) LnFragm = LnFi le / LnBits Sp l ineVa l s = A * sp l in eA r ray ( 1 . /LnFragm) U_plus = 1. + Sp l ineVa l s U_minus = 1. - Sp l ineVa l s Beg = 0 End = LnFragm f o r X in B i t s : In t e rv = In[Beg:End] i f X == ’ 1 ’ :
RkJQdWJsaXNoZXIy MTExODQxMg==