teacup. [ 掲示板 ] [ 掲示板作成 ] [ 有料掲示板 ] [ ブログ ]


新着順:250/724 記事一覧表示 | 《前のページ | 次のページ》

Re: UL Plate Characteristic

 投稿者:Ayumi  投稿日:2013年 9月11日(水)19時47分19秒
  通報 返信・引用
  > No.1522[元記事へ]

Here is the code.

p <- t6L6T                  # tube parameter

Ep <- seq(0, 500, by=2)     # plate voltage
Eg <- seq(0, -50, by=-5)    # control grid voltage
Ebb <- 250                  # supply voltage
b <- 0.43                   # screen tap ratio
ip <- touter(function(p, ep, eg) {
    eg2 <- Ebb + (ep - Ebb) * b
    Ipp(p, ep, eg, eg2)
}, p, Ep, Eg)               # plate current (matrix of Ep x Eg)
ig2 <- touter(function(p, ep, eg) {
    eg2 <- Ebb + (ep - Ebb) * b
    Ig2(p, ep, eg, eg2)
}, p, Ep, Eg)               # screen grid current (matrix of Ep x Eg)

g.plate(ip, 600, 3000, Ipmax=0.15)
matlines(Ep, ig2, lty=1, col="darkgreen")
matlines(Ep, ip + ig2 * b, lty=2, col="red")

A little trick in this code is the first argument of the function 'touter'.
Here, temporary function definition is used (like lambda function in LISP).
In this temporary function, eg2 is calculated corresponding to the change in
plate voltage.

> Why is there no hump in the resultant curves (red-dotted lines) since it is calculated as Ip + Bsg*Ig2.

There is a little hump but not outstanding.
Bsg is b in the program above.
 
 
》記事一覧表示

新着順:250/724 《前のページ | 次のページ》
/724