"XCAS nedir?" diyorsanız önce XCAS'le ilgili diğer yazılarımı okuyun lütfen.
Ders çalışırken sık sık XCAS'i kullandığım için birşeyler yazayım dedim. Bu yazımda empedans ve eşdeğer empedans hesaplarını kolaylaştıracak bir iki fonksiyonu nasıl yazdığımı göstereceğim. Bu fonksiyonları yazar bir dosya olarak kaydederseniz çalışırken açıp rahatlıkla kullanabilirsiniz…
<-l : "Enter" tuşu demek 🙂
Öncelikle açısal hız fonksiyonunu tanımlayalım:
w(f):=2*pi*f <-l
Kapasitör ve indüktansın empedansı:
Xc(f,c):=-i/(w(f)*c); Xl(f,l):=i*w(f)*l <-l
Gördüğünüz gibi noktalı virgül kullanarak tek satırda iki komut birden çalıştırabiliyoruz.
Seri eşdeğer empedans fonksiyonu:
serZ(z):=sum(z) <-l
Burada z bir vektör. Ama XCAS'e z'nin bir vektör olduğunu belirtmenize gerek yok.
Şimdi en can alıcı kısım :P, paralel empedans hesabı:
parZ(z):=1/sum(1/z[n],n,0,length(z)-1) <-l
Biraz karışık görünüyor ama XCAS ifadeyi düzenleyerek gösterdiğinde ne olduğunu anlayacaksınız 😉
Şimdilik bu kadar…