अंतर्जात नोड्स के साथ एक पुनरावृत्त टुकड़ा करने की क्रिया प्लॉटिंग

Aug 17 2020

मैं एक टुकड़े-टुकड़े समारोह की साजिश करने की कोशिश कर रहा हूं कि मैं पुनरावर्ती रूप से परिभाषित कर सकता हूं, जहां नोड्स अंतर्जात भी हैं। मूल रूप से,$f(l)=a^{t}$ कब $l \in \left( \frac{\mu}{\alpha^{t-1}(1-\alpha)+\mu(1-\alpha^{t-1})};\frac{\mu}{\alpha^{t}(1-\alpha)+\mu(1-\alpha^{t})} \right]$$t=1,2,...N$, दोनों $\alpha$ तथा $\mu$ $\in (0,1)$ और मुझे इसके लिए साजिश करने की जरूरत है $l \in \left[\frac{\mu}{1-\alpha},1\right)$

मैं निश्चित रूप से इसे थोड़ा-थोड़ा करके मैन्युअल रूप से लिख सकता हूं और फिर मूल्य t = 1 असाइन कर सकता हूं, लेकिन मैं चाहूंगा कि यह कार्यक्रम मेरे लिए, हर t = 1,2,3 के लिए हो ... ताकि मैं इसके लिए सब कुछ साजिश कर सकूं 1. जा रहा हूँ 1. क्या कोई रास्ता है? आपका अग्रिम रूप से बोहोत धन्यवाद!

a = 0.3;
mu = 0.2;
t = 1;
f[l_] = Piecewise[{{1, 
     l <= mu/(a^(t - 1) (1 - a) + mu (1 - a^(t - 1)))}, {a^t, 
     mu/(a^(t - 1) (1 - a) + mu (1 - a^(t - 1))) < l <= mu/(
      a^t (1 - a) + mu (1 - a^t))}, {a^(t + 1), 
     mu/(a^t (1 - a) + mu (1 - a^t)) < l <= mu/(
      a^(t + 1) (1 - a) + mu (1 - a^(t + 1)))}, {a^(t + 2), 
     mu/(a^(t + 1) (1 - a) + mu (1 - a^(t + 1))) < l <= mu/(
      a^(t + 2) (1 - a) + mu (1 - a^(t + 2)))}, {a^(t + 3), 
     mu/(a^(t + 2) (1 - a) + mu (1 - a^(t + 2))) < l <= mu/(
      a^(t + 3) (1 - a) + mu (1 - a^(t + 3)))}}];
Plot[f[l], {l, mu/(1-a), mu/(a^(t + 3) (1 - a) + mu (1 - a^(t + 3)))}, 
 AxesLabel -> Automatic]

जवाब

1 flinty Aug 17 2020 at 14:45

आप इसे इस तरह लिख सकते हैं:

Lhi[i_, a_, mu_, t_] := mu/((1-a)a^(-1+t+i)+(1-a^(-1+t+i))mu)

pw[l_, a_, mu_, t_, n_] := 
 Piecewise[
  MapIndexed[
   If[First[#2]==1, {1,l<=#1[[2]]},{a^(First[#2]-2+t),#1[[1]]<l<=#1[[2]]}]&, 
   Partition[Table[Lhi[i,a,mu,t], {i,-1,n}],2,1]]
  ]

With[{a = 0.3, mu = 0.2, t = 1, n = 4},
 Plot[pw[l, a, mu, t, n], {l, mu/(1 - a), 
   mu/(a^(t+3)(1-a) + mu(1-a^(t+3)))}, 
  AxesLabel -> Automatic]
 ]