Weighted wages depending on rating

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|234\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Weighted wages depending on rating
Mon, 02 Feb 2009, 06:08
LostUser	Hi there. In the following code, a player can hire "Hoods", each of them have a 0/100 rating system. What I'm after is a weighted rating system, so that the closer to 100 the rating is, the higher the salary is. My system is a quick fix, however I get a problem: Sometimes the person at a rating of 80 gets a higher salary than a person of 100 (this seems to happen a lot). Anyway, what I'm after is a weighted wages system. Here is my code; ; Hoods ; @updated: 02 February 2009 ;-------------------------------------------------- Type player Field name$ End Type Type hood Field owner.player Field name$ Field health, wages, rating End Type ;-------------------------------------------------- Function Create_Hood(owner.player, name$="", rating=0) p.hood = New hood p\owner.player = owner.player p\name$ = name$ p\health = 100 p\rating = rating DebugLog("NAME: " + name$) p\wages = Generate_Wages(rating) DebugLog("========") End Function ;-------------------------------------------------- Function Count_Hoods() count = 0 For p.hood = Each hood count = count + 1 Next Return (count) End Function ;-------------------------------------------------- Function Generate_Wages(rating=0) Local min = 10: max = 10000 ; Fix ratings If (rating<0) Then rating = 0: If (rating>100) Then rating = 100 If (rating = 0) Then wmin = 10: wmax = 100: wmod = 10 End If If (rating >=0 And rating <20) Then wmin = 100: wmax = 500: wmod = 25 ElseIf (rating >=20 And rating <40) Then wmin = 500: wmax = 1000: wmod = 50 ElseIf (rating >=40 And rating <60) Then wmin = 1000: wmax = 2500: wmod = 100 ElseIf (rating >=60 And rating <80) Then wmin = 2500: wmax = 5000: wmod = 250 ElseIf (rating >=80 And rating <=100) Then wmin = 5000: wmax = 10000: wmod = 500 End If Debuglog( wmin + " " + wmax + " " + wmod) Repeat wages = Rand( wmin, wmax ) Until (wages Mod wmod = 0) DebugLog("WAGES: " + wages) DebugLog("MOD : " + wages Mod wmod) Return (wages) End Function ;-------------------------------------------------- Graphics 800,600,16,2 SetBuffer BackBuffer(): SeedRnd (MilliSecs()) p.player = New player p\name$ = "Player 1" Create_Hood(p.player, "Gavin", 0) Create_Hood(p.player, "Jebus", 10) Create_Hood(p.player, "James", 20) Create_Hood(p.player, "John", 40) Create_Hood(p.player, "Mike", 60) Create_Hood(p.player, "Alan", 80) Create_Hood(p.player, "Sanchez", 100) Create_Hood(p.player, "Random", Rand(1,100)) fh = FontHeight() i=0 For h.hood = Each hood i = i + 1 Text 10, 10 + (fh * i), h\name$ + " wages: " + h\wages + " rating: " + h\rating Next --v
Mon, 02 Feb 2009, 08:07
Scherererer	here's a quickie: Instead of doing your random wage mod + blocks of if-statements, you can set it like this: Function Generate_Wages(rating=0) Local min = 10: max = 10000 ; Fix ratings If (rating<0) Then rating = 0: If (rating>100) Then rating = 100 #wagePer = (max-min)/100.0 Return #wagePer#wagePer(max-min) + min ; we're squaring the wagePer because it causes a quadratic growth as opposed to a linear one (i.e. the amount of money you make increases at a higher rate the higher your rating), but will still hit the same max End Function --v -=-=- YouTube Twitter Computer Science Series: Logic (pt1) (part 2) (part 3) 2's Complement Mathematics: Basic Differential Calculus
Mon, 02 Feb 2009, 09:10
LostUser	I tried this, but it gives me a really big number for all my tests and the number is always the same for every "hood". ie; Gavin wages: 9.970031e+007 rating: 0 Jesus wages: 9.970031e+007 rating: 10 James wages: 9.970031e+007 rating: 20 John wages: 9.970031e+007 rating: 40 Mike wages: 9.970031e+007 rating: 60 Alan wages: 9.970031e+007 rating: 80 Sanchez wages: 9.970031e+007 rating: 100 Random wages: 9.970031e+007 rating: 1 --v The wages should be at least different for each person, and not the same number. I understand what you're doing with the quadratic equation, but its not getting the result I was after. Also, the modding I was doing was for asthetic reasons - its easier to read a fixed round number (say in blocks of 5, 10 or 25). Perhaps it just needs a bit of tweaking.
Mon, 02 Feb 2009, 11:52
Scherererer	oh shoot! I made a mistake, haha: Function Generate_Wages(rating=0) Local min = 10: max = 10000 ; Fix ratings If (rating<0) Then rating = 0: If (rating>100) Then rating = 100 #wagePer = rating/100.0 Return #wagePer#wagePer(max-min) + min ; we're squaring the wagePer because it causes a quadratic growth as opposed to a linear one (i.e. the amount of money you make increases at a higher rate the higher your rating), but will still hit the same max End Function --v -=-=- YouTube Twitter Computer Science Series: Logic (pt1) (part 2) (part 3) 2's Complement Mathematics: Basic Differential Calculus
Tue, 03 Feb 2009, 02:25
LostUser	That's much better! Now all I have to do is make sure its a round number (ie: is divisible by 5, 10, 25 or something like that) so that it is more visual appealing. So instead of 6993 it's just 6990. I should be able to do this (I hope!) Many thanks!
Tue, 03 Feb 2009, 08:24
Evil Roy Ferguso	You've probably already done this, but prettyWage = (GenerateWage(rating)/5) * 5 is probably the easiest way to make the wage 'pretty.'
Wed, 04 Feb 2009, 04:00
LostUser	I did a rounding up thing. ie: 1. generate the wage 2. if its not a MOD of 10 then keep adding 1 until it is. 3. if > max then wage = max (which is a mod of 10 anyway). I'll probably do as you state to make it a bit better. Thanks to all for their help!