[obsidian] vault backup: 2023-09-20 17:12:17[

This commit is contained in:
Tomoya Matsuura(MacBookPro) 2023-09-20 17:12:17 +09:00
parent 6300f12b7a
commit 0b01766272

View File

@ -72,7 +72,7 @@ $$
fn cascade(order:int,fb)->(float->float){ fn cascade(order:int,fb)->(float->float){
if(order>0){ if(order>0){
|x|{ |x|{
cascade(N-1)(x) *(1-fb) + self*fb cascade(order-1)(x) *(1-fb) + self*fb
} }
}else{ }else{
|x| x |x| x
@ -87,7 +87,7 @@ fn cascade(order:int,fb)->(float->float){
fn cascade(order:int,fb)->(float->float){ fn cascade(order:int,fb)->(float->float){
if(order>0){ if(order>0){
|x|{ |x|{
feed(y) { cascade(N-1)(x) *(1-fb) + y*fb } feed(y) { cascade(order-1)(x) *(1-fb) + y*fb }
} }
}else{ }else{
|x| x |x| x
@ -325,7 +325,7 @@ filterbank: //stack 0:N,1:input,2:lfreq,3:margin,4:filter
move 7 4 // get filter move 7 4 // get filter
move 8 1 move 8 1
move 9 6 move 9 6
call 7 2 1 //result on stack 7 callcls 7 2 1 //result on stack 7
moveconst 8 1 moveconst 8 1
sub 9 0 8 sub 9 0 8
move 10 -1 // get recursive call move 10 -1 // get recursive call
@ -333,14 +333,39 @@ filterbank: //stack 0:N,1:input,2:lfreq,3:margin,4:filter
move 12 1 move 12 1
move 13 2 move 13 2
move 14 3 move 14 3
move 15 4 closure 15 4 // hof requires all function should be closure
call 10 5 1 //recursive call, result on stack 10 call 10 5 1 //recursive call, result on stack 10
add 0 7 10 add 0 7 10
jmp 1 jmp 1
moveconst 0 0 moveconst 0 0
ret 0 1 ret 0 1
const: const:
0_i64 -1_u64 0_i64
-1_u64
``` ```
feedが呼ばれた時にどのfeedidかを判別するのはランタイム側の役目 feedが呼ばれた時にどのfeedidかを判別するのはランタイム側の役目
---
```rust
fn cascade_f(order:int,fb,x)->float{
letrec cascade = if(order>0){
|x|{
cascade(N-1)(x) *(1-fb) + self*fb
}
}else{
|x| x
}
cascade(x)
}
fn phasor(freq)->float{
1+self
}
fn doubleosc(freq)->freq{
phasor(freq)+phasor(freq+10)
}
let res = cascade_f(3,0.9,input)+doubleosc(440)
```
なんかこんな感じだとして、レキシカルに何番目の関数呼び出しか、