Wrong values with COSINE!

[Darrel Taylor]

Nicely done Melanie.

I'm affraid I would have been much more severe.

However, my severeity would have been directed to everyone besides ENG4444.

Maybe it wasn't the best entrance to our forum, but. The words, idiot, stupid, and the dreaded F word came from well established users. Not the poor guy that made his first post here today. (originally)

As the "Bad Cop" I'd like to "Run you ALL in" for inciting a riot.

Fortunately, there's a "Good Cop" around that handles children better than I do.
<br>
DT

P.S. Luciano excluded!

[Eng4444]

I have joined several forums and it was the first time where i see people asking for money and the sentence "don't expect to do it for free".

it's a real big shame because orginally, that was the aim of forums in case some of you do not know.


in all cases, i don't wanna get far from my subject. I'm still asking that question and still waiting more answers

[Melanie]

You know, if I want a Pizza and I don't know how to make one...

1. I look in a Cookbook and follow the recipie (for Cookbook read PICBasic manual)...
2. I go to Cookery School and learn...
3. I at least make an attempt at something and if it doesn't turn out right then perhaps somebody will feel sorry for me and help me out...
4. I pay someone to bring it to my door...

I sure as hell don't run down the street shouting "I'm hungry and I want someone to make me a Pizza NOW!" and when neighbours offer their recipies and suggestions I dismiss them without at least trying to understand what they're offering me...

Quick (one minute of coding) and dirty 0-90 degree FREE Cosine demonstrator...

If you don't like it... go write your own...
If you want 91-359 Degrees... go write your own - it's not immediately obvious...
If you don't like the precision... go write your own...
...I think you get the idea...

	Angle Var WORD
	Cosine var WORD
	Radian var BYTE
	TempA var WORD
	TempB var WORD

	LCDOut $FE,1
Loop:
	For Angle=0 to 90
		Gosub GetCosine
		LCDOut $FE,$80,"Angle=",#Angle,"  ",$FE,$C0,"Cosine="
		LCDOut #Cosine DIG 3,".",#Cosine DIG 2,#Cosine DIG 1,#Cosine DIG 0
		Pause 1000
		Next Angle
	Goto Loop

GetCosine:
	Radian=(Angle+1)*255/360
	TempA=COS(Radian)
	TempA=TempA & %01111111
	TempB=TempA*1000
	Cosine=DIV32 127
	Return

Oh... and before you say anything to the contrary... yes it DOES work...

[Luciano]

Hi,

The precision you can achieve with your code is not the only issue.

Luciano

* * *

Power factor / Dissipating the Myths

By David Gibson

Power factor is one of those subjects about which there seems to be a great deal of confusion and many misconceptions. The culprit is the the assertion that power factor = cos(Phi), Phi being the phase shift between voltage and current. While this is true under certain ideal conditions, there are many real-world instances where it is quite incorrect. This article will give you a basic introduction into power factor, and explain why cos(Phi) is not the whole answer.

Read this article here:
http://www.microconsultants.com/tips...t/pfarticl.htm

[Eng4444]

Thanks Melanie a lot.

Your code is great and it worked perfectly.


Luciano,

Also a big thanks because that article is extremely important.