Functions to calculate S1, S2, S3, R1, R2, R3 and pivot point levels

I'm looking for the following functions to calculate pivot points, support and resistance levels:

• function to return the pivot point level using 3 different methods of five-point system and its common variations depending on the given parameter (1-3) or enum and the timeframe:
• Pivot Point for Current = High (previous) + Low (previous) + Close (previous) / 3
• P = ((Today\'s O) + Yesterday\'s (H + L + C)) / 4
• 
  
• function to return S1, S2, S3, R1, R2, R3 values for given timeframe and type of value (either separate functions or all in one):
• Resistance 1 = (2 x Pivot Point) – Low (previous period) 
• Support 1 = (2 x Pivot Point) – High (previous period) 
• Resistance 2 = (Pivot Point – Support 1) + Resistance 1 
• Support 2 = Pivot Point – (Resistance 1 – Support 1) 
• Resistance 3 = (Pivot Point – Support 2) + Resistance 2
• Support 3 = Pivot Point – (Resistance 2 – Support 2)