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  新着順 投稿順