السلام عليكم ورحمه الله وبركاته
عندي برنامج بالماتلاب اريد شرحه شرح وافي في اقرب فرصه لاهنتو
واذا فيه روابط كويسه للتنحميل البرنامج اريدها لاني حاولت احمله ومانفتح معي
لو سمحتو الرد لاهنتوووووووو الله يفرج لكم يارب
برنامج الماتلاب موجود فى المواضيع المثبتة يمكنك تحميله
ما في ملف في المرفقات
ارجو اعادة تحميله وخلي اسمه بالانجليزي
وعليكم السلام
تأكد من المرفقات يوجد به الملف
ولكن بكتبه هنا فارجو مساعدتي في شرحه وإذا أمكن تنفيذ لهذا البرنامج لانه لايوجد لدي برنامج …ولكم جزيل الشكر والعرفان
[RIGHT]%second part of hap layout just before square may be to draw more elepse
ثاني جزء من تخطيط الـ hap
[RIGHT]%%%%%%%%%%%%%first to draw eleps
[RIGHT]clc % to clear the screen
[RIGHT]هذا الأمر يستخدم لمسح الشاشة (لتنظيف الشاشة )
[RIGHT]clear all % to clear all cash
[RIGHT]لتنظيف الذاكرة لمسح جميع المتغيرات المخزنة (مسح الشاشة تماما )
[RIGHT]r=2;%radius of center cell 2km
نصف قطر مركز الدائرة الداخلية
[RIGHT]
[RIGHT]h=22;%altitude 22km
[RIGHT]الارتفاع الـ Hap =22كيلو متر
[RIGHT]N=9; % antenna array elemints are N*N
[RIGHT]هذي المصفوفة اللي على أساسها نركب الهوائيات كل هوائي يغطي منطقة معينه (n=عدد الهوائيات )
لو كل مستخدم له هوائي بتكون الخدمة عالية ,أما لو كان هوائي يخدم خمسة راح يعمل معالجة لكل مستخدم راح يعمل …عالي أي يسقط المكالمات بنسبة عالية لذلك يعمل مصفوفة من الهوائيات
[RIGHT]x=-r:.01*r:r; % x &y are the limits of the area
[RIGHT]الجملة السابقة هي إحداثي x
[RIGHT]حيث xمصفوفة تحتوي على قيم من –rإلى +r
[RIGHT]والخطوة r=0,1
[RIGHT]%that will be covered which the elepse will draw on that conture
[RIGHT]y=((r^2)-(x.^2)).^0.5; %half of the major axis of eleps
[RIGHT]الجملة السابقة هي إحداثي y
[RIGHT]نصف المحور الرئيسي للeleps وهو عبارة عن عداد حيث x,y …
[RIGHT]plot(x,y)%to plot the center cell
[RIGHT]هنا بيعطي نصف القطر
[RIGHT]hold on %Remark to draw single tyre
[RIGHT]رسم إطار واحد
[RIGHT]%break % to show the function of the first half of drawing
[RIGHT]إيقاف وتنفيذ النصف الأول من الرسم.
[RIGHT]
[RIGHT]%second half of the major axis of eleps
[RIGHT]y=-((r^2)-(x.^2)).^0.5;
[RIGHT]plot(x,y)% to plot the second half of elepseleps
[RIGHT]نصف القطر الثاني راح إبداء أخليه يكرر احنا هنا عطيناه …يرسم عليه
[RIGHT]لذلك نحتاج عدادين واحد …وواحد …
[RIGHT]hold on %%Remark to draw single tyre
[RIGHT]%break% to show the function of the first half of drawing
[RIGHT]%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
[RIGHT]%%%%%% variable to plot the multi tyrs %%%%
[RIGHT]d=3^.5*r;
[RIGHT]جذر 3 لان d هي المسقط بناء الشعاع وعشان اجيب حساب الوتر …
[RIGHT]to=atan(d/h); % angle of the cone theta 0
[RIGHT]bw_div2=.5sec(to)(asin(sin(to)+0.886/N)-asin(sin(to)-0.886/N));%beam width/2
[RIGHT]bwp=asin(sin(to)+0.886/N)-asin(sin(to)-0.886/N);% conture of the layout
[RIGHT]%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
[RIGHT]بعدها نرسم الأطارات :
[RIGHT]for j=1:3%counter for the turns or tyrs normal 4
[RIGHT]منطقة الخلايا
[RIGHT]for i=1:6j%counter for cells in turn normal 6j
[RIGHT]خلايا j لكل مرة
[RIGHT] ;(ph=(i-1)pi/(3j
[RIGHT] ; theata=atan(d/h)
[RIGHT] b=htan(theata+bw_div2)-htan(theata-bw_div2); %major axes
[RIGHT] a=2*h.*tan(bwp/2)./cos(theata);%minor axes
[RIGHT] (x=linspace(d-b/2,d+b/2,100)% linespace(strt pnt,lst pnt,step
[RIGHT] ; y=a/2.(1-((x-htan(theata)).^2./(b/2)^2)).^.5
[RIGHT] xx=x.*cos(ph)+y.*sin(ph);
[RIGHT] ;( yy=y.*cos(ph)-x.*sin(ph
[RIGHT] ( plot(xx,yy
[RIGHT] ; hold on
[RIGHT] ; y=-a/2.(1-((x-htan(theata)).^2./(b/2)^2)).^.5
[RIGHT] ;(xx=x.*cos(ph)+y.*sin(ph
[RIGHT] yy=y.*cos(ph)-x.*sin(ph);
[RIGHT] ( plot(xx,yy
[RIGHT] ; hold on
[RIGHT]end
[RIGHT]; d=d+b/1.2
[RIGHT] ;(to=atan(d/h
[RIGHT] bw_div2=.5sec(to)(asin(sin(to)+0.886/N)-asin(sin(to)-0.886/N));%beam width/2
[RIGHT] ); bwp=asin(sin(to)+0.886/N)-asin(sin(to)-0.886/N
[RIGHT]end
[RIGHT]break%
[RIGHT]stop %to stop the 1st loop%
[RIGHT]%%%%%%%%%%%%%%%%%%%%%%%%%%%
[RIGHT]loop 2nd %
[RIGHT]%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
[RIGHT]for j=5%counter for the turns normal 5
[RIGHT]for i=1:6j%counter for cells in turnnormal 6j
[RIGHT] ;( ph=(i-1)pi/(3j
[RIGHT] ;( theata=atan(d/h
[RIGHT] ;( b=htan(theata+5+bw_div2)-htan(theata-bw_div2
[RIGHT] ;( a=2*h.*tan(bwp/2)./cos(theata+5
[RIGHT] ( x=linspace(d-b/2,d+b/2,100
[RIGHT] ; y=a/2.(1-((x-htan(theata)).^2./(b/2)^2)).^.5
[RIGHT] ;(xx=x.*cos(ph)+y.*sin(ph
[RIGHT] yy=y.*cos(ph)-x.*sin(ph);
[RIGHT] ( plot(xx,yy
[RIGHT] ; hold on
[RIGHT] ; y=-a/2.(1-((x-htan(theata)).^2./(b/2)^2)).^.5
[RIGHT] ;(xx=x.*cos(ph)+y.*sin(ph
[RIGHT] ;(yy=y.*cos(ph)-x.*sin(ph
[RIGHT] ( plot(xx,yy
[RIGHT] ; hold on
[RIGHT]end
[RIGHT] ;( b=htan(theata+bw_div2)-htan(theata-bw_div2
[RIGHT] ;( a=2*h.*tan(bwp/2)./cos(theata
[RIGHT] ; d=d+b/1.7
[RIGHT] ;( to=atan(d/h
[RIGHT] bw_div2=.5sec(to)(asin(sin(to)+0.886/N)-asin(sin(to)-0.886/N));%beam width/2
[RIGHT] bwp=asin(sin(to)+0.886/N)-asin(sin(to)-0.886/N);
[RIGHT]
[RIGHT]end
[RIGHT]%break
[RIGHT]%stop %to stop the 2nd loop
[RIGHT]%%%%%%%%%%%%%%%% second loops %%%%%%%%%%%%%%%
[RIGHT]for j=6%counter for the turns normal 6
[RIGHT]for i=30:32%counter for cells in turn from 30 to 32
[RIGHT]; (ph=(i-1)pi/(3j
[RIGHT] ;( theata=atan(d/h
[RIGHT] ;( b=htan(theata+j+bw_div2)-htan(theata-bw_div2
[RIGHT] ;( a=2*h.*tan(bwp/2)./cos(theata+5
[RIGHT] ( x=linspace(d-b/2,d+b/2,100
[RIGHT] ; y=a/2.(1-((x-htan(theata)).^2./(b/2)^2)).^.5
[RIGHT] ;( xx=x.*cos(ph)+y.*sin(ph
[RIGHT] yy=y.*cos(ph)-x.*sin(ph);
[RIGHT] ( plot(xx ,yy
[RIGHT] ; hold on
[RIGHT] ; y=-a/2.(1-((x-htan(theata)).^2./(b/2)^2)).^.5
[RIGHT] ;(xx=x.*cos(ph)+y.*sin(ph
[RIGHT] ;( yy=y.*cos(ph)-x.*sin(ph
[RIGHT] ( plot(xx, yy
[RIGHT] ; hold on
[RIGHT]end
[RIGHT]end
السلام عليكم
الله يعافيكم ساعدوني في شرح الكود لأني متحاجة ضروررري جدا
الله يوفقك من يرد ويجعل له من كل ضيق مخرجا وكل هم فرجا …
وحتى لو شرح بسيط مولازم التعميق ,بس شرح كل سطر ماذا يفعل…أنا في أمس حاجة له لان عندي أختبار الأحد