search for: jannetta

...he following. I want to declare array I with a specific length and then alternatively fill it with 10 zeros and 10 specified values: v<- 14 I <- c(0,length(t)) But in stead of just filling I with 0 I want 10 zeros and then 10 fourteens (i.e. the value in v) Hope that makes sense. Regards Jannetta -- =================================== Web site: http://www.jannetta.com Email: jannetta@henning.org =================================== [[alternative HTML version deleted]]

...lt;- a*(b*v-u); if (v>=30) v<-c else v<-u+d; list( c(dv, du)) })} parms=c( a=0.02, b=0.2, c=-65, d=8,I=10); times=seq(from=1, to=1000, by=1); init=c(v=-65, u=0.2); out<-ode(y=init, times=times, func=Izhikevich, parms=parms) plot(out) Can someone perhaps help me out? Regards Jannetta -- =================================== Web site: http://www.jannetta.com Email: jannetta@henning.org =================================== [[alternative HTML version deleted]]

...there could be any Samba issues that might be causing this as obviously, Sage support is now starting to blame the unknown to them in this equation, which is Linux (and off course Samba). Any suggestions would be appreciated. Thanks ================================================================ Jannetta S Lewis email: jannetta@henning.org home page: http://bright-ideas.keystroke.info ================================================================

...ere is a short bit of code that produces the error: s_fun <- function(parms,time) { with(as.list(c(parms)),{ print(J[time]) }) } times = seq(from=0, to=100, by = 0.1); v<-14 J<-c(rep(c(rep(0,10),rep(v,10)),5)) parms=c(J) out <- s_fun(parms, time) Thanks for your help Regards Jannetta -- =================================== Web site: http://www.jannetta.com Email: jannetta@henning.org =================================== [[alternative HTML version deleted]]

...00, k_Ca=360, k_Af=45, k_As=10, k_h=500, C_m=0.0017) init<-c(v=-50, h_Na=0.52, m_Ca=0.52, m_CaT=0.52, m_CaS=0.52, h_CaT=0.52, m_K=0.52, m_KCa=0.52, h_KCa=0.52, m_A=0.52, h_Af=0.52, h_As=0.52) out<-ode(y=init, times=times, func=G1999, parms=parms, method="lsoda") Many thanks Jannetta -- =================================== Web site: http://www.jannetta.com Email: jannetta@henning.org =================================== [[alternative HTML version deleted]]

...ng the root to init[1]+30 did not produce the desired result, making it init[1]-30, produced something better but I'm not sure that it is right yet. The actual equations are: v' = 0.04v^2 + 5v + 140 - u + I u- = a(bv-u) If v=30mV then v-, u-u+d Any help would be appreciated. Kind Regards Jannetta -- =================================== Web site: http://www.jannetta.com Email: jannetta@henning.org =================================== [[alternative HTML version deleted]]

...52, CaSm=0.52, Napm=0.52, Naph=0.52, hm=0.52, Km=0.52, KCam=0.52, Am=0.52, Ah=0.52, ECa=-80); out<-ode(y=init, times=times, func=HH_soma, parms=parms); o<-data.frame(out); plot(o$time, o$v, type='l'); Please ask if any further information is required. Many thanks Jannetta -- =================================== Web site: http://www.jannetta.com Email: jannetta@henning.org =================================== [[alternative HTML version deleted]]

...: oplock break from client for fnum = 12197 and no oplock granted on this file (SHARED DATA/LINE 50 Product CSV/Uploaded to Line 50/Ca stle Boilersuits .csv). I have oplocks set to no in the conf file. I don't know anything about oplocks. Can someone perhaps help or suggest something. Thanks Jannetta

Hi, About the patches for speeding up rsync with windows. Could you send me the patched binaries? Thanks, Adam