আমি আপনার প্লটটি http://hawaii.gov/dbedt/ert/winddata/krab0192.txt থেকে ডেটা দিয়ে পুনরায় তৈরি করেছি (আমি 1200 পরিমাপ নিয়েছি)। আমি সাধারণত আপনার কোড ব্যবহার করে ডেটার একটি শালীন ফিট পেয়েছি:
library(lmom)
daten <- read.delim("wind.txt")
wind.avg <- na.omit(as.numeric(daten[,"X12"]))
wind.moments<-samlmu(wind.avg)
moments<-pelwei(wind.moments)
x.wei<-rweibull(n=length(wind.avg), shape=moments["delta"], scale=moments["beta"])
hist(as.numeric(wind.avg), freq=FALSE)
lines(density(x.wei), col="red", lwd=4)

দুঃখিত, আমি সমস্যা হইনি যদি আপনার সমস্যা হতে পারে তবে আমি মনে করি আপনার ডেটাতে ওয়েলবুল ফিট করতে পারা উচিত। যা আমাকে সন্দেহজনক করে তোলে তা হ'ল আপনার ঘনত্বের চক্রান্তের বেল-বক্রতা, আমি জানি না যে এটি কোথা থেকে এসেছে।
আমি উত্পন্ন মুহুর্তগুলি এখানে:
wind.moments
l_1 l_2 t_3 t_4
15.17287544 4.80372580 0.14963501 0.06954438
মুহূর্ত
zeta beta delta
0.516201 16.454233 1.745413
বার্ষিক আউটপুটে ডব্লিউটিআর: আমি মনে করি আমি সম্ভাবনা ঘনত্ব ফাংশনের জন্য পৃথক মান উত্পন্ন করতাম, আউটপুট ফাংশনটির সাথে এই মানগুলিকে গুণিত করতাম এবং সমষ্টি করতাম। বিকল্পভাবে, আপনি কেবলমাত্র আপনার কাঁচা ডেটা ব্যবহার করতে পারেন, আউটপুট ফাংশনটির সাথে মানগুলি গুন করতে পারেন, এটির যোগফল তৈরি করতে এবং বার্ষিক গড় গণনা করতে পারেন, আপনাকে উপযুক্ত উপায়ে মৌসুমীকরণের জন্য নিয়ন্ত্রণ করা উচিত (যেমন পুরো বছর ব্যবহার করা নিশ্চিত করুন বা তদনুসারে ওজন অনুযায়ী) ।
এখানে অনিয়ন্ত্রিত আউটপুট ( http://www.articlesbase.com/diy-articles/determining-wind-turbine-annual-power-output-a-simple-forula-based-upon-blade-diype- এর সূত্র ব্যবহার করে ) এবং-আপনার-অবস্থান-এ-গড়-বায়ু-গতি-এ-অবস্থান -1303080 html )
years <- length(wind.avg)/365
diameter <- 150
Power = (0.01328*diameter^2)*((wind.avg)^3)
(annual.power <- sum(Power)/years)
[1] 791828306